<% 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 Pacifique Est 2004
Menu
Infos pratiquesInfos ScientifiquesArchives de l'océan Indien NordArchives de l'océan AtlantiqueArchives du Pacifique OuestArchives de l'océan Indien SudLa boutique des TempêtesLa Foire Aux Questions © C. LandseaLes liens utilesEn cours de rénovationMythes et légendes sur les cyclonesEn cours de constitutionLes organismes de référenceLes contributeurs à ce site...Les grandes figures de la météo cycloniqueArchives du Pacifique Sud

Les Données Cycloniques de 2004

Résumé Individuel des Tempêtes

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

#
Noms
Dates
Vents
Pres
Cat
1
 Tempête tropicale AGATHA
22-25 MAI
45
-
-
2
 Dépression tropicale 1E
02-03 JUIL
25
1007
-
3
 Dépression tropicale 1C
04-05 JUIL
25
1007
-
4
 Tempête tropicale BLAS
12-15 JUIL
50
-
-
5
 Ouragan CELIA
19-25 JUIL
70
-
1
6
 Ouragan DARBY
26 JUIL-01 AOUT
105
-
3
7
 Dépression tropicale 6E
29 JUIL-03 AOUT
30
1006
-
8
 Tempête tropicale ESTELLE
19-26 AOUT
60
-
-
9
 Ouragan FRANK
23-26 AOUT
75
-
1
10
 Dépression tropicale 9E
23-26 AOUT
30
1005
-
11
 Tempête tropicale GEORGETTE
26-30 AOUT
50
-
-
12
 Ouragan HOWARD
30 AOUT-05 SEP
120
-
4
13
 Ouragan ISIS
08-17 SEP
65
-
1
14
 Ouragan JAVIER
10-19 SEP
130
-
4
15
 Tempête tropicale KAY
04-06 OCT
40
-
-
16
 Tempête tropicale LESTER
11-13 OCT
45
-
-
17
 Tempête tropicale 16E
26-26 OCT
35
-
-

 

Détails Individuels des Tempêtes

Track

Tempête tropicale AGATHA
 (22-25 MAI)

Vents maxi: 45

 
Track

Dépression tropicale 2E
 (02-03 JUIL)

Vents maxi: 25
Pres. mini: 1007

 
Track

Dépression tropicale 1C
(04-05 JUIL)

Vents maxi: 25
Pres. mini: 1007

 
Track

Tempête tropicale BLAS
 (12-15 JUIL)

Vents maxi: 50

 
Track

Ouragan CELIA
(19-25 JUIL)

Vents maxi: 70
Catégorie: 1

 
Track

Ouragan DARBY
(26 JUIL-01 AOUT)

Vents maxi: 105
Catégorie: 3

 
Track

Dépression tropicale 6E
 (29 JUIL-03 AOUT)

Vents maxi: 30
Pres. mini: 1006

 
Track

Tempête tropicale ESTELLE
 (19-26 AOUT)

Vents maxi: 60

 
Track

Ouragan FRANK
(23-26 AOUT)

Vents maxi: 75
Catégorie: 1

 
Track

Dépression tropicale 9E
 (23-26 AOUT)

Vents maxi: 30
Pres. mini: 1005

 
Track

Tempête tropicale GEORGETTE
 (26-30 AOUT)

Vents maxi: 50

 
Track

Ouragan HOWARD
(30 AOUT-05 SEP)

Vents maxi: 120
Catégorie: 4

 
Track

Ouragan ISIS
 (08-17 SEP)

Vents maxi: 65
Catégorie: 1

 
Track

Ouragan JAVIER
(10-19 SEP)

Vents maxi: 130
Catégorie: 4

 
Track

Tempête tropicale KAY
(04-06 OCT)

Vents maxi: 40

 
Track

Tempête tropicale LESTER
(11-13 OCT)

Vents maxi: 45

 
Track

Tempête tropicale 16E
 (26-26 OCT)

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