% 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 %>
|
Les Données Cycloniques de 2002 |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
#
|
Noms
|
Dates
|
Vent
|
Pres
|
Cat
|
|---|---|---|---|---|---|
|
1
|
Tempête tropicale #1 | 4- 8 OCT |
35 |
997 |
- |
|
2
|
Tempête tropicale #2 | 24 OCT- 1 NOV |
55 |
984 |
- |
|
3
|
Tempête tropicale #3 | 16-23 NOV |
35 |
997 |
- |
|
4
|
Tempête tropicale #4 | 20-24 NOV |
35 |
997 |
- |
5 |
Cyclone #5 | 25 NOV- 5 DEC |
75 |
967 |
1 |
6 |
Tempête tropicale #6 | 30 NOV- 3 DEC |
35 |
997 |
- |
7 |
Cyclone #7 | 28 DEC- 2 JAN |
100 |
944 |
3 |
8 |
Tempête tropicale #8 | 30 DEC- 3 JAN |
50 |
987 |
- |
9 |
Tempête tropicale #9 | 3- 4 JAN |
45 |
991 |
- |
10 |
Cyclone #10 | 16-25 JAN |
130 |
910 |
4 |
11 |
Cyclone #11 | 23-28 JAN |
75 |
967 |
1 |
12 |
Cyclone #12 | 31 JAN-11 FEV |
115 |
927 |
4 |
13 |
Cyclone #13 | 2- 6 FEV |
125 |
916 |
4 |
14 |
Cyclone #14 | 10-13 FEV |
75 |
967 |
1 |
15 |
Cyclone #15 | 14-22 FEV |
120 |
922 |
4 |
16 |
Tempête tropicale #16 | 23-26 FEV |
35 |
997 |
- |
17 |
Tempête tropicale #17 | 4- 7 MAR |
50 |
987 |
- |
18 |
Cyclone #18 | 5-14 MAR |
140 |
898 |
5 |
19 |
Tempête tropicale #19 | 13-16 MAR |
35 |
997 |
- |
20 |
Cyclone #20 | 22-29 MAR |
110 |
933 |
3 |
21 |
Cyclone #21 | 5-11 AVR |
105 |
938 |
3 |
22 |
Tempête tropicale #22 | 9-15 AVR |
50 |
987 |
- |
23 |
Cyclone #23 | 2-11 MAI |
65 |
976 |
1 |
24 |
Tempête tropicale #24 | 9-14 MAI |
45 |
991 |
- |
25 |
Tempête tropicale #25 | 23-28 MAI |
35 |
997 |
- |
|
||||||||||||
![]() |
||||||||||||
|
||||||||||||
![]() |
||||||||||||
|
||||||||||||
|
||||||||||||