|
|
|
A
la Une
|
| <%
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='i' AND phenomene.idlastbul=bulletin.idnum"
set Enregistrement=objConnexion.Execute(agir)
%>
Situation
Générale (Outlook)
|
 Pacifique
Nord :
<%
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
%>
Iles
du Pacifique:
<%
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)
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
%>
Philippines:
<%
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)
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
%>
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='p' 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
|
Nord-Est:
aucun phénomène
signalé
Nord-Ouest:
aucun phénomène signalé
Iles
du Pacifique:
aucun phénomène signalé
Philippines:
aucun phénomène
signalé
Australie:
aucun phénomène signalé
|
|
|
|
|
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
|
Mémoires de cyclones
Que
vous ayez vécu un cyclone ou non, vous savez quels
peuvent en être les effets. Mais savez-vous combien
ont déjà sévi depuis qu'il y a des statistiques?
Votre prénom a peut être déjà été
utilisé et reste peut être associé à
une catastrophe meurtrière dans certaines régions
du globe. Consultez la banque d'archives et les témoignages
de rescapés et vous en saurez plus.
Banque
d'Archives Témoignages
|
|
|
|
|
Bientôt!
Cassettes Vidéo
• Protéger
son habitat
• La
saison cyclonique
• Les
premiers secours
• Les
assurances
• Ouragans,
typhons et cyclones
• La
prévision cyclonique
Vidéothèque
|
|
|
Tourisme
|
Marie
Galante
avec 
 Surnommée
"la galette" en raison de sa forme circulaire,
Marie Galante est l'île authentique de l'archipel
de la Guadeloupe. Elle a conservé son charme
antique et a de quoi surprendre tous les visiteurs,
même les plus avertis.
|
Un
séjour 7 jours/6 nuits pour 2
(voiture + hôtel La Cohoba ***):
2240.00
FF 402.91 €
|
|
|
|
|
|
|
