|
|
Situation
Générale (Outlook)
|
<%
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)
%>
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 |
|
|
|
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é
|
|
|
|
|
Lectures
Le Grand Livre des Cyclones et Ouragans
|
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 €
|
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!
|
|
|
|
|
|
|
|
|
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 %>
|
|
|
|
|
|
|
Archives |
|
|
|
|