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

La Cyclogenèse
ou la formation des cyclones

Il existe sept zones de cyclogenèse dans le monde:

  • l'Atlantique nord
  • le Pacifique nord-est
  • Le Pacifique nord-ouest
  • le Pacifique sud / Australie
  • l'océan Indien nord
  • l'océan Indien sud-ouest
  • l'océan Indien sud-est / Australie

Voici la répartition de ces zones sur le globe.

les sept zones de cyclogénèse
Image 1: les sept zones de cyclogénèse


Image 2: les trajectoires des cyclones selon les océans

 


Image 3: les trajectoires des cyclones dans l'Atlantique nord

 


Image 4: les trajectoires des cyclones dans le nord de l'océan Indien

 


Image 5: les trajectoires des cyclones dans le sud-ouest de l'océan Indien

 


Image 6: les trajectoires des cyclones dans l'est de l'océan Indien

 


Image 2: les trajectoires des cyclones dans le sud de l'océan Pacifique
Annuaire
 



   Cliquez ici pour afficher le mode d'emploie

 

Recherche d'une société par son nom, son numéro de téléphone, son adresse ou par secteur d'activité.

 
 


 
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