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

Les Images Satellites
dans l'océan Indien

Tracés des Cyclones Tropicaux

Conditions Météorologiques

Images Satellite

Océan Indien Nord

Indian Ocean

Arabian Sea

Océan Indien Sud Océan Indien Sud-Est (Australie) Imagerie Hémishpérique

Modèles Numériques et Analyse des Vents

Tropical Wave Tracking (GMS 5/GOES 10; CIMSS)

Wind Analysis (CIMSS)

West (Meteosat 5)

East (GMS 5)

Produits MPEG

Indian Ocean Animations (CIMSS)

West

East

Wavetrak Animations (CIMSS)

Wind Analysis Animations (CIMSS)

West (Meteosat 5)

East (GMS 5)

 

Températures de Surface et Hauteur des Vagues

Sea Surface Temperature

High-Resolution Sea Surface Temperature (FNMOC NCODA)
Anomaly
Climatology
Sea Surface Temperature (SSEC)
Northern Sea Ice Concentration (NSIDC)
Southern Sea Ice Concentration (NSIDC)

Wave Models

Global WAM Forecasts (FNMOC WAM)

 

 

Remerciement à Jonathan EDWARDS
Ces mêmes images sont accessibles en anglais sur le site SUPERTyphoon


Shopping
  Cassettes Vidéo
DVD
Livres en français
 
 
 
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