%
accessdb="/sondages/votestan.mdb"
cn="driver={Microsoft Access Driver (*.mdb)};"
cn=cn & "dbq=" & server.mappath(accessdb)
Set db = Server.CreateObject("ADODB.Connection")
db.Open cn,"",""
' Là je teste si l'internaute a voté pour un des deux formulaires
IF request.Form("VOTE1")<>"" OR request.Form("VOTE2")<>"" Then
' Il a voté
' Maintenant on va tester si il a déjà voté pour la question (en question)
accessdb="/sondages/votestan"
set rs = server.createobject("ADODB.Recordset")
sql = "select ip from VOTES"
sql = sql + " where ip ='" & Request.ServerVariables("REMOTE_ADDR") & "' and IDQUESTION=" & Request.Form("question")
rs.Open sql, db
if rs.eof then
rs.close
Set rs=Nothing
' Il n'a pas encore voté pour cette question
' donc on va mettre à jour les deux tables (QUESTIONS et VOTES)
'On commence par la Table VOTES
sql = "insert into VOTES (IDQUESTION,IP,SELECTION,DATEVOTE) "
sql = sql & "values (" & Request.Form("QUESTION") & ",'" & Request.ServerVariables("REMOTE_ADDR") & "',"
sql = sql & Request.Form("a_input") & ",#" & DATE() & "#)"
db.execute(sql)
'Puis par la table QUESTIONS
sql = "UPDATE QUESTIONS SET SELECTION" & REQUEST.FORM("a_input") & "=SELECTION" & REQUEST.FORM("a_input") & "+ 1"
sql = sql & " Where IDQUESTION=" & Request.Form("question")
db.execute(sql)
Else
rs.close
Set rs=Nothing
END IF
END IF
%>
Archives Atlantique 2002
|
|
Les
Données Cycloniques de 2002
Résumé Individuel
des Tempêtes
N.B: Les
ouragans ou tempêtes ayant affecté les Antilles Françaises
sont en rouge.
Vents en noeuds,
pression en millibars, catégorie Saffir-Simpson
|
#
|
Noms
|
Dates
|
Vent
|
Pres
|
Cat
|
|
1
|
Tempête Tropicale ARTHUR |
14-16 JUIL
|
50
|
997
|
-
|
|
2
|
Tempête Tropicale BERTHA |
04-09 AOÛT
|
35
|
1008
|
-
|
|
3
|
Tempête Tropicale CRISTOBAL |
05-08 AOÛT
|
40
|
999
|
-
|
|
4
|
Tempête Tropicale DOLLY |
29 AOÛT-04
SEP
|
55
|
994
|
-
|
|
5
|
Tempête Tropicale EDOUARD |
01-06 SEP
|
55
|
1002
|
-
|
|
6
|
Tempête Tropicale FAY |
05-08 SEP
|
50
|
998
|
-
|
|
7
|
Dépression Tropicale
#7 |
07-08 SEP
|
30
|
1009
|
-
|
|
8
|
Ouragan GUSTAV |
08-12 SEP
|
80
|
960
|
1
|
|
9
|
Tempête Tropicale HANNA |
12-14 SEP
|
45
|
1001
|
-
|
|
10
|
Ouragan ISIDORE |
14-26 SEP
|
110
|
934
|
3
|
|
11
|
Tempête Tropicale JOSEPHINE |
17-19 SEP
|
50
|
1004
|
-
|
|
12
|
Ouragan KYLE |
20 SEP-12
OCT
|
75
|
980
|
1
|
|
13
|
Ouragan LILI |
21 SEP-04
OCT
|
125
|
938
|
4
|
|
14
|
Dépression Tropicale
#14 |
14-16 OCT
|
30
|
1002
|
-
|
Détails
Individuels des Tempêtes
N.B: Les
ouragans ou tempêtes ayant affecté les Antilles Françaises
sont en rouge.
.gif) |
Tempête Tropicale ARTHUR
(14-16 JUIL)
Vents maxi: 50
Pres. mini: 997
|
|
Tempête Tropicale BERTHA
(04-09 AOÛT)
Vents maxi: 35
Pres. mini: 1008
|
|
Tempête Tropicale CRISTOBAL
(05-08 AOÛT)
Vents maxi: 40
Pres. mini: 999
|
|
Tempête Tropicale DOLLY
(29 AOÛT-04 SEP)
Vents maxi: 55
Pres. mini: 994
|
|
Tempête Tropicale EDOUARD
(01-06 SEP)
Vents maxi: 55
Pres. mini: 1002
|
|
Tempête Tropicale FAY
(05-08 SEP)
Vents maxi: 50
Pres. mini: 998
|
|
Dépression Tropicale #7
(07-08 SEP)
Vents maxi: 30
Pres. mini: 1009
|
|
Ouragan GUSTAV
(08-12 SEP)
Vents maxi: 80
Pres. mini: 960
Catégorie: 1
|
|
Tempête Tropicale HANNA
(12-14 SEP)
Vents maxi: 45
Pres. mini: 1001
|
|
Ouragan ISIDORE
(14-26 SEP)
Vents maxi: 110
Pres. mini: 934
Catégorie: 3
|
|
Tempête Tropicale JOSEPHINE
(17-19 SEP)
Vents maxi: 50
Pres. mini: 1004
|
|
Ouragan KYLE
(20 SEP-12 OCT)
Vents maxi: 75
Pres. mini: 980
Catégorie: 1
|
.gif) |
Ouragan LILI
(21 SEP-04 OCT)
Vents maxi: 125
Pres. mini: 938
Catégorie: 4
|
|
Dépression Tropicale #14
(14-16 OCT)
Vents maxi: 30
Pres. mini: 1002
|
Document
original fourni par ,
traduit par le webmaster |

|
| Shopping |
| |
| |
Le 12 septembre
1928

18.68 €
|
|
| |
|
 |
|
| |
|
|
| |
| Abris Sûrs
|
| |
| |
Recherchez
l'abri cyclonique le plus proche de chez vous!
|
|
| |
|
 |
|
| |
|
|
|