<% response.Expires = -1000 %> <% b_mostrar_mapa = true%> <% reqDorsal = 0 if isnumeric(request("dorsal")) then reqDorsal = request("dorsal") %> Resultados Muévete X España 2016
<% if reqDorsal > 0 then %>

">Volver a Clasificación

<% else %>

Volver a Resultados

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