% response.Expires = -1000 %>
<% b_mostrar_mapa = true%>
<%
reqDorsal = 0
if isnumeric(request("dorsal")) then reqDorsal = request("dorsal")
%>
<% if now() < prueba_fecha_carrera and request("gudeb")="" then %>
<%
response.write "
Los resultados 'en directo' estarán disponibles el día de la carrera tras comenzar la prueba
"
'response.write "
Acceso recomendado para terminales móviles:
http://mvte.tk
"
%>
<% else %>
Resultados DEFINITIVOS
<% if false then %>
Actualizado <%= lastmodified("carrera.mdb") %>
Correo para reclamaciones (hasta 24/05/2016 14:00):
muevetex_2016@muevetesl.com
<% end if %>
<%
set oCn = server.CreateObject("ADODB.Connection")
sCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("carrera.mdb")
oCn.open sCn
if reqDorsal > 0 then ' Mostrar Detalle Equipo
set oRs = server.CreateObject("ADODB.Recordset")
sSql = "SELECT * FROM qry_Equipos WHERE dorsal=" & reqDorsal
oRs.Open sSql,oCn
if not oRs.EOF then
sComponentes = oRs("comp1") & "
" & oRs("comp2")
end if
oRs.Close
sSql = "SELECT * FROM Clasificacion WHERE dorsal=" & reqDorsal
oRs.Open sSql,oCn
if not oRs.EOF then
sEquipo = oRs("Equipo")
sCategoria = oRs("categoria")
sTiempo = oRs("tiempo")
sPuntos = oRs("puntos")
sPosGeneral = oRs("Pos_General") & "º"
sPosCategoria = oRs("Pos_Categoria") & "º"
sPie = "
Hora de llegada " & sTiempo & "
"
sCabecera = "
Equipo: " & sEquipo & "
"
sPosicion = "
Clasificación General : " & sPosGeneral & "
Categoría " & sCategoria & " : " & sPosCategoria & "
"
end if
oRs.Close
sSql = "SELECT iif([tipo]='Penalizacion','Penalizacion',iif([tipo]='Retraso','Retraso ' & [numero] & ' min.',[tipo] & ' ' & format([numero],""00"") & ' (' & [detalles] & ')')) AS Concepto, puntos FROM qry_Clasificacion_Detalle WHERE dorsal=" & reqDorsal & " ORDER BY tipo, numero ASC "
sSql = sSql & " UNION SELECT '---Total---' AS Detalle, ('
' & [puntos] & '') AS Puntos FROM qry_Puntos WHERE dorsal=" & reqDorsal
response.Write sCabecera & "
Componentes:
" & sComponentes & "
"
mostrar_tabla oCn, sPuntos & " puntos",sSql
response.Write sPie
response.Write sPosicion
if b_mostrar_mapa then
response.Write "
Mapa de resultados
"
response.write "Haga click en la imagen para agrandar
"
response.write "
"
end if
else ' Mostrar Clasificacion
sLinkDetalle = "('
Ver detalle') AS Detalle"
sSql = "SELECT Pos_General AS Puesto, Categoria, Dorsal, Equipo, Puntos, Tiempo AS [Llegada] , " & sLinkDetalle & " FROM Clasificacion ORDER BY Pos_General ASC"
mostrar_tabla oCn, "Clasificación General",sSql
sRs = "SELECT DISTINCT Categoria FROM Clasificacion ORDER BY Categoria DESC"
set oRs = server.CreateObject("ADODB.Recordset")
oRs.Open sRs,oCn
do while not oRs.EOF
sSql = "SELECT Pos_Categoria AS Puesto, Dorsal, Equipo, Puntos, Tiempo AS [Llegada] , " & sLinkDetalle & " FROM Clasificacion WHERE Categoria='" & oRs.Fields("Categoria") & "' ORDER BY Pos_Categoria ASC"
mostrar_tabla oCn, "Categoría
" & oRs.Fields("Categoria") & "" ,sSql
oRs.MoveNext
loop
oRs.Close
end if
oCn.Close
%>
<% end if %>
<% if reqDorsal > 0 then %>
">Volver a Clasificación
<% else %>
Volver a Resultados
<% end if %>