%
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 1981
|
|
Les Données Cycloniques de 1981
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 ARLENE |
6-
9 MAI
|
50
|
999
|
-
|
|
2
|
Tempête
Tropicale BRET |
29
JUIN- 1 JUIL
|
60
|
996
|
-
|
|
3
|
Tempête
Tropicale CINDY |
2-
5 AOUT
|
50
|
1002
|
-
|
|
4
|
Ouragan
DENNIS |
7-22
AOUT
|
70
|
995
|
1
|
|
5
|
Ouragan
EMILY |
31
AOUT-12 SEP
|
80
|
966
|
1
|
|
6
|
Ouragan
FLOYD |
3-12
SEP
|
100
|
975
|
3
|
|
7
|
Ouragan
GERT |
7-15
SEP
|
90
|
988
|
2
|
|
8
|
Ouragan
HARVEY |
11-20
SEP
|
115
|
946
|
4
|
|
9
|
Ouragan
IRENE |
21
SEP- 3 OCT
|
105
|
959
|
3
|
|
10
|
Tempête
Tropicale JOSE |
29
OCT- 2 NOV
|
45
|
998
|
-
|
|
11
|
Ouragan
KATRINA |
3-
7 NOV
|
75
|
980
|
1
|
|
12
|
Tempête
Subtropicale 3 |
12-17
NOV
|
60
|
978
|
-
|
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 ARLENE
(06-09 MAI)
Vents
maxi: 50
Pres. mini: 999
|
.gif) |
Tempête
Tropicale BRET
(29 JUIN-01 JUIL)
Vents
maxi: 60
Pres. mini: 996
|
.gif) |
Tempête
Tropicale CINDY
(02-05 AOUT)
Vents
maxi: 50
Pres. mini: 1002
|
.gif) |
Ouragan
DENNIS
(07-22 AOUT)
Vents
maxi: 70
Pres. mini: 995
Catégorie: 1
|
.gif) |
Ouragan
EMILY
(31 AOUT-12 SEP)
Vents
maxi: 80
Pres. mini: 966
Catégorie: 1
|
.gif) |
Ouragan
FLOYD
(03-12 SEP)
Vents
maxi: 100
Pres. mini: 975
Catégorie: 3
|
.gif) |
Ouragan
GERT
(07-15 SEP)
Vents
maxi: 90
Pres. mini: 988
Catégorie: 2
|
.gif) |
Ouragan
HARVEY
(11-20 SEP)
Vents
maxi: 115
Pres. mini: 946
Catégorie: 4
|
.gif) |
Ouragan
IRENE
(21 SEP-03 OCT)
Vents
maxi: 105
Pres. mini: 959
Catégorie: 3
|
.gif) |
Tempête
Tropicale JOSE
(29 OCT-02 NOV)
Vents
maxi: 45
Pres. mini: 998
|
.gif) |
Ouragan
KATRINA
(03-07 NOV)
Vents
maxi: 75
Pres. mini: 980
Catégorie: 1
|
.gif) |
Tempête
Subtropicale 3
(12-17 NOV)
Vents
maxi: 60
Pres. mini: 978
|
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 |
|
|
 |
|
|