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

La Climatologie dans l'Atlantique
et le Pacifique Est

 

Les images et tableaux ci-dessous décrivent la progression d'une saison cyclonique normale en termes de nombre total de systèmes tropicaux et d'ouragans générés par an dans les bassins Atlantique et Pacifique Est.
Dans les images, les courbes représentent la production cumulative moyenne de l'ensemble des systèmes tropicaux, des ouragans et des ouragans de classe 3 (ou plus) dans ces bassins.
Par exemple, en début septembre d'une année moyenne, il faudrait compter sur quatre tempêtes nommées, dont deux seraient devenues des ouragans, et un d'entre eux un ouragan de catégorie 3 ou plus.
Les tableaux listent les dates approximatives auxquelles se produisent un nombre donné de système tropical, d'ouragan et d'ouragan cat. 3.

nombre annuel moyen de systèmes tropicaux dans l'atlantique
Document N.H.C


Document N.H.C

 

Tableau 1. Progression d'une saison cyclonique moyenne (1944-1996) dans l'Atlantique.
Date à laquelle se produiraient un nombre de phénomènes.
Nombre Systèmes Nommés Ouragans Catégorie 3 ou +
1
11 juillet
14 août
4 septembre
2
8 août
30 août
28 septembre
3
21 août
10 septembre
-
4
30 août
24 septembre
-
5
7 septembre
15 octobre
-
6
14 septembre
-
-
7
23 septembre
-
-
8
5 octobre
-
-
9
21 octobre
-
-

 

Tableau 2. Progression d'une saison cyclonique moyenne (1966-1996) dans l'Est Pacifique.
Date à laquelle se produiraient un nombre de phénomènes.
Nombre Systèmes Nommés Ouragans Catégorie 3 ou +
1
9 juin
24 juin
19 juillet
2
23 juin
13 juillet
23 août
3
3 juillet
29 juillet
19 septembre
4
13 juillet
12 août
29 octobre
5
20 juillet
25 août
-
6
28 juillet
5 septembre
-
7
5 août
17 septembre
-
8
14 août
2 octobre
-
9
21 août
25 octobre
-
10
28 août
-
-
11
5 septembre
-
-
12
13 septembre
-
-
13
21 septembre
-
-
14
30 septembre
-
-
15
9 octobre
-
-
16
27 octobre
-
-

 
Annuaire
 



   Cliquez ici pour afficher le mode d'emploie

 

Recherche d'une société par son nom, son numéro de téléphone, son adresse ou par secteur d'activité.

 
 


 
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