<% 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.escuderia, 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.escuderia" aux= aux & " ORDER BY Count(*) DESC" CONSULTA.OPEN aux,Conn %>

Ranking de poles por escuderia <% do until consulta.eof if (linea Mod 2)<>0 then %> <%else%> <% end if linea=linea+1 consulta.movenext loop %> ESCUDERIA Nº DE POLES "> <% response.write(consulta.fields.item("escuderia"))%> <% response.write(consulta.fields.item("SUMA"))%> "> <% response.write(consulta.fields.item("escuderia"))%> <% response.write(consulta.fields.item("SUMA"))%>