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

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

 
<% else %>
 

Servicio Inscripciones on-line ChampionChip

<%=nombreCarrera%>

 
 

 

Listado de corredores inscritos

A continuación se muestra la lista de corredores que han realizado su inscripción mediante el Servicio de Inscripciones On-Line de ChampionChip®. Si usted se ha inscrito utilizando el Servicio de Inscripciones On-Line de ChampionChip®, ha recibido la confirmación de la inscripción en la pantalla y no aparece en el siguiente listado, por favor, pongase en contacto con el administrador de la página en la dirección <%=emailPagina%>.

Para facilitar la búsqueda de una inscripción, seleccione la inicial del apellido: 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 Todas

 
  <% '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 %>
Apellidos Nombre Fecha Nacimiento Sexo Club Identificador Inscripción
<%=ucase(rsInscripciones("Apellidos"))%>
<%=ucase(rsInscripciones("Nombre"))%>
<%=day(rsInscripciones("Nacimiento"))%>/<%=month(rsInscripciones("Nacimiento"))%>/<%=year(rsInscripciones("Nacimiento"))%>
<%=ucase(rsInscripciones("Sexo"))%>
<%=ucase(rsInscripciones("Club"))%>
<%=ucase(rsInscripciones("CodPedido"))%>
 
 

La asignación de dorsales a los corredores se realizará una vez cerrada la inscripción y se publicará en las inmediaciones de la zona de recogida de dorsales y chips el día de la carrera. El lugar y la hora de recogida de los dorsales y de los chips lo puede encontrar en el reglamento o en la página web de la entidad organizadora de la carrera.

 
<% end if %>