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

Firinga (1989)

Réunion

Je m'en souviens encore très bien, tant ce cyclone m'a marqué: j'étais suis venu à la Réunion pour y passer un an chez mon père. A l'époque je n'avais que 9 ans (j'en ai 19 maintenant). En partant de Paris, on m'avait bien dit, " tu ne verras pas de cyclone! Il y a déjà CLOTILDA en 1989, qui est passé sur l'île! ". Bref, il paraissait bien invraissemblable, que deux cyclones, en seulement l'espace de deux ans, ravagent la Réunion, d'autant plus que la probabilité d'impact est faible, compte tenu de la taille de l'île!
Je suis arrivé en juillet (date des grandes vacances métropolitaines), en plein Hiver Austral. 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 tropical intense FIRINGA 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. Nous habitions à Piton Saint Leu, dans le Sud-Ouest, une des régions les plus durement touchées par ce typhon. Comme nous vivions dans une ancienne villa créole, nous étions inquiets de sa solidité.
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 était 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.
Pris de panique, je me suis réfugié dans un coin de ma chambre, la tête entre les genoux, jusqu'au passage de l'oeil. Et après, ce fût la même chose, mais en décroissant: le cauchemard était fini...
Enfin, presque: car après le cyclone, nous fûmes privés d'eau, d'électricité et de téléphone pendant 45 jours, tellement que les dégâts furent énormes.

 


Shopping
 
 
 


 
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