<%@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 %> ChampionChip.es: Inscripciones <%=nombreCarrera%> <% else %> ChampionChip.es: Se ha producido un error al cargar los datos de la inscripción <% end if %> <% if errorCarrera <> 0 then %>
 

Servei Inscripcions on-line ChampionChip

 
 

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%>

 
<% elseif not carreraAbierta then %>
 

Servei Inscripcions on-line ChampionChip

<%=nombreCarrera%>

 
 

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.

 
<% else %>
 

Servei Inscripcions on-line ChampionChip

<%=nombreCarrera%>

 
 

 

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ó

<% if solicitarTiempo then %> <% else %> <% end if %> <% if solicitarLicencia then %> <% else %> <% end if %> <% 'if solicitarLicencia then %> <% 'else ' 'end if %> <% if divinaPastora then %> <% end if %>
 
Tipus d’inscripció (*):  Temps acreditat, en minuts: 
  <% if solicitarTiempo then if carrera = 158 then %> <% else %> <% end if end if %>
Nom (*):   Cognoms (*):
 
DNI (*):  Codi de Llicència:(*): Codi de Llicència:
  
Data de naixement (*):   Sexe (*):
/ /  
Adreça:   Localitat:
 
Codi postal:    
 
Telèfon mòbil:   Club:
 
Codi de xip groc:   email (*):
 
Observacions:
Accepto les condicions de compra i el reglament de la cursa (*)
Vostè consenteix, tret que marqui aquesta casella , la cessió de les seves Dades a l'Organitzador d'aquesta competició i al Patrocinador Divina Pastora, a fi de que li remetin la informació sobre les seves activitats i/o productes. En relació al Patrocinador, vostè té dret d'accés, rectificació, cancel·lació i oposició, en els termes establerts en la legislació vigent, a través d'escrit dirigit a Divina Pastora, carrer Colón 74, 46004 València, amb la referència Protecció Dades Personals.
 
  
 
 

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

 
<% end if %>