<% 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 %> Les cyclones de l'océan Indien
l'actualité cyclonique de l'île de la Réunion L'Australie



<% Dim ConnectDB, ObjetConnexion, ObjetEnregistrement,StrSQL, Concatenation ConnectDB = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../cyclones.mdb") & ";DefaultDir=" & Server.MapPath(".") Set objConnexion = Server.CreateObject ("ADODB.Connection") objConnexion.Open ConnectDB agir="select phenomene.idphen,phenomene.phenomene,bulletin.idnum,bulletin.stade,bulletin.nom,bulletin.latitude,bulletin.longitude,bulletin.bassin from phenomene,bulletin " agir=agir & "where bulletin.bassin='p' AND phenomene.idlastbul=bulletin.idnum" set Enregistrement=objConnexion.Execute(agir) %>
Situation Générale (Outlook)

Indien Sud-Ouest :
<% If enregistrement.eof then Response.Write"Aucun phénomène actif" Else do while not Enregistrement.eof Response.Write "  " & Enregistrement("stade") & " " & Enregistrement("nom") & "

" Enregistrement.movenext Loop End If Enregistrement.close set Enregistrement=nothing %>

Indien Nord-Ouest - Mer d'Oman:
<% agir="select phenomene.idphen,phenomene.phenomene,bulletin.idnum,bulletin.stade,bulletin.nom,bulletin.latitude,bulletin.longitude,bulletin.bassin from phenomene,bulletin " agir=agir & "where bulletin.bassin='i' AND phenomene.idlastbul=bulletin.idnum" set Enregistrement=objConnexion.Execute(agir) If enregistrement.eof then Response.Write"Aucun phénomène actif" Else do while not Enregistrement.eof Response.Write "  " & Enregistrement("stade") & " " & Enregistrement("nom") & "

" Enregistrement.movenext Loop End If Enregistrement.close set Enregistrement=nothing %>

Indien Nord-Est - Golfe du Bengale:
<% agir="select phenomene.idphen,phenomene.phenomene,bulletin.idnum,bulletin.stade,bulletin.nom,bulletin.latitude,bulletin.longitude,bulletin.bassin from phenomene,bulletin " agir=agir & "where bulletin.bassin='i' AND phenomene.idlastbul=bulletin.idnum" set Enregistrement=objConnexion.Execute(agir) If enregistrement.eof then Response.Write"Aucun phénomène actif" Else do while not Enregistrement.eof Response.Write "  " & Enregistrement("stade") & " " & Enregistrement("nom") & "

" Enregistrement.movenext Loop End If Enregistrement.close set Enregistrement=nothing %>

Indien Sud-Est - Australie:
<% agir="select phenomene.idphen,phenomene.phenomene,bulletin.idnum,bulletin.stade,bulletin.nom,bulletin.latitude,bulletin.longitude,bulletin.bassin from phenomene,bulletin " agir=agir & "where bulletin.bassin='i' AND phenomene.idlastbul=bulletin.idnum" set Enregistrement=objConnexion.Execute(agir) If enregistrement.eof then Response.Write"Aucun phénomène actif" Else do while not Enregistrement.eof Response.Write "  " & Enregistrement("stade") & " " & Enregistrement("nom") & "

" Enregistrement.movenext Loop End If Enregistrement.close set Enregistrement=nothing %>


Bulletins en version originale

Bureau of Meteorology (BoM) - Australie
Outlook: Centre de Darwin Centre de Brisbane
Bulletin cyclonique: Centre de Darwin Centre de Brisbane
Bulletin Maritime: Centre de Darwin Centre de Brisbane
Carte d'Alerte: Centre de Darwin Centre de Brisbane
Météo France - Nouvelle Calédonie
Bulletin Météo Spécial Bulletin Météo Marine Spécial
PAGASA - Philippines
Storm Warning Bulletin Carte de trajectoire

En Détail

<% agir="select phenomene.idphen,phenomene.phenomene,bulletin.idnum,bulletin.stade,bulletin.nom,bulletin.latitude,bulletin.longitude,bulletin.distance,bulletin.bassin from phenomene,bulletin " agir=agir & "where bulletin.bassin='i' AND phenomene.idlastbul=bulletin.idnum" set Enregistrement=objConnexion.Execute(agir) %>

Indien Sud-Ouest :
<% If enregistrement.eof then Response.Write"Aucun phénomène actif" Else do while not Enregistrement.eof Response.Write "  " & Enregistrement("stade") & " " & Enregistrement("nom") & " centré par " If latitude<0 Then Response.Write " Abs(" & Enregistrement("latitude") & ") S" Else Response.Write " " & Enregistrement("latitude") & " N " End If Response.Write "  Abs(" & Enregistrement("longitude") & ") E
" Response.Write "  soit " & Enregistrement("distance") & "

" Enregistrement.movenext Loop End If Enregistrement.close set Enregistrement=nothing %>

Indien Nord-Ouest - Mer d'Oman:
<% agir="select phenomene.idphen,phenomene.phenomene,bulletin.idnum,bulletin.stade,bulletin.nom,bulletin.distance,bulletin.latitude,bulletin.longitude,bulletin.bassin from phenomene,bulletin " agir=agir & "where bulletin.bassin='i' AND phenomene.idlastbul=bulletin.idnum" set Enregistrement=objConnexion.Execute(agir) If enregistrement.eof then Response.Write"Aucun phénomène actif" Else do while not Enregistrement.eof Response.Write "  " & Enregistrement("stade") & " " & Enregistrement("nom") & "

" Enregistrement.movenext Loop End If Enregistrement.close set Enregistrement=nothing %>

Indien Nord-Est - Golfe du Bengale:
<% agir="select phenomene.idphen,phenomene.phenomene,bulletin.idnum,bulletin.stade,bulletin.nom,bulletin.distance,bulletin.latitude,bulletin.longitude,bulletin.bassin from phenomene,bulletin " agir=agir & "where bulletin.bassin='i' AND phenomene.idlastbul=bulletin.idnum" set Enregistrement=objConnexion.Execute(agir) If enregistrement.eof then Response.Write"Aucun phénomène actif" Else do while not Enregistrement.eof Response.Write "  " & Enregistrement("stade") & " " & Enregistrement("nom") & "

" Enregistrement.movenext Loop End If Enregistrement.close set Enregistrement=nothing %>

Indien Sud-Est - Australie:
<% agir="select phenomene.idphen,phenomene.phenomene,bulletin.idnum,bulletin.stade,bulletin.nom,bulletin.latitude,bulletin.distance,bulletin.longitude,bulletin.bassin from phenomene,bulletin " agir=agir & "where bulletin.bassin='i' AND phenomene.idlastbul=bulletin.idnum" set Enregistrement=objConnexion.Execute(agir) If enregistrement.eof then Response.Write"Aucun phénomène actif" Else do while not Enregistrement.eof Response.Write "  " & Enregistrement("stade") & " " & Enregistrement("nom") & "

" Enregistrement.movenext Loop End If Enregistrement.close set Enregistrement=nothing %>


Un coup d'oeil sur l'actualité

La Météo en Bref

Tahiti

Nouvelle Calédonie

Wallis

Futuna


Lectures


Le Grand Livre des Cyclones et Ouragans

cliquez ici pour acheter ce livre
Les cyclones se placent au deuxième rang des catastrophes naturelles les plus destructrices après les tremblements de terre. Longtemps considérés comme des phénomènes quasi surnaturels, ils provoquaient dans le passé la terreur des populations.
Aujourd'hui, des progrès scientifiques permettent de comprendre l'origine et la structure des cyclones.[...]
 

Auteur: F. BUE      Editeur: ORPHIE
132.05 FF 20.13 €cliquez ici pour acheter ce livre

Bibliothèque


Le saviez-vous ?


Les satellites météorologiques et les avions permettent un suivi efficace des cyclones, mais on ne peut pas être sûr à 100% des chemins qu'ils prendront.
36 heures avant leur arrivée possible, les cyclones sont encore éloignés de 800 à 1.200 km. La marge d'erreur est à cet instant de 200 km. Statistiquement, le cyclone a alors deux chanches sur trois de toucher le territoire placé en vigilance.
24 heures à l'avance, la marge d'erreur reste de 30 à 60 km. L'oeil du cyclone est encore éloigné de 150 à 300 km. A ce stade, la pré-alerte est déclenchée.
L'
alerte est déclenchée 6 heures avant le passage du phénomène, quand la précision est maximale, et quand la trajectoire est connue de manière à dire quelles seront les zones les plus exposées.

En savoir plus



Histoire

Le cyclone Firinga
29-30 janvier 1989


En malgache, "Firinga" signifie "la décharge". De fait, le cyclone qui frappa l'île de la Réunion dans la nuit du dimanche 29 au lundi 30 janvier 1989 transforma le Sud de l'île en un vaste torrent de boue.

"Tout se passait bien, jusqu'à la fin janvier: RFO nous informe qu'une dépression s'est formée assez loin de nos côtes, et que cette dernière ne devrait pas nous concerner. Pas de chance! Le phénomène s'était intensifié, et le cyclone nous visait directement.
Après un beau temps relatif, les conditions se sont dégradées rapidement. Je jouais encore dehors, lorsque l'alerte rouge a été déclenchée.
"

L'oeil du cyclone balaya l'île d'Est en Ouest: rentré à l'intérieur des terres sur la côte Est, entre St Benoît et Ste Rose, il alla s'abattre sur les communes de St Pierre, St Joseph et St Philippe, en suivant une direction Est Sud-Sud-Ouest.

"Lorsque les vents commencèrent à souffler, on n'emmenait pas large: lors des rafales, à parfois plus de 230 km/h, les murs, en bois, se gondolaient; la bibliothèque s'est écroulée; l'eau rentrait partout, à la manière d'un Kärcher, en collant des feuille d'arbres et autres débris végétaux sur les murs et les plafonds: la tapisserie venait d'être refaite !
La dépression était telle que les vitres de la véranda étaient aspirées une à une vers l'extérieur, et là, je reverrai toujours les papiers voler dans tout les sens, avec la pluie qui s'engoufrait comme des jets d'eau; jusqu'au
passage de l'oeil. Et après, ce fût la même chose, mais en décroissant."

L'alerte n°3, déclenchée à 4h du matin, fut levée le lundi vers 3h. L'heure du bilan avait sonné...

(Source: Le Grand Livre des Cyclones et Ouragans.)

 

 
 
Abris Sûrs
 

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

  Recherche par:

  Entrez votre sélection:

 
 
 
Sondage
 

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