<% SET CONSULTA=SERVER.CREATEOBJECT("ADODB.RECORDSET") AUX= "SELECT carreras.escuderia, Count(*) AS SUMA " AUX= AUX &"FROM carreras INNER JOIN [fechas carreras] " AUX= AUX &"ON carreras.fecha = [fechas carreras].fecha " AUX= AUX &"WHERE (((carreras.pos_parrilla)<'99')) " AUX= AUX &"AND (carreras.escuderia)='" & escu & "'" AUX= AUX &"GROUP BY carreras.escuderia " CONSULTA.OPEN aux,Conn%> <% dim SumaVictorias SumaVictorias=0 SET CONSULTA=SERVER.CREATEOBJECT("ADODB.RECORDSET") AUX= "SELECT carreras.escuderia, Count(*) AS SUMA " AUX= AUX &"FROM carreras INNER JOIN [fechas carreras] " AUX= AUX &"ON carreras.fecha = [fechas carreras].fecha " AUX= AUX &"WHERE (((carreras.pos_final)='01')) " AUX= AUX &"AND (carreras.escuderia)='" & escu & "'" AUX= AUX &"GROUP BY carreras.escuderia " CONSULTA.OPEN aux,Conn if not consulta.eof then IF NOT ISNULL(CONSULTA("SUMA")) THEN SumaVictorias=CONSULTA ("SUMA") %> <% ELSE%> <%end if else%> <% end if CONSULTA.CLOSE %> <% SET CONSULTA=SERVER.CREATEOBJECT("ADODB.RECORDSET") aux="SELECT carreras.escuderia," aux= aux &" carreras.pos_final, carreras.pos_parrilla," aux= aux &" carreras.fecha, [fechas carreras].circuito," aux= aux &" [fechas carreras].pais" aux= aux &" FROM carreras INNER JOIN [fechas carreras]" aux= aux &" ON carreras.fecha = [fechas carreras].fecha" aux= aux &" WHERE ((((carreras.escuderia)='" & escu & "'" aux= aux &" AND ((carreras.fecha)=(select MIN(FECHA)" aux= aux &" from CARRERAS where ESCUDERIA ='" & escu & "'" aux= aux &" and pos_final='01')))))" CONSULTA.OPEN aux,Conn if not consulta.eof then%> <% else%> <%end if CONSULTA.CLOSE %> <% SET CONSULTA=SERVER.CREATEOBJECT("ADODB.RECORDSET") AUX= "SELECT carreras.escuderia, Count(*) AS SUMA " AUX= AUX &"FROM carreras INNER JOIN [fechas carreras] " AUX= AUX &"ON carreras.fecha = [fechas carreras].fecha " AUX= AUX &"WHERE (((carreras.pos_parrilla)='01')) " AUX= AUX &"AND (carreras.escuderia)='" & escu & "'" AUX= AUX &"GROUP BY carreras.escuderia " CONSULTA.OPEN aux,Conn if not consulta.eof then IF NOT ISNULL(CONSULTA("SUMA")) THEN %> <%ELSE%> <%end if else%> <%end if CONSULTA.CLOSE %> <% SET CONSULTA=SERVER.CREATEOBJECT("ADODB.RECORDSET") aux="SELECT carreras.escuderia," aux= aux &" carreras.pos_final, carreras.pos_parrilla, carreras.fecha," aux= aux &" [fechas carreras].circuito, [fechas carreras].pais" aux= aux &" FROM carreras INNER JOIN [fechas carreras]" aux= aux &" ON carreras.fecha = [fechas carreras].fecha" aux= aux &" WHERE (((carreras.escuderia)='" & escu & "'" aux= aux &" AND ((carreras.fecha)=(select MIN(FECHA)" aux= aux &" from CARRERAS where ESCUDERIA ='" & escu & "'" aux= aux &" and pos_parrilla='01'))))" CONSULTA.OPEN aux,Conn if not consulta.eof then%> <% else%> <%end if CONSULTA.CLOSE %> <%ELSE%> <%end if else%> <%end if CONSULTA.CLOSE %> <% else%> <%end if CONSULTA.CLOSE %>

Debut:	<%response.write( CONSULTA ("FECHA"))%>	<%response.write (consulta.fields.item("circuito"))%>	<%response.write (consulta.fields.item("pais")) CONSULTA.CLOSE%>
Presencias en GP´S: <% SET CONSULTA=SERVER.CREATEOBJECT("ADODB.RECORDSET") AUX= "SELECT carreras.escuderia, Count(*) AS SUMA " AUX= AUX &"FROM carreras INNER JOIN [fechas carreras] " AUX= AUX &"ON carreras.fecha = [fechas carreras].fecha " AUX= AUX &"WHERE (((carreras.pos_parrilla)<>'xxx')) " AUX= AUX &"AND (carreras.escuderia)='" & escu & "'" AUX= AUX &"GROUP BY carreras.escuderia " CONSULTA.OPEN aux,Conn%>	<%response.write (CONSULTA ("SUMA")) CONSULTA.CLOSE %>
GPs Disputados:	<%response.write (CONSULTA ("SUMA")) CONSULTA.CLOSE %>
Victorias:	"> <% response.write (CONSULTA ("SUMA"))%>	<%response.write("0")%>	<%response.write("0")%>
1ª Victoria:	<% response.write( CONSULTA ("FECHA"))%>	<%response.write (consulta ("circuito"))%>	<% response.write (consulta ("pais"))%>	<%response.write("---")%>
Poles:	"> <% response.write (CONSULTA ("SUMA"))%>	<%response.write("0")%>	<%response.write("0")%>
1ªPole:	<% response.write( CONSULTA ("FECHA"))%>	<%response.write (consulta ("circuito"))%>	<% response.write (consulta ("pais"))%>	<%response.write("---")%>
Vueltas rápidas: <% SET CONSULTA=SERVER.CREATEOBJECT("ADODB.RECORDSET") AUX= "SELECT carreras.escuderia, Count(*) AS SUMA " AUX= AUX &"FROM carreras INNER JOIN [fechas carreras] " AUX= AUX &"ON carreras.fecha = [fechas carreras].fecha " AUX= AUX &"WHERE (((carreras.vuelta)='VR')) " AUX= AUX &"AND (carreras.escuderia)='" & escu & "'" AUX= AUX &"GROUP BY carreras.escuderia " CONSULTA.OPEN aux,Conn if not consulta.eof then IF NOT ISNULL(CONSULTA("SUMA")) THEN %>	"> <% response.write (CONSULTA ("SUMA"))%>	<%response.write("0")%>	<%response.write("0")%>
1ª Vuelta Rápida: <% SET CONSULTA=SERVER.CREATEOBJECT("ADODB.RECORDSET") aux="SELECT carreras.escuderia," aux= aux &" carreras.pos_final, carreras.pos_parrilla, carreras.fecha," aux= aux &" [fechas carreras].circuito, [fechas carreras].pais" aux= aux &" FROM carreras INNER JOIN [fechas carreras]" aux= aux &" ON carreras.fecha = [fechas carreras].fecha" aux= aux &" WHERE (((carreras.escuderia)='" & escu & "'" aux= aux &" AND ((carreras.fecha)=(select MIN(FECHA)" aux= aux &" from CARRERAS where ESCUDERIA ='" & escu & "'" aux= aux &" and vuelta='VR'))))" CONSULTA.OPEN aux,Conn if not consulta.eof then%>	<% response.write( CONSULTA ("FECHA"))%>	<%response.write (consulta ("circuito"))%>	<% response.write (consulta ("pais"))%>	<%response.write("---")%>