<%
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.pos_parrilla)='01'))"
aux= aux & " GROUP BY carreras.piloto"
aux= aux & " ORDER BY Count(*) DESC"
CONSULTA.OPEN aux,conn
%>
Ranking Poles •
PILOTO
Nº DE POLES
<%
do until consulta.eof
if (linea Mod 2)<>0 then %>