<% 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 sud de l'Océan Indien 2004
Menu
Infos pratiquesInfos ScientifiquesArchives de l'océan Indien Nord (en cours de constitution) Archives du Pacifique Est La boutique des TempêtesLa Foire Aux Questions © C. LandseaLes liens utilesEn cours de rénovation Les organismes de référenceLes contributeurs à ce site...Les grandes figures de la météo cyclonique

Les Données Cycloniques de 2004


Résumé Individuel des Tempêtes

Vents en noeuds, pression en millibars, catégorie Saffir-Simpson.

#
Noms
Dates
Vent
Pres
Cat
1
 Tempête tropicale AIBAMBA
29 SEP-04 OCT
50
-
2
 Cyclone BENI
09-22 NOV
105
3
3
 Cyclone CELA
5-21 DEC
65
1
4
 Cyclone DARIUS
29 DEC-04 JAN
65
1
5
 Tempête tropicale KEN
05-06 JAN
35
-
6
 Cyclone ELITA
26 JAN-04 FEV
65
1
7
 Dépression tropicale 10S
27-27 JAN
30
-
8
 Cyclone FRANK
29 JAN-06 FEV
125
4
9
 Tempête tropicale LINDA
30 JAN-01 FEV
45
-
10
 Cyclone MONTY
27 FEV-02 MAR
110
3
11
 Dépression tropicale EVAN
02-02 MAR
25
-
12
 Dépression tropicale 16S
02-02 MAR
30
-
13
 Cyclone GAFILO
03-11 MAR
140
5
14
 Cyclone NICKY_HELMA
08-13 MAR
70
1
15
 Cyclone FAY
16-27 MAR
120
4
16
 Dépression tropicale 21S
23-24 MAR
30
-
17
 Cyclone OSCAR_ITSENG
23-28 MAR
110
3
18
 Tempête tropicale 23S
05-06 JUN
35
-
19
 Cyclone JUBA
13-14 MAY
65
1

Détails Individuels des Tempêtes

Tempête tropicale #1
 (29 SEP-04 OCT)

Vents maxi: 50

Cyclone BENI
 (9-22 NOV)

Vents maxi: 105
Catégorie: 3

Cyclone CELA
 (5-21 DEC)

Vents maxi: 65
Catégorie: 1

Track

Cyclone DARIUS
(31-04 JAN)

Vents maxi: 65
Catégorie: 1

 

Tempête tropicale KEN
(05-06 JAN)

Vents maxi: 35

 

Track

Cyclone ELITA
(26 JAN-04 FEV)

Vents maxi: 65
Catégorie: 1

 

Dépression tropicale 10S
 (27-27 JAN)

Vents maxi: 30

 

Cyclone FRANK
(29 JAN-06 FEV)

Vents maxi: 125
Catégorie: 4

 

Tempête tropicale LINDA
(30 JAN-01 FEV)

Vents maxi: 45

 

Cyclone MONTY
(27 FEV-02 MAR)

Vents maxi: 110
Catégorie: 3

 

Dépression tropicale EVAN
(02-02 MAR)

Vents maxi: 25

 

Dépression tropicale 16S
(02-02 MAR)

Vents maxi: 30

 

Cyclone GAFILO
(03-11 MAR)

Vents maxi: 140
Catégorie: 5

 

Cyclone NICKY_HELMA
(08-13 MAR)

Vents maxi: 70
Catégorie: 1

 

Cyclone FAY
(16-27 MAR)

Vents maxi: 120
Catégorie: 4

 

Dépression tropicale 21S
 (23-24 MAR)

Vents maxi: 30

 

Cyclone OSCAR_ITSENG
(23-28 MAR)

Vents maxi: 110
Catégorie: 3

 

Cyclone JUBA
 (13-14 MAY)

Vents maxi: 65
Catégorie: 1

Tempête tropicale 23S
(05-06 JUN)

Vents maxi: 35

 

Document original fourni par , traduit par le webmaster
Shopping
  Cassettes Vidéo
Livres en français
Livres en anglais		  
 
 
Abris Sûrs
 

Recherchez l'abri cyclonique le plus proche de chez vous!

  Recherche par:

  Entrez votre sélection:

 
 
 
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 %>
">

<%= question %> :

Aucun
1 à 2
3
4
5 ou plus

<% ' Si tu veux utiliser le même script plusieurs fois sur ta page, nomme la balise suivante avec 1 nom différent ' . Là g mis VOTE1 %>

 
 
Archives
 

Recherchez un cyclone par