%
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 1988
|
|
Les Données Cycloniques de 1988
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 |
Vents |
Pres |
Cat |
|
1
|
Tempête
Tropicale ALBERTO |
5-
8 AOUT
|
35
|
1002
|
-
|
|
2
|
Tempête
Tropicale BERYL |
8-10
AOUT
|
45
|
1001
|
-
|
|
3
|
Tempête
Tropicale CHRIS |
21-30
AOUT
|
45
|
1005
|
-
|
|
4
|
Ouragan
DEBBY |
31 AOUT- 8 SEP
|
65
|
987
|
1
|
|
5
|
Tempête
Tropicale ERNESTO |
3-
5 SEP
|
55
|
994
|
-
|
|
6
|
Tempête
Tropicale #6 |
7-10
SEP
|
50
|
994
|
-
|
|
7
|
Ouragan
FLORENCE |
7-11
SEP
|
70
|
983
|
1
|
|
8
|
Ouragan
GILBERT |
8-20
SEP
|
160
|
888
|
5
|
|
9
|
Ouragan
HELENE |
19-30
SEP
|
125
|
938
|
4
|
|
10
|
Tempête
Tropicale ISAAC |
28
SEP- 1 OCT
|
40
|
1005
|
-
|
|
11
|
Ouragan
JOAN |
10-23
OCT
|
125
|
932
|
4
|
|
12
|
Tempête
Tropicale KEITH |
17-26
NOV
|
65
|
945
|
-
|
Détails
Individuels des Tempêtes
N.B: Les
ouragans ou tempêtes ayant affecté les Antilles Françaises
sont en rouge.
 |
Tempête
Tropicale ALBERTO
(05-08 AOUT)
Vents
maxi: 35
Pres. mini: 1002
|
.gif) |
Tempête
Tropicale BERYL
(08-10 AOUT)
Vents
maxi: 45
Pres. mini: 1001
|
.gif) |
Tempête
Tropicale CHRIS
(21-30 AOUT)
Vents
maxi: 45
Pres. mini: 1005
|
.gif) |
Ouragan
DEBBY
(31 AOUT-08 SEP)
Vents
maxi: 65
Pres. mini: 987
Catégorie: 1
|
.gif) |
Tempête
Tropicale ERNESTO
(03-05 SEP)
Vents
maxi: 55
Pres. mini: 994
|
.gif) |
Tempête
Tropicale #6
(07-10 SEP)
Vents
maxi: 50
Pres. mini: 994
|
.gif) |
Ouragan
FLORENCE
(07-11 SEP)
Vents
maxi: 70
Pres. mini: 983
Catégorie: 1
|
.gif) |
Ouragan
GILBERT
(08-20 SEP)
Vents
maxi: 160
Pres. mini: 888
Catégorie: 5
|
.gif) |
Ouragan
HELENE
(19-30 SEP)
Vents
maxi: 125
Pres. mini: 938
Catégorie: 4
|
.gif) |
Tempête
Tropicale ISAAC
(28 SEP-01 OCT)
Vents
maxi: 40
Pres. mini: 1005
|
.gif) |
Ouragan
JOAN
(10-23 OCT)
Vents
maxi: 125
Pres. mini: 932
Catégorie: 4
|
.gif) |
Tempête
Tropicale KEITH
(17-26 NOV)
Vents
maxi: 65
Pres. mini: 945
|
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!
|
|
| |
|
 |
|
| |
|
|
| |
| Pronostics |
| |
| |
<%LENUMERODEMAQUESTION=1 ' (par exemple)
set rs = server.createobject("ADODB.Recordset")
sql = "select question from questions Where IDQUESTION=" & LENUMERODEMAQUESTION
' LENUMERODEMAQUESTION est le numéro que tu auras choisi
rs.Open sql, db
QUESTION=rs("question")
rs.Close
Set rs=Nothing
' Maintenant tu formates ton formulaire %>
|
|
| |
|
 |
|
| |
| Archives |
|
|
 |
|
|