|
|
| X Pujada
al Turó de l'Home - 2009 (06/09/09) |
|
| Classificació General |
| Posicio |
Dorsal |
Nom |
Temps |
Diplomes |
<%
posi = 0
basedatos = Server.MapPath("..\..\data\turo2009.mdb")
SQLtxt3="Select * from Inscritos Where Pagado Like 'Si' And Posicion > 0 Order by Posicion"
set rs3 = CreateObject("ADODB.Recordset")
rs3.Open SQLtxt3, "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & basedatos & ";"
do While not rs3.EOF
If rs3("Sexo") = "Dona" Then
dona = "*"
posi = posi + 1
Else
dona = ""
End If
%>
| <%=rs3("Posicion") & dona%> |
<%=rs3("Dorsal")%> |
<%=rs3("Primer_apellido")%> <%=rs3("Segundo_apellido")%>, <%=rs3("Nombre")%> |
<%=rs3("Tiempo")%> |
&POS=<%=posi%>">[Diploma] |
<%
rs3.MoveNext
Loop
rs3.Close
%>
| *Classificació Dones |
| Posicio |
Total |
Dorsal |
Nom |
Temps |
Diplomes |
<%
posi = 0
basedatos = Server.MapPath("..\..\data\turo2009.mdb")
SQLtxt3="Select * from Inscritos Where Pagado Like 'Si' And Posicion > 0 And Sexo Like 'Dona' Order by Posicion"
set rs3 = CreateObject("ADODB.Recordset")
rs3.Open SQLtxt3, "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & basedatos & ";"
do While not rs3.EOF
posi = posi + 1
%>
| <%= posi%> |
<%=rs3("Posicion")%> |
<%=rs3("Dorsal")%> |
<%=rs3("Primer_apellido")%> <%=rs3("Segundo_apellido")%>, <%=rs3("Nombre")%> |
<%=rs3("Tiempo")%> |
&POS=<%=posi%>">[Diploma] |
<%
rs3.MoveNext
Loop
rs3.Close
%>
| No Classificats |
| Dorsal |
Nom |
<%
basedatos = Server.MapPath("..\..\data\turo2009.mdb")
SQLtxt3="Select * from Inscritos Where Pagado Like 'Si' And Posicion < 1 Or IsNull(posicion) Order by Dorsal"
set rs3 = CreateObject("ADODB.Recordset")
rs3.Open SQLtxt3, "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & basedatos & ";"
do While not rs3.EOF
%>
| <%=rs3("Dorsal")%> |
<%=rs3("Primer_apellido")%> <%=rs3("Segundo_apellido")%>, <%=rs3("Nombre")%> |
<%
rs3.MoveNext
Loop
rs3.Close
%>
|
