Archives Atlantique 1964

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

Menu

Les Données Cycloniques de 1964

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 #1	2-11 JUIN	50	-	-
2	Tempête Tropicale #2	28 JUIL- 3 AOUT	45	1006	-
3	Tempête Tropicale ABBY	5- 8 AOUT	55	1000	-
4	Tempête Tropicale BRENDA	7-10 AOUT	45	1006	-
5	Ouragan CLEO	20 AOUT- 5 SEP	135	950	5
6	Ouragan DORA	28 AOUT-16 SEP	115	942	4
7	Ouragan ETHEL	4-16 SEP	100	969	3
8	Tempête Tropicale FLORENCE	5-10 SEP	40	-	-
9	Ouragan GLADYS	13-25 SEP	125	945	4
10	Ouragan HILDA	28 SEP- 5 OCT	130	941	4
11	Ouragan ISBELL	8-17 OCT	110	964	3
12	Tempête Tropicale #12	5-10 NOV	35	997	-

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 #1 (02-11 JUIN) Vents maxi: 50
	Tempête Tropicale #2 (28 JUIL-03 AOUT) Vents maxi: 45 Pres. mini: 1006
	Tempête Tropicale ABBY (05-08 AOUT) Vents maxi: 55 Pres. mini: 1000
	Tempête Tropicale BRENDA (07-10 AOUT) Vents maxi: 45 Pres. maxi: 1006
	Ouragan CLEO (20 AOUT-05 SEP) Vents maxi: 135 Pres. mini: 950 Catégorie: 5
	Ouragan DORA (28 AOUT-16 SEP) Vents maxi: 115 Pres. mini: 942 Catégorie: 4
	Ouragan ETHEL (04-16 SEP) Vents maxi: 100 Pres. mini: 969 Catégorie: 3
	Tempête Tropicale FLORENCE (05-10 SEP) Vents maxi: 40
	Ouragan GLADYS (13-25 SEP) Vents maxi: 125 Pres. mini: 945 Catégorie: 4
	Ouragan HILDA (28 SEP-05 OCT) Vents maxi: 130 Pres. mini: 941 Catégorie: 4
	Ouragan ISBELL (08-17 OCT) Vents maxi: 110 Pres. mini: 964 Catégorie: 3
	Tempête Tropicale #12 (05-10 NOV) Vents maxi: 35 Pres. mini: 997

Document original fourni par , traduit par le webmaster

Shopping

Le 12 septembre 1928

18.68 €

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