Datos circuito •

<% dim circuito,aux dim salir circuito=request.querystring("nombrecircuito") 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, [fechas carreras].circuito" aux=aux & " FROM carreras INNER JOIN [fechas carreras] ON carreras.fecha = [fechas carreras].fecha" aux=aux & " WHERE ((carreras.pos_final)='01')" aux=aux & " GROUP BY carreras.piloto, [fechas carreras].circuito" aux=aux & " HAVING (([fechas carreras].circuito)='" & circuito & "')" aux=aux & " ORDER BY Count(*) DESC" CONSULTA.OPEN aux,CONN Set consulta2=server.createobject("ADODB.Recordset") aux="SELECT carreras.piloto, Count(*) AS SUMA, [fechas carreras].circuito" aux=aux & " FROM carreras INNER JOIN [fechas carreras] ON carreras.fecha = [fechas carreras].fecha" aux=aux & " WHERE ((carreras.pos_parrilla)='01')" aux=aux & " GROUP BY carreras.piloto, [fechas carreras].circuito" aux=aux & " HAVING (([fechas carreras].circuito)='" & circuito & "')" aux=aux & " ORDER BY Count(*) DESC" CONSULTA2.OPEN aux,CONN Set consulta3=server.createobject("ADODB.Recordset") aux="SELECT [fechas carreras].circuito, [fechas carreras].pais," aux=aux & " carreras.piloto, carreras.escuderia, carreras.pos_final, [fechas carreras].fecha" aux=aux & " FROM carreras INNER JOIN [fechas carreras]" aux=aux & " ON carreras.fecha = [fechas carreras].fecha" aux=aux & " WHERE (([fechas carreras].circuito)='" & circuito & "') " aux=aux & " AND ((carreras.pos_final)='01')" aux=aux & " ORDER BY [fechas carreras].fecha DESC" CONSULTA3.OPEN aux,CONN Set consulta4=server.createobject("ADODB.Recordset") aux="SELECT [fechas carreras].circuito, [fechas carreras].pais," aux=aux & " carreras.piloto, carreras.escuderia, carreras.pos_final, [fechas carreras].fecha" aux=aux & " FROM carreras INNER JOIN [fechas carreras]" aux=aux & " ON carreras.fecha = [fechas carreras].fecha" aux=aux & " WHERE (([fechas carreras].circuito)='" & circuito & "') " aux=aux & " AND ((carreras.pos_parrilla)='01')" aux=aux & " ORDER BY [fechas carreras].fecha DESC" CONSULTA4.OPEN aux,CONN salir = false linea = 1 salir = consulta.eof and consulta2.eof and consulta3.eof and consulta4.eof while not salir %> <% if not consulta.eof then if (linea Mod 2)<>0 then %> <%else%> <% end if linea=linea+1 consulta.movenext else %> <%end if if not consulta2.eof then if (linea Mod 2)<>0 then %> <%else%> <% end if linea=linea+1 consulta2.movenext else %> <% end if if not consulta3.eof then if (linea Mod 2)<>0 then %> <%else%> <% end if linea=linea+1 consulta3.movenext else %> <% end if if not consulta4.eof then if (linea Mod 2)<>0 then %> <%else%> <% end if linea=linea+1 consulta4.movenext else %> <%end if salir= consulta.eof and consulta2.eof and consulta3.eof and consulta4.eof wend %>
N.VICTORIAS N.POLES VICTORIAS POLES
PILOTO VICTORIAS PILOTO POLES PILOTO ESCUDERIA FECHA PILOTO ESCUDERIA FECHA
  <% response.write(consulta.fields.item("piloto"))%>
<% response.write(consulta.fields.item("SUMA"))%>   <% response.write(consulta.fields.item("piloto"))%>
<% response.write(consulta.fields.item("SUMA"))%>   <% response.write(consulta2.fields.item("piloto"))%>
<% response.write(consulta2.fields.item("SUMA"))%>   <% response.write(consulta2.fields.item("piloto"))%>
<% response.write(consulta2.fields.item("SUMA"))%>   <% response.write(consulta3.fields.item("piloto"))%>
<% response.write(consulta3.fields.item("ESCUDERIA"))%> <% response.write(consulta3.fields.item("FECHA"))%>   <% response.write(consulta3.fields.item("piloto"))%>
<% response.write(consulta3.fields.item("ESCUDERIA"))%> <% response.write(consulta3.fields.item("FECHA"))%>   <% response.write(consulta4.fields.item("piloto"))%>
<% response.write(consulta4.fields.item("ESCUDERIA"))%> <% response.write(consulta4.fields.item("FECHA"))%>   <% response.write(consulta4.fields.item("piloto"))%>
<% response.write(consulta4.fields.item("ESCUDERIA"))%> <% response.write(consulta4.fields.item("FECHA"))%>