<% 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 Atlantique 1979
Menu
Infos pratiquesInfos Scientifiques Archives du Pacifique EstLa 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 1979

NB: A partir de cette année 1979, les ouragans et tempêtes portent alternativement
un prénom masculin ou féminin, d'origine anglaise, espagnole ou française
et selon une liste établie pour six ans


Résumé Individuel des Tempêtes
N.B: Les ouragans ou tempêtes ayant affecté les Antilles Françaises sont en rouge

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

#
 Noms Dates Vents Pres Cat
1
 Tempête Tropicale ANA
19-24 JUIN
50
1005
-
2
 Ouragan BOB
9-16 JUIL
65
986
1
3
 Tempête Tropicale CLAUDETTE
15-29 JUIL
45
997
-
4
 Ouragan DAVID
25 AOUT- 8 SEP
150
924
5
5
 Tempête Tropicale ELENA
30 AOUT- 2 SEP
35
1004
-
6
 Ouragan FREDERIC
29 AOUT-15 SEP
115
943
4
7
 Ouragan GLORIA
4-15 SEP
85
975
2
8
 Ouragan HENRI
15-24 SEP
75
983
1
9
 Tempête Subtropicale 1
23-25 OCT
65
980
1

Détails Individuels des Tempêtes
N.B: Les ouragans ou tempêtes ayant affecté les Antilles Françaises sont en rouge.


Tempête Tropicale ANA
(19-24 JUIN)

Vents maxi: 50
Pres. mini: 1005

Ouragan BOB
(09-16 JUIL)

Vents maxi: 65
Pres. mini: 986
Catégorie: 1

Tempête Tropicale CLAUDETTE
(15-29 JUIL)

Vents maxi: 45
Pres. maxi: 997

Ouragan DAVID
(25 AOUT-08 SEP)

Vents maxi: 150
Pres: 924
Catégorie: 5

Tempête Tropicale ELENA
(30 AOUT-02 SEP)

Vents maxi : 35
Pres. mini: 1004

Ouragan FREDERIC
(29 AOUT-15 SEP)

Vents maxi: 115
Pres. mini: 943
Catégorie: 4

Ouragan GLORIA
(04-15 SEP)

Vents maxi: 85
Pres. mini: 975
Catégorie: 2

Ouragan HENRI
(15-24 SEP)

Vents maxi: 75
Pres. mini: 983
Catégorie: 1

Tempête Subtropicale 1
(23-25 OCT)

Vents maxi: 65
Pres. mini: 980
Catégorie: 1

Document original fourni par , traduit par le webmaster


Shopping
 

Le 12 septembre 1928

cliquez ici pour acheter ce livre

18.68 €cliquez ici pour acheter ce livre

  
 


 
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