<%@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 Sitio1;" 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("Tienda") then tienda = true comentarioTienda = rsCarrera("TextoTienda") else tienda = false end if 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 %>
 

Servicio Inscripciones on-line ChampionChip

 
 

Se ha producido el siguiente error:

<%=muestraErrorCarrera(errorCarrera)%>

Si el error persite, por favor, pongase en contacto con el administrador de la página en la dirección <%=emailPagina%>

  
<% elseif not carreraAbierta then %>
 

Servicio Inscripciones on-line ChampionChip

<%=nombreCarrera%>

  
 

Inscripciones Cerradas

La Entidad Organizadora de la carrera "<%=nombreCarrera%>" ha cerrado las inscripciones para la presente edición.

Para cualquier información relativa a la carrera y al plazo de inscripción se puede dirigir a la Entidad Organizadora .

  
<% else %>
 

Servicio Inscripciones on-line ChampionChip

<%=nombreCarrera%>

  
 

 

Instrucciones para tramitar la inscripción

Para tramitar la inscripción rellene el formulario y pulse sobre el botón "Enviar". La conexión será redirigida a un servidor seguro de nuestra entidad bancaria en el que le solicitarán los datos de su tarjeta de crédito para realizar el pago del importe de la cuota de inscripción.

Al rellenar este formulario y pulsar sobre el botón "Enviar" usted reconoce haber leído y estar de acuerdo con el reglamento de la carrera. Para cualquier reclamación y/o anulación se tiene que poner en contacto con la entidad organizadora de la carrera.

 
 

Formulario de inscripción

<% if tienda then %>
<% else %> <% end if %>
<% if solicitarTiempo then %> <% else %> <% end if %> <% if solicitarLicencia then %> <% else %> <% end if %> <% 'if solicitarLicencia then %> <% 'else ' 'end if %> <% if divinaPastora then %> <% end if %>
 
Tipo de inscripcion (*):  Tiempo acreditado en minutos: 
  <% if solicitarTiempo then %> <% end if %>
Nombre (*):   Apellidos (*):
 
Número de DNI (*):  Número de Licencia (*): Número de Licencia:
  
Fecha de Nacimiento (*):   Sexo (*):
/ /  
Dirección:   Localidad (*):
 
Código Postal (*):   Pais:
 
Teléfono Móvil:   Club:
 
Número de ChampionChip amarillo:   Dirección de correo electrónico (*):
 
Observaciones:
Acepto las condiciones de compra y el reglamento de la carrera (*)
Usted consiente, salvo que marque esta casilla , la cesión de sus Datos al Organizador de esta competición y al Patrocinador Divina Pastora, al objeto de que le remitan la información sobre sus actividades y/o productos. En relación al Patrocinador, usted tiene derecho de acceso, rectificación, cancelación y oposición, en los términos establecidos en la legislación vigente, a través de escrito dirigido a Divina Pastora, calle Colón 74, 46004 Valencia, con la referencia Protección Datos Personales.
 
  
 
 

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