<% 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,"","" IF request.Form("VOTE1")<>"" OR request.Form("VOTE2")<>"" Then 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 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) 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 %> Bienvenue sur Ouragans.com
les images satellites

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.latitude>19 AND bulletin.longitude<75) OR (bulletin.latitude>9 AND bulletin.longitude<62 AND bulletin.longitude>30) OR (bulletin.latitude>22 AND bulletin.longitude<81)) AND bulletin.bassin='a' AND phenomene.idlastbul=bulletin.idnum" set Enregistrement=objConnexion.Execute(agir) %>
Situation Générale (Outlook)

Océan Atlantique:
<% 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 %>

Mer des Antilles:
<% 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='a' AND ((bulletin.latitude<19 AND bulletin.longitude>60 AND bulletin.longitude<90) OR (bulletin.latitude>19 AND bulletin.latitude<22 AND bulletin.longitude>76 AND bulletin.longitude<87)) 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 %>

Golfe du Mexique:
<% agir="select phenomene.idphen,phenomene.phenomene,bulletin.idnum,bulletin.stade,bulletin.nom from phenomene,bulletin " agir=agir & "where bulletin.bassin='a' AND ((bulletin.latitude>17 AND bulletin.longitude>90) OR (bulletin.latitude>21 AND bulletin.longitude>87) OR (bulletin.latitude<34 AND bulletin.longitude>85) OR (bulletin.latitude<26 AND bulletin.longitude>80)) 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 %>

Côtes Africaines/Iles du Cap Vert:
<% agir="select phenomene.idphen,phenomene.phenomene,bulletin.idnum,bulletin.stade,bulletin.nom from phenomene,bulletin " agir=agir & "where bulletin.bassin='a' AND bulletin.latitude<16 AND bulletin.longitude<30 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 objConnexion.close set objConnexion=nothing %>


Bulletins en version originale
National Hurricane Center (N.H.C)
&NomduSite=<%=Server.UrlEncode("NHC - TPC")%>" target="_blank">www.nhc.noaa.gov

Outlook:

Bulletin de situation générale

Discussion tropicale:

Tropical discussion

Bulletins en version originale
U.K Met
www.metoffice.gov.uk
Tropical Cyclone Guidance:

bulletin Atlantique N - Pacifique NE


Les Prévisions de la saison 2014
du Pr. Philip Klotzbach (C.S.U)

 
Valeurs
Prévues au
 
Normales
2 juin 2014
Tempêtes nommées (NS)
12.0
10
Jours de Tempête nommées (NSD)
60.1
40
Ouragans (H)
6.5
4
Jours d'Ouragan (HD)
21.3
15
Ouragans Majeurs (IH)
2.0
1
Jours d'Ouragans Majeurs (IHD)
3.9
3
Energie Cyclonique cumulée (ACE)
92
65
Activité Cyclonique Nette (NTC)
103 %
70%

Probabilités d'Impact d'un Ouragan Majeur (Cat. 3-4-5)

1) Ensemble des côtes Américaines - 40% (en moy. 52%)
2) Côte Est Américaine (Floride incl.) - 22% (en moy. 31%)
3) Golfe du Mexique - 23% (en moy. 30%)
4) On s'attend à un risque faible dans la Caraïbe: 32% (en moy. 42%).

Version originale des prévisions (format PDF - téléchargeable)


L'image satellite de l'arc Antillais

Copyright NOAA
D'autres images satellites ici

La Météo en Bref

Guadeloupe

Martinique

Saint Martin

Haiti

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


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 Histoire de cyclones



Tourisme
Découvrez le Canada avec:
Travel Boutic

0590.38.70.01

Circuit "Panorama Canadien" 9 jours/8 nuits
A partir de 1490.00€
Du 20 au 28 juillet
Pension complète

 


Lecircuit 9 jours/8 nuits en Pension complète
A partir de 1490.00€cliquez ici pour réserver ce séjour

Shopping
 

 


Shopping
 


Cyclones des Antilles
Maryse Audoin
9.90€

 


Archives
 

Recherchez un cyclone par