<%@ LANGUAGE="VBSCRIPT" %> top 100
:: Histoire :: Le classement des pilotes en fonction de leur palmarès
(mise à jour : 07 octobre 2007)
 
 

Nom

 Titre Victoires Podiums Pôles M. Tours Points nb GP
1

M.Schumacher

 7 91 164 68 76 1368 250
2

Fernando Alonso

 2 19 48 17 11 484 104
3

J. Villeneuve

 1 11 23 13 9 236 165
4

Kimi Raikkonen

 - 14 47 14 24 446 121
5

David Coulthard

 - 13 61 12 18 527 228
6

Rubens Barrichello

 - 9 61 13 15 519 251
7

Juan-Pablo Montoya

 - 7 30 13 13 306 95
8

Ralf Schumacher

 - 6 27 6 8 329 179
9

Felipe Massa

 - 5 16 8 8 193 87
10

Lewis Hamilton

 - 4 12 6 2 107 16
11

Giancarlo Fisichella

 - 3 18 3 2 267 194
12

Jenson Button

 - 1 15 3 - 229 135
13

Jarno Trulli

 - 1 7 3 - 182 184
14

Nick Heidfeld

 - - 7 1 - 137 132
15

Alexander Wurz

 - - 3 - 1 45 69
16

Mark Webber

 - - 2 - - 79 103
17

Pedro de la Rosa

 - - 1 - 1 29 71
18

Takuma Sato

 - - 1 - - 44 86
19

Robert Kubica

 - - 1 - - 41 21
20

Tiago Monteiro

 - - 1 - - 7 37
21

Heikki Kovalainen

 - - 1 - - 30 16
22

Nico Rosberg

 - - - - 1 19 34
23

Christian Klien

 - - - - - 14 48
24

Sebastian Vettel

 - - - - - 6 7
25

Vitantonio Liuzzi

 - - - - - 5 38
26

Christijan Albers

 - - - - - 4 46
27

Adrian Sutil

 - - - - - 1 16
28

Anthony Davidson

 - - - - - - 19
29

Scott Speed

 - - - - - - 28
<% dim objConnect dim objRecordset, objRecordset2 set objConnect = Server.CreateObject("ADODB.Connection") objConnect.Open "Records" set objRecordset = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT records.Nom, records.Titre, records.Victoires, records.Podiums, records.Poles, records.MTours, records.Points, records.NbGp FROM records ORDER BY records.Titre DESC , records.Victoires DESC , records.Podiums DESC , records.Poles DESC , records.MTours DESC , records.Points DESC , records.NbGp;" objRecordset.Open strSQL, objConnect, 3 %> <% intSite = 1 Do While not objRecordset.eof %>
<% objRecordset.MoveNext intSite = intSite + 1 loop set objRecordset=nothing set objRecordset2=nothing set objConnect=nothing %>

<% if intSite > 100 then Response.Write("") else Response.Write(intSite) end if %>

<%=objRecordset("Nom")%>

<% if Isnull(objRecordset("Titre")) then Response.Write("-") else Response.Write(objRecordset("Titre")) end if %>

<% if Isnull(objRecordset("Victoires")) then Response.Write("-") else Response.Write(objRecordset("Victoires")) end if %>

<% if Isnull(objRecordset("Podiums")) then Response.Write("-") else Response.Write(objRecordset("Podiums")) end if %>

<% if Isnull(objRecordset("Poles")) then Response.Write("-") else Response.Write(objRecordset("Poles")) end if %>

<% if Isnull(objRecordset("MTours")) then Response.Write("-") else Response.Write(objRecordset("MTours")) end if %>

<% if Isnull(objRecordset("Points")) then Response.Write("-") else Response.Write(objRecordset("Points")) end if %>

<% if Isnull(objRecordset("NbGp")) then Response.Write("-") else Response.Write(objRecordset("NbGp")) end if %>
:: Recherche ::

Recherche dans le site F1-legend par mot-clé



Mot exact
 

résultats par page

:: Humour ::

Le dessin hebdomadaire de Fiszman

 
 paru dans Auto-Hebdo
 
:: Base de donnée ::

Recherche dans les infos depuis 1999

Infos