Bienvenue sur Ouragans.com

<% 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 %> Bienvenue sur Ouragans.com

Menu

Sites Militaires

&NomduSite=<%=Server.UrlEncode("Air Force Weather Agency")%>" target="_blank">Air Force Weather Agency

&NomduSite=<%=Server.UrlEncode("CNMOC Hurricane Handbook")%>" target="_blank">CNMOC Hurricane Havens Handbook

&NomduSite=<%=Server.UrlEncode("CNMOC Typhoon Handbook")%>" target="_blank">CNMOC Typhoon Havens Handbook

&NomduSite=<%=Server.UrlEncode("FNMOC")%>" target="_blank">Fleet Numerical Meteorology and Oceanography Center

&NomduSite=<%=Server.UrlEncode("Hurricanes Hunters")%>" target="_blank">Hurricane Hunters - 53 WRS

&NomduSite=<%=Server.UrlEncode("JWTC")%>" target="_blank">Joint Typhoon Warning Center, Hawaii

&NomduSite=<%=Server.UrlEncode("Kadena AFB")%>" target="_blank">Kadena AFB Weather

&NomduSite=<%=Server.UrlEncode("NAMOC")%>" target="_blank">Naval Atlantic Meteorology and Oceanography Center, Norfolk, VA

&NomduSite=<%=Server.UrlEncode("NPOMC")%>" target="_blank">Naval Pacific Oceanography and Meteorology Center, Hawaii

&NomduSite=<%=Server.UrlEncode("NRL Monterrey")%>" target="_blank">Naval Research Laboratory, Monterey, CA

&NomduSite=<%=Server.UrlEncode("PACAF Weather Info")%>" target="_blank">PACAF Weather Info

&NomduSite=<%=Server.UrlEncode("Patrick AFB 45th Weather Squadron")%>" target="_blank">Patrick AFB 45th Weather Squadron

Shopping

Le Guide des Premiers Secours

9.98 €

Abris Sûrs

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

Entrez votre ville:

Entrez votre région:

Pronostics

Combien de cyclones aux Antilles en 2001 ?

Aucun
Un
Deux
Trois
Plus que trois

Archives


	Recherchez un cyclone par