<%@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 y la letra por la que se filtran los apellidos carrera = Request.QueryString("carrera") inicial = Request.QueryString("inicial") '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) 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") end if 'Solamente continuamos con la ejecución del código si no se ha producido ningún error if errorCarrera = 0 then 'Obtenemos todos los datos de los corredores inscritos en la carrera set rsInscripciones = Server.CreateObject("ADODB.Recordset") if inicial="" then 'sqlInscripciones = "SELECT * FROM qryListadoInscritos WHERE CodCarrera = " + CStr(carrera) + " ORDER BY Apellidos asc, Nombre asc, CodPedido asc" sqlInscripciones = "select inscripciones.CodInscripcion AS CodInscripcion,inscripciones.CodCarrera AS CodCarrera,inscripciones.CodTipoInscripcion AS CodTipoInscripcion,inscripciones.Importe AS Importe,inscripciones.Nombre AS Nombre,inscripciones.Apellidos AS Apellidos,inscripciones.DNI AS DNI,inscripciones.Licencia AS Licencia,inscripciones.Nacimiento AS Nacimiento,inscripciones.Sexo AS Sexo,inscripciones.Direccion AS Direccion,inscripciones.Localidad AS Localidad,inscripciones.CodPostal AS CodPostal,inscripciones.Pais AS Pais,inscripciones.Telefono AS Telefono,inscripciones.Club AS Club,inscripciones.Chip AS Chip,inscripciones.Correo AS Correo,inscripciones.Observaciones AS Observaciones,inscripciones.AceptaCondiciones AS AceptaCondiciones,inscripciones.FechaInscripcion AS FechaInscripcion,inscripciones.CodPedido AS CodPedido,inscripciones.TiempoAcreditado AS TiempoAcreditado,inscripciones.ConsienteDatos AS ConsienteDatos from (inscripciones left join respuestasbanco on((inscripciones.CodPedido = respuestasbanco.codigoPedido))) where ((inscripciones.Importe = 0) or (respuestasbanco.respuestaBanco < _utf8'0100')) AND inscripciones.CodCarrera = "+ CStr(carrera) + " ORDER BY inscripciones.Apellidos asc, inscripciones.Nombre asc, inscripciones.CodPedido asc" else 'sqlInscripciones = "SELECT * FROM qryListadoInscritos WHERE CodCarrera = " + CStr(carrera) + " AND Apellidos like '" + inicial + "%' " 'sqlInscripciones = sqlInscripciones + "ORDER BY Apellidos asc, Nombre asc, CodPedido asc" sqlInscripciones = "select inscripciones.CodInscripcion AS CodInscripcion,inscripciones.CodCarrera AS CodCarrera,inscripciones.CodTipoInscripcion AS CodTipoInscripcion,inscripciones.Importe AS Importe,inscripciones.Nombre AS Nombre,inscripciones.Apellidos AS Apellidos,inscripciones.DNI AS DNI,inscripciones.Licencia AS Licencia,inscripciones.Nacimiento AS Nacimiento,inscripciones.Sexo AS Sexo,inscripciones.Direccion AS Direccion,inscripciones.Localidad AS Localidad,inscripciones.CodPostal AS CodPostal,inscripciones.Pais AS Pais,inscripciones.Telefono AS Telefono,inscripciones.Club AS Club,inscripciones.Chip AS Chip,inscripciones.Correo AS Correo,inscripciones.Observaciones AS Observaciones,inscripciones.AceptaCondiciones AS AceptaCondiciones,inscripciones.FechaInscripcion AS FechaInscripcion,inscripciones.CodPedido AS CodPedido,inscripciones.TiempoAcreditado AS TiempoAcreditado,inscripciones.ConsienteDatos AS ConsienteDatos from (inscripciones left join respuestasbanco on((inscripciones.CodPedido = respuestasbanco.codigoPedido))) where ((inscripciones.Importe = 0) or (respuestasbanco.respuestaBanco < _utf8'0100')) AND inscripciones.CodCarrera = "+ CStr(carrera)+ " AND Apellidos like '" + inicial + "%' ORDER BY inscripciones.Apellidos asc, inscripciones.Nombre asc, inscripciones.CodPedido asc" end if rsInscripciones.Open sqlInscripciones,dbConn end if end if %> <% if errorCarrera = 0 then %> ChampionChip.es: Listado inscripciones <%=nombreCarrera%> <% else %> ChampionChip.es: Se ha producido un error al cargar los datos de la carrera <% 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%>

 
<% else %>
 

Servei Inscripcions on-line ChampionChip

<%=nombreCarrera%>

 
 

 

Llistat de corredors inscrits

A continuació es mostra la llista de corredors que han realitzat la seva inscripció mitjançant el Servei d'Inscripcions On-line de ChampionChip®. Si vostè s’ha inscrit utilitzant el Servei d'Inscripcions On-line de ChampionChip®, ha rebut la confirmació de la inscripció en la pantalla i no apareix en el següent llistat, per favor, posi’s en contacte amb l’administrador de la pàgina a l’adreça <%=emailPagina%>.

Per a facilitar la recerca d'una inscripció, seleccioni la inicial del cognom: A B C D E F G H I J K L M N Ñ O P Q R S T U V W X Y Z Totes

 
  <% 'Identificador para el color del fondo lineaImpar = true Do While not rsInscripciones.EOF 'Recorremos el listado de inscritos y mostramos los datos por pantalla if lineaImpar then %> <% else %> <% end if %> <% 'Cambiamos el color de fondo lineaImpar = not lineaImpar 'Cambiamos al siguiente registro rsInscripciones.moveNext Loop %>
Cognoms Nom Data de naixement Sexe Club Identificador de la inscripció
<%=ucase(rsInscripciones("Apellidos"))%>
<%=ucase(rsInscripciones("Nombre"))%>
<%=day(rsInscripciones("Nacimiento"))%>/<%=month(rsInscripciones("Nacimiento"))%>/<%=year(rsInscripciones("Nacimiento"))%>
<%=ucase(rsInscripciones("Sexo"))%>
<%=ucase(rsInscripciones("Club"))%>
<%=ucase(rsInscripciones("CodPedido"))%>
 
 

L’assignació de dorsals als corredors es realitzarà una vegada tancada la inscripció i es publicarà pels voltants de la zona de recollida de dorsals i xips el dia de la cursa. El lloc i l’hora de recollida dels dorsals i dels xips ho pot trobar en el reglament o a la pàgina web de l’entitat organitzadora de la cursa.

 
<% end if %>