<% 'Marcamos esta página para que no se guarde en la cache del equipo Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 'Creamos la conexion con la base de datos. Set dbConn = Server.CreateObject("ADODB.Connection") dbConn.Open bd_web 'Recuperamos los datos necesarios para obtener la clasificación carrera = Request.QueryString("carrera") if carrera = "" then carrera = 0 end if parcial = Request.QueryString("parcial") clasificacion = Request.QueryString("clasificacion") dorsal = Request.QueryString("dorsal") nombre = Request.QueryString("nombre") apellidos = Request.QueryString("apellidos") pagina = Request.QueryString("pagina") 'Obtenemos los datos de la carrera sqlCarrera = "SELECT * FROM resultados_carreras WHERE CodCarrera = " + cstr(carrera) + ";" set rsCarrera = Server.CreateObject("ADODB.Recordset") rsCarrera.Open sqlCarrera, dbConn if not rsCarrera.EOF then if rsCarrera("CarreraActiva") then 'Si existe la carrera, comprobamos si hay que seleccionar el punto de control y la clasificación por defecto if parcial = "" then parcial = rsCarrera("ParcialMeta") if clasificacion = "" then 'Si no se indica la clasificación deseada, se obtiene la predeterminada de la base de datos sqlPredeterminada = "SELECT * FROM resultados_clasificaciones WHERE CodCarrera = " + cstr(carrera) + " AND Predeterminada = True;" set rsPredeterminada = Server.CreateObject("ADODB.Recordset") rsPredeterminada.Open sqlPredeterminada, dbConn if not rsPredeterminada.EOF then 'Recuperamos el código de la clasificación predeterminada clasificacion = rsPredeterminada("CodClasificacion") else 'Si no hay ninguna predeterminada, seleccionamos la primera clasificacion = 1 end if 'Liberamos la memoria utilizada set rsPredeterminada = nothing end if if pagina = "" then pagina = 0 end if 'Obtenemos el listado de puntos de cronometraje sqlParciales = "SELECT * FROM resultados_configuracioncarreras WHERE CodCarrera = " + cstr(carrera) + " ORDER BY CodParcial desc;" set rsParciales = Server.CreateObject("ADODB.Recordset") rsParciales.Open sqlParciales, dbConn 'Obtenemos el listado de clasificaciones disponibles sqlClasificaciones = "SELECT * FROM resultados_clasificaciones WHERE CodCarrera = " + cstr(carrera) + " ORDER BY CodClasificacion asc;" set rsClasificaciones = Server.CreateObject("ADODB.Recordset") rsClasificaciones.Open sqlClasificaciones, dbConn %> <%=rsCarrera("nombreCarrera")%>: Resultados/Results
<% if rsCarrera("Provisionales") then 'Si los resultados son provisionales se muestra este título %> <% else 'Si los resultados son definitivos, se elimina la palabra provisional del título %> <% end if %> <% if dorsal="" and nombre = "" and apellidos = "" then 'Inicializamos la variable de control de la página controlPagina = 0 'Si no se han realizado búsquedas, mostramos la página sqlPagina = queryPagina + cstr(parcial) + " AND p.CodCarrera = " + cstr(carrera) + " GROUP BY pagina;" set rsPagina = Server.CreateObject("ADODB.Recordset") rsPagina.Open sqlPagina, dbConn %> <% else %> <% end if %>

<%=rsCarrera(" width="799" height="106" />

 

RESULTADOS PROVISIONALES / PROVISIONAL RESULTS
RESULTADOS / RESULTS

Punto de Control/Timing Point:

Clasificación/Results:
 
Criterios de Búsqueda/Searching Criteria:
Dorsal/Bib:
Nombre/First Name:
Apellidos/Surname:
<%=etiquetaParcial%>
Página/Page:  
Para más información haga click en el dorsal/Click on bib for more details
<% 'Preparamos la query para obtener los datos sqlResultados = query + " p.CodCarrera = " + cstr(carrera) + " AND CodParcial = " + cstr(parcial) if dorsal<>"" then 'Si han introducido un número de dorsal sqlResultados = sqlResultados + " AND c.dorsal = '" + trim(cstr(dorsal)) + "'" end if if nombre<>"" then 'Si se ha introducido algún caracter en el campo nombre, se buscan todos aquellos corredores que tengan parte de esta cadena en el campo nombre sqlResultados = sqlResultados + " AND c.nombre like '%" + trim(cstr(nombre)) + "%'" end if if apellidos<>"" then 'Si se ha introducido algún caracter en el campo apellido, se buscan todos aquellos corredores que tengan parte de esta cadena en el campo apellidos sqlResultados = sqlResultados + " AND c.apellidos like '%" + trim(cstr(apellidos)) + "%'" end if if dorsal="" and nombre="" and apellidos="" then 'Si no se está utilizando el buscador, utilizamos la función de paginación sqlResultados = sqlResultados + " AND " + paginador + cstr(pagina) end if sqlResultados = sqlResultados + " ORDER BY Puesto ASC" set rsResultados = Server.CreateObject("ADODB.Recordset") rsResultados.Open sqlResultados, dbConn 'Si los resultados son definitivos y tenemos una dirección para los diplomas, generamos una nueva columna para el enlace con este documento if rsCarrera("Provisionales")=0 and not isNull(rsCarrera("Diploma")) and rsCarrera("Diploma")<>"" then %> <% end if %> <% 'Inicializamos la variable que indica el color del fondo de la línea de la tabla lineaImpar = true do while not rsResultados.EOF 'Establecemos el color del fondo de la línea if lineaImpar then %> <% else %> <% end if %> <% 'Si los resultados son definitivos y tenemos una dirección para los diplomas, ponemos el icono correspondiente al diploma y enlazamos con la página del documento if rsCarrera("Provisionales")=0 and not isNull(rsCarrera("Diploma")) and rsCarrera("Diploma")<>"" then if rsResultados("ClasificacionDefinitiva")>0 then %> <% else %> <% end if end if %> <% 'Movemos el cursor al siguiente registro rsResultados.MoveNext 'Cambiamos el valor de la variable de control del color del fondo de las líneas lineaImpar = not lineaImpar loop %>
Puesto/Place
Dorsal/Bib
Nombre/First Name
Apellidos/Surname
Cat
Oficial/Gross
Neto/Net
 
<%=rsResultados("Puesto")%>
" target="_self"><%=rsResultados("Categoria")%>  
Patrocinadores y Colaboradores
<% 'Liberamos la memoria utilizada set rsParciales = nothing set rsClasificaciones = nothing else 'Si la carrera no está activa, mostramos un mensaje indicando cuando lo estará %> <%=rsCarrera("nombreCarrera")%>: Resultados/Results

<%=rsCarrera(" width="799" height="106" />

 
<%=rsCarrera("MensajeNoDatos")%>
 
<%=rsCarrera("MensajeNoDatos2")%>
 
Patrocinadores y Colaboradores
<% end if else 'Si no existe la carrera, mostramos un mensaje indicando este hecho %> Sistema de resultados de ChampionChip© España: Carrera no disponible

Sistema de Resultados de ChampionChip España

 

LA CARRERA SELECCIONADA NO SE ENCUENTRA DISPONIBLE
<% end if 'Liberamos la memoria utilizada set rsCarrera = nothing set dbConn = nothing %>