<%dim fecha2,aux,circuito linea = 1 piloto=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.escuderia,carreras.dorsal," aux=aux & " carreras.pos_final, carreras.pos_parrilla, carreras.fecha," aux=aux & " [fechas carreras].circuito, [fechas carreras].pais, [fechas carreras].circuito," aux=aux & " carreras.neumaticos, carreras.fecha" aux=aux & " FROM carreras INNER JOIN [fechas carreras] " aux=aux & " ON carreras.fecha = [fechas carreras].fecha" aux=aux & " WHERE (((carreras.piloto)='" & piloto & "')) " aux=aux & " order by carreras.fecha" CONSULTA.OPEN aux,CONN %>
Todos los resultados
FECHA
CIRCUITO
ESCUDERIA
DORSAL
FINAL
<% do until consulta.eof if (linea Mod 2)<>0 then %>
"> <% response.write(consulta.fields.item("fecha"))%>
"> <% response.write(consulta.fields.item("circuito"))%>
">
<% response.write(consulta.fields.item("escuderia"))%>
<% response.write(consulta.fields.item("dorsal"))%>
<%if consulta ("pos_final")="01" then%>
<% response.write(consulta.fields.item("pos_final"))%>
<%else%>
<% response.write(consulta.fields.item("pos_final"))%>
<%end if%> <%else%>
"> <% response.write(consulta.fields.item("fecha"))%>
"> <% response.write(consulta.fields.item("circuito"))%>
">
<% response.write(consulta.fields.item("escuderia"))%>
<% response.write(consulta.fields.item("dorsal"))%>
<%if consulta ("pos_final")="01" then%>
<% response.write(consulta.fields.item("pos_final"))%>
<%else%>
<% response.write(consulta.fields.item("pos_final"))%>
<%end if%> <% end if linea=linea+1 consulta.movenext loop %>