%
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 1999
|
|
Les
Données Cycloniques de 1999
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 ARLENE |
11-18
JUIN
|
50
|
1000
|
-
|
|
2
|
Ouragan
BRET |
18-23
AOUT
|
120
|
945
|
4
|
|
3
|
Ouragan
CINDY |
19-31
AOUT
|
120
|
944
|
4
|
|
4
|
Ouragan
DENNIS |
24
AOUT-05 SEP
|
90
|
-
|
2
|
|
5
|
Tempête
Tropicale EMILY |
24-28
AOUT
|
55
|
1004
|
-
|
|
6
|
Ouragan
FLOYD |
07-17
SEP
|
135
|
921
|
4
|
|
7
|
Ouragan
GERT |
11-23
SEP
|
130
|
930
|
4
|
|
8
|
Tempête
Tropicale HARVEY |
19-22
SEP
|
50
|
995
|
-
|
|
9
|
Ouragan
IRENE |
13-19
OCT
|
90
|
958
|
2
|
|
10
|
Ouragan
JOSE |
17-25
OCT
|
85
|
977
|
2
|
|
11
|
Tempête
Tropicale KATRINA |
28
OCT-01 NOV
|
35
|
999
|
-
|
|
12
|
Ouragan
LENNY |
13-21
NOV
|
130
|
929
|
4
|
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 ARLENE
(11-18 JUIN)
Vents maxi: 50
Pres. mini: 1000
|
|
Ouragan
BRET
(18-23 AOUT)
Vents
maxi: 120
Pres: 945
Catégorie: 4
|
|
Ouragan
CINDY
(19-31 AOUT)
Vents
maxi: 120
Pres. mini: 944
Catégorie: 4
|
|
Ouragan
DENNIS
(24 AOUT-05 SEP)
Vents
maxi: 90
Catégorie: 2
|
|
Tempête
Tropicale EMILY
(24-28 AOUT)
Vents
maxi: 55
Pres. mini: 1004
|
|
Ouragan
FLOYD
(07-17 SEP)
Vents
maxi: 135
Pres. mini: 921
Catégorie: 4
|
|
Ouragan
GERT
(11-23 SEP)
Vents
maxi: 130
Pres. mini: 930
Catégorie: 4
|
|
Tempête
Tropicale HARVEY
(19-22 SEP)
Vents
maxi: 50
Pres. mini: 995
|
|
Ouragan
IRENE
(13-19 OCT)
Vents
maxi: 90
Pres. mini: 958
Catégorie: 2
|
|
Ouragan
JOSE
(17-25 OCT)
Vents
maxi: 85
Pres. mini: 977
Catégorie: 2
|
|
Tempête
Tropicale KATRINA
(28 OCT-01 NOV)
Vents
maxi: 35
Pres. mini: 999
|
|
Ouragan
LENNY
(13-21 NOV)
Vents
maxi: 130
Pres. mini: 929
Catégorie: 4
|
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 |
|
|
 |
|
|