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

Les Universités

 

Etats Unis - Reste du Monde

Aux Etats-Unis

&NomduSite=<%=Server.UrlEncode("DuPage NEXLAB")%>" target="_blank">DuPage NEXLAB

&NomduSite=<%=Server.UrlEncode("Colorado State University")%>" target="_blank">Colorado State University Département des Sciences Atmosphériques

&NomduSite=<%=Server.UrlEncode("Florida State University")%>" target="_blank">Florida State University Météorologie

&NomduSite=<%=Server.UrlEncode("Florida Explores!")%>" target="_blank">Florida EXPLORES! World Headquarters (FSU)

&NomduSite=<%=Server.UrlEncode("Jackson State University")%>" target="_blank">Jackson State University Programme de Météorologie

&NomduSite=<%=Server.UrlEncode("Louisiana State University")%>" target="_blank">Louisiana State University Laboratoire Earth Scan

&NomduSite=<%=Server.UrlEncode("M.I.T")%>" target="_blank">MIT Atmospheres, Oceans, and Climate

&NomduSite=<%=Server.UrlEncode("Ohio State University")%>" target="_blank">Ohio State University Programme de Sciences Atmosphériques

&NomduSite=<%=Server.UrlEncode("Pennsylvania State University")%>" target="_blank">Pennsylvania State University Département de Météorologie

&NomduSite=<%=Server.UrlEncode("Purdue University")%>" target="_blank">Purdue University Sciences de la Terre et de l'Atmosphère

&NomduSite=<%=Server.UrlEncode("San Francisco State University")%>" target="_blank">San Francisco State University Météorologie

&NomduSite=<%=Server.UrlEncode("San Jose State University")%>" target="_blank">San Jose State University Météorologie

&NomduSite=<%=Server.UrlEncode("State University of New York - Albany")%>" target="_blank">SUNY-Albany Département des Sciences Terrestres et Atmosphériques

&NomduSite=<%=Server.UrlEncode("Texas A&M University")%>" target="_blank">Texas A&M University Département de Météorologie

&NomduSite=<%=Server.UrlEncode("U.C.L.A")%>" target="_blank">UCLA Sciences Atmosphériques

&NomduSite=<%=Server.UrlEncode("University of Hawaii")%>" target="_blank">University of Hawaii Météorologie

&NomduSite=<%=Server.UrlEncode("University of Illinois")%>" target="_blank">University of Illinois

&NomduSite=<%=Server.UrlEncode("University of Miami")%>" target="_blank">University of Miami (RSMAS) Sciences Atmosphériques et Marines

&NomduSite=<%=Server.UrlEncode("University of Michigan")%>" target="_blank">University of Michigan Sciences de l'Espace, de l'Atmosphère et des Océans

&NomduSite=<%=Server.UrlEncode("Weather Underground")%>" target="_blank">University of Michigan Weather Underground

&NomduSite=<%=Server.UrlEncode("University of Oklahoma")%>" target="_blank">University of Oklahoma Ecole de Météorologie

&NomduSite=<%=Server.UrlEncode("University of Washington")%>" target="_blank">University of Washington Sciences Atmosphériques

&NomduSite=<%=Server.UrlEncode("University of Wisconsin")%>" target="_blank">University of Wisconsin SSEC

&NomduSite=<%=Server.UrlEncode("University of Wyoming")%>" target="_blank">University of Wyoming Sciences Atmosphériques

Hors des Etats Unis

&NomduSite=<%=Server.UrlEncode("University of Cape Town, Afrique du Sud")%>" target="_blank">University of Cape Town Afrique du Sud

 
Shopping
 

Le Guide des Premiers Secours

cliquez ici pour acheter ce livre

9.98 €cliquez ici pour acheter ce livre

  
 


 
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