Documento sin título

<%dim aux,escuderia linea = 1 escuderia=request.querystring("escu") 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 & " carreras.escuderia, [fechas carreras].circuito," aux=aux & " [fechas carreras].fecha, [fechas carreras].pais" aux=aux & " FROM carreras INNER JOIN [fechas carreras]" aux=aux & " ON carreras.fecha = [fechas carreras].fecha" aux=aux & " WHERE (((carreras.pos_final)='01')) and escuderia='" & escuderia & "'" aux=aux & " GROUP BY carreras.piloto, carreras.escuderia, [fechas carreras].circuito" aux=aux & " ,[fechas carreras].fecha, [fechas carreras].pais" aux=aux & " ORDER BY [fechas carreras].fecha" CONSULTA.OPEN aux,Conn %>

Victorias •

<% do until consulta.eof if (linea Mod 2)<>0 then %> <%else%> <% end if linea=linea+1 consulta.movenext loop %>

PILOTO	CIRCUITO	FECHA	PAIS
"> <% response.write(consulta.fields.item("piloto"))%>	"> <% response.write(consulta.fields.item("circuito"))%>	<% response.write(consulta.fields.item("fecha"))%>	"> <% response.write(consulta.fields.item("pais"))%>
"> <% response.write(consulta.fields.item("piloto"))%>	"> <% response.write(consulta.fields.item("circuito"))%>	<% response.write(consulta.fields.item("fecha"))%>	"> <% response.write(consulta.fields.item("pais"))%>