%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'Inicializamos la variable de control de errores de la carrera errorCarrera = 0 'Recuperamos el código de la carrera de los datos proporcionados al formulario carrera = Request.QueryString("carrera") 'Comprobamos si nos han pasado el código de la carrera if carrera="" then 'En caso de que no nos hayan pasado el código de la carrera marcamos la variable de error con Código Inexistente errorCarrera = 1 elseif not isNumeric(carrera) then 'Si el código de carrera introducido no es numérico, marcamos la variable de error con Código Incorrecto errorCarrera = 2 else 'Si tenemos código de carrera recuperamos de la base de datos la información relativa a la misma 'Creamos la conexion con la base de datos. Set dbConn = Server.CreateObject("ADODB.Connection") dbConn.Open bd_inscripciones 'Creamos el recordSet correspondiente a los datos de la carrera Set rsCarrera = Server.CreateObject("ADODB.Recordset") 'Ejecutamos la consulta sqlCarrera = "SELECT * FROM carreras WHERE CodCarrera = " + CStr(carrera) + " AND Sitio2" rsCarrera.Open sqlCarrera, dbConn 'Obtenemos los datos de la carrera if rsCarrera.EOF Then 'Si no hay registros, significa que el código de la carrera es incorrecto, por lo que marcamos la variable de error con el código correspondiente errorCarrera = 2 elseif rsCarrera.recordCount > 1 then 'Se ha producido un error de configuración en la base de datos, por lo que se indica tal extremo en la variable de error errorCarrera = 3 else nombreCarrera = rsCarrera("NombreCarrera") fechaCarrera = rsCarrera("FechaCarrera") estadoCarrera = rsCarrera("Estado") urlReglamento = rsCarrera("urlReglamento") urlOrganizador = rsCarrera ("urlOrganizador") carreraAbierta = rsCarrera("Estado") solicitarLicencia = rsCarrera("Licencia") solicitarTiempo = rsCarrera("Tiempo") if rsCarrera("DivinaPastoraActivo") then divinaPastora = true else divinaPastora = false end if end if 'Solamente continuamos con la ejecución del código si no se ha producido ningún error if errorCarrera = 0 then 'Creamos el recordSet correspondiente a los tipos de inscripción de la carrera Set rsTipos = Server.CreateObject("ADODB.Recordset") 'Ejecutamos la consulta sqlTipos = "SELECT * FROM tiposinscripcion WHERE CodCarrera = " + CStr(carrera) + " and inicio<=now() and fin>=now();" rsTipos.Open sqlTipos, dbConn 'Creamos el recordSet correspondiente a los paises Set rsPais = Server.CreateObject("ADODB.Recordset") 'Ejecutamos la consulta sqlPais = "SELECT * FROM paises" rsPais.Open sqlPais, dbConn end if end if %>
<% if errorCarrera = 0 then %>
Servei Inscripcions on-line |
||
S'ha produït el següent error: <%=muestraErrorCarrera(errorCarrera)%> Si l’error persisteix, per favor, posi’s en contacte amb l’administrador de la pàgina a l’adreça <%=emailPagina%> |
Servei Inscripcions on-line |
||
Inscripcions Tancades L'Entitat Organitzadora de la cursa "<%=nombreCarrera%>"ha tancat les inscripcions per a la present edició. Per a qualsevol informació relativa a la cursa i al termini d'inscripció es pot dirigir a l’Entitat Organitzadora. |
Servei Inscripcions on-line |
||
Instruccions per a tramitar la inscripció Per a tramitar la inscripció ompli el formulari i polsi el botó “enviar”. La connexió serà redirigida cap un servidor segur de l’entitat bancària que li demanarà les dades de la seva tarja de crèdit per a realitzar el pagament del import de la quota d’inscripció. Al omplir el formulari i polsar el botó "Enviar" vostè reconeix haver llegir i estar d’acord amb el reglament de la cursa. Per a qualsevol modificació de les dades ha d'enviar la notificació per mail: <%=emailPagina%>. |
||
Formulari d’inscripció |
||
De acuerdo a la Ley Orgánica 15/1999, del 13 de diciembre, de Protección de Datos Personales, le informamos que los datos facilitados en este formulario se incorporarán a un fichero propiedad de Chip Timing S.L., con la finalidad de cursar esta solicitud de inscripción. Al enviar este formulario, consiente expresamente y autoriza para que se traten sus datos personales con la finalidad anteriormente indicada. Para ejercitar sus derechos de acceso, rectificación, cancelación y oposición, se tiene que dirigir a Chip Timing S.L., Avd. Sarria 11 5-3, 08029 Barcelona |
||