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

<% response.write (nombre) %>

Resumen de los puntos conseguidos

<% do until consulta.eof if (linea Mod 2)<>0 then %> <%if consulta ("pos_final")="01" then%> <%else%> <%end if%> <%else%> <%if consulta ("pos_final")="01" then%> <%else%> <%end if%> <% end if linea=linea+1 consulta.movenext loop %>
FECHA CIRCUITO PAIS ESCUDERIA POSICION PUNTOS
<% response.write(consulta.fields.item("fecha"))%>
"> <% response.write(consulta.fields.item("circuito"))%> ">
<% response.write(consulta.fields.item("pais"))%>
 "><% response.write(consulta.fields.item("escuderia"))%> <% response.write(consulta.fields.item("pos_final"))%> <% response.write(consulta.fields.item("pos_final"))%><% response.write(consulta.fields.item("puntos_fin"))%>
<% response.write(consulta.fields.item("fecha"))%>
"> <% response.write(consulta.fields.item("circuito"))%> ">
<% response.write(consulta.fields.item("pais"))%>
 "><% response.write(consulta.fields.item("escuderia"))%> <% response.write(consulta.fields.item("pos_final"))%> <% response.write(consulta.fields.item("pos_final"))%><% response.write(consulta.fields.item("puntos_fin"))%>