Datos PAIS • <%dim estado,aux estado=request.querystring("nombrepais") 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 [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].pais)='" & estado & "') " aux=aux & " AND ((carreras.pos_final)='01')" aux=aux & " ORDER BY [fechas carreras].fecha DESC" CONSULTA.OPEN aux,CONN Set consulta2=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].pais)='" & estado & "') " aux=aux & " AND ((carreras.pos_parrilla)='01')" aux=aux & " ORDER BY [fechas carreras].fecha DESC" CONSULTA2.OPEN aux,CONN Set consulta3=server.createobject("ADODB.Recordset") aux="SELECT carreras.piloto, Count(*) AS SUMA, [fechas carreras].pais" 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].pais" aux=aux & " HAVING (([fechas carreras].pais)='" & estado & "')" aux=aux & " ORDER BY Count(*) DESC" CONSULTA3.OPEN aux,CONN Set consulta4=server.createobject("ADODB.Recordset") aux="SELECT carreras.piloto, Count(*) AS SUMA, [fechas carreras].pais" 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].pais" aux=aux & " HAVING (([fechas carreras].pais)='" & estado & "')" aux=aux & " ORDER BY Count(*) 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 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 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 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 CIRCUITO PILOTO ESCUDERIA FECHA CIRCUITO <% response.write(consulta3.fields.item("piloto"))%> <% response.write(consulta3.fields.item("SUMA"))%> <% response.write(consulta3.fields.item("piloto"))%> <% response.write(consulta3.fields.item("SUMA"))%> <% response.write(consulta4.fields.item("piloto"))%> <% response.write(consulta4.fields.item("SUMA"))%> <% response.write(consulta4.fields.item("piloto"))%> <% response.write(consulta4.fields.item("SUMA"))%> <% response.write(consulta.fields.item("piloto"))%> <% response.write(consulta.fields.item("ESCUDERIA"))%> <% response.write(consulta.fields.item("FECHA"))%> <% response.write(consulta.fields.item("CIRCUITO"))%> <% response.write(consulta.fields.item("piloto"))%> <% response.write(consulta.fields.item("ESCUDERIA"))%> <% response.write(consulta.fields.item("FECHA"))%> <% response.write(consulta.fields.item("CIRCUITO"))%> <% response.write(consulta2.fields.item("piloto"))%> <% response.write(consulta2.fields.item("ESCUDERIA"))%> <% response.write(consulta2.fields.item("FECHA"))%> <% response.write(consulta2.fields.item("CIRCUITO"))%> <% response.write(consulta2.fields.item("piloto"))%> <% response.write(consulta2.fields.item("ESCUDERIA"))%> <% response.write(consulta2.fields.item("FECHA"))%> <% response.write(consulta2.fields.item("CIRCUITO"))%>