<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dbFile = "CMS/mdb-database/piloti.mdb" %> <% Dim strConnect StrConnect = "Driver=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath( dbfile ) %> <% Qry = "SELECT TOP 30 piloti.* FROM piloti ORDER BY piloti.punti DESC, piloti.pilota;" set rsg = CreateObject("ADODB.Recordset") rsg.Open Qry, StrConnect,1 ,3 recgal=rsg.recordcount %> <% Qry = "SELECT TOP 16 team.* FROM team ORDER BY team.punti2 DESC;" set rsf = CreateObject("ADODB.Recordset") rsf.Open Qry, StrConnect,1 ,3 recgal=rsf.recordcount %> <% Qry = "SELECT TOP 30 posizione.* FROM posizione" set rsp = CreateObject("ADODB.Recordset") rsp.Open Qry, StrConnect,1 ,3 %> <% Qry = "SELECT TOP 16 posizione.* FROM posizione" set rss = CreateObject("ADODB.Recordset") rss.Open Qry, StrConnect,1 ,3 %> Documento senza titolo


PILOTI
<%conta=0 do until rsg.eof conta=conta+0%> <% if conta <% end if rsp.movenext rsg.movenext loop %> <%if q="q" then%> <%end if%>
Pos Piloti Monza Marrakech Hungaroring Silverstone Zandvoort Nurburgring Donington Drombrno TOTALE
<%=rsp("posizione")%> <%=rsg("pilota")%> <%=rsg("gara1")%> <%=rsg("gara2")%> <%=rsg("gara3")%> <%=rsg("gara4")%> <%=rsg("gara5")%> <%=rsg("gara6")%> <%=rsg("gara7")%> <%=rsg("gara8")%> <%=rsg("punti")%>
<%=rsp("posizione")%> <%=rsg("pilota")%> <%=rsg("gara1")%> <%=rsg("gara2")%> <%=rsg("gara3")%> <%=rsg("gara4")%> <%=rsg("gara5")%> <%=rsg("gara6")%> <%=rsg("gara7")%> <%=rsg("gara8")%> <%=rsg("punti")%>
SQUADRE
<%conta=0 do until rsf.eof conta=conta+1%> <% if conta <% end if rss.movenext rsf.movenext loop %> <%if q="q" then%> <%end if%>
Pos Squadre Punti
<%=rss("posizione")%> <%=rsf("team")%> <%=rsf("punti2")%>
<%=rss("posizione")%> <%=rsf("team")%> <%=rsf("punti2")%>
 
Home

News

Team

Gallery

Video
La Vettura

Classifiche

Partners

Contatti
Archivio Dati

Download

Area Privata


AUTOGP
is the Support Series of

FIND US EVERYWHERE
© 2013 Auto GP Organization S.r.l | P.IVA 09599981009 | Webmaster: MV GRAPHIC |