<%
linea = 1
Set Conn=server.CreateObject("ADODB.Connection")
Conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("/db/carreras.mdb"))
Set consulta=server.CreateObject("ADODB.Recordset")
aux= " SELECT carreras.piloto, Count(*) AS SUMA"
aux= aux & " FROM carreras INNER JOIN [fechas carreras]"
aux= aux & " ON carreras.fecha = [fechas carreras].fecha"
aux= aux & " WHERE (((carreras.vuelta)='VR'))"
aux= aux & " GROUP BY carreras.piloto"
aux= aux & " ORDER BY Count(*) DESC"
CONSULTA.OPEN aux,conn
%>
Ranking Vueltas rapidas •
PILOTO
Nº DE VUELTAS RAPIDAS
<%
do until consulta.eof
if (linea Mod 2)<>0 then %>