% 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 1997 |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
#
|
Noms
|
Dates
|
Vent
|
Pres
|
Cat
|
|---|---|---|---|---|---|
|
1
|
Tempête tropicale #1 | 8-13
JUIL |
35 |
- |
- |
|
2
|
Tempête tropicale #2 | 14-21 AOUT |
45 |
- |
- |
|
3
|
Tempête tropicale #3 | 2- 9 SEP |
40 |
- |
- |
|
4
|
Cyclone #4 | 15-23 OCT |
65 |
- |
1 |
5 |
Cyclone #5 | 28 OCT-12 NOV |
125 |
- |
4 |
6 |
Tempête tropicale #6 | 19 NOV- 1 DEC |
50 |
- |
- |
7 |
Cyclone #7 | 20 NOV- 1 DEC |
65 |
- |
1 |
8 |
Cyclone #8 | 1-10 DEC |
120 |
- |
4 |
9 |
Tempête tropicale #9 | 3-16 DEC |
55 |
- |
- |
10 |
Tempête tropicale #10 | 10-17 DEC |
45 |
- |
- |
11 |
Tempête tropicale #11 | 13-27 DEC |
55 |
- |
- |
12 |
Cyclone #12 | 22 DEC-16 JAN |
85 |
- |
2 |
13 |
Cyclone #13 | 19-30 DEC |
90 |
- |
2 |
14 |
Tempête tropicale #14 | 25 DEC- 9 JAN |
60 |
- |
- |
15 |
Cyclone #15 | 30 DEC-11 JAN |
80 |
- |
1 |
16 |
Cyclone #16 | 1-11 JAN |
120 |
- |
4 |
17 |
Cyclone #17 | 8-17 JAN |
70 |
- |
1 |
18 |
Tempête tropicale #18 | 7-13 JAN |
45 |
- |
- |
19 |
Cyclone #19 | 13 JAN-14 FEV |
125 |
- |
4 |
20 |
Cyclone #20 | 18-31 JAN |
115 |
- |
4 |
21 |
Cyclone #21 | 17-30 JAN |
75 |
- |
1 |
22 |
Cyclone #22 | 20 JAN- 3 FEV |
65 |
- |
1 |
23 |
Cyclone #23 | 1-17 FEV |
90 |
- |
2 |
24 |
Tempête tropicale #24 | 8-12 FEV |
45 |
- |
- |
25 |
Cyclone #25 | 11-26 FEV |
65 |
- |
1 |
26 |
Tempête tropicale #26 | 14-22 FEV |
55 |
- |
- |
27 |
Tempête tropicale #27 | 16-26 FEV |
45 |
- |
- |
28 |
Tempête tropicale #28 | 22-25 FEV |
35 |
- |
- |
29 |
Tempête tropicale #29 | 21 FEV- 1 MAR |
50 |
- |
- |
30 |
Cyclone #30 | 25 FEV- 2 MAR |
75 |
- |
1 |
31 |
Cyclone #31 | 2-13 MAR |
120 |
- |
4 |
32 |
Cyclone #32 | 3-29 MAR |
90 |
- |
2 |
33 |
Cyclone #33 | 12-18 MAR |
75 |
- |
1 |
34 |
Tempête tropicale #34 | 15-19 AVR |
55 |
- |
- |
35 |
Cyclone #35 | 27 AVR- 6 MAI |
65 |
- |
1 |
36 |
Cyclone #36 | 4-17 MAI |
100 |
- |
3 |
37 |
Tempête tropicale #37 | 26-30 MAI |
35 |
- |
- |
38 |
Cyclone #38 | 5-15 JUIN |
115 |
- |
4 |
39 |
Tempête #92 | 22-24 JAN |
25 |
- |
- |
40 |
Tempête #98 | 14-16 FEV |
30 |
- |
- |
41 |
Tempête #99 | 13-13 JAN |
25 |
- |
- |
|
||||||||||||
![]() |
||||||||||||
|
||||||||||||
![]() |
||||||||||||
|
||||||||||||
|
||||||||||||