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

En vacances à la Réunion pour 2 semaines, je ne savais pas ce qui m'y attendait le 29 Mars 1989. Tout se passait bien quand la radio annonca le jeudi la formation d'une dépression tropicale à 1500 km de l'ile, avec une trajectoire qui l'éloignait de nous...

Pas de chance. Le vendredi, le phénomène se renforça en tempête tropicale (baptisée FIRINGA) et incurva sa trajectoire vers la Réunion. Dès lors, malgré une alerte n°1 et un temps superbe (pas de vent, pas de pluie) tout les créoles (les réunionais d'origine européenne) se moquaient de ce "météore" qui selon eux, passerait ailleurs.

Hélas, ils étaient les seuls à se tromper car, le soir même la chatte de la maison se réfugia dans le garage avec ses 3 chatons, et le lendemain, alors que la pluie commencait à tomber, j'eus la surprise de trouver dans la voiture de grosses araignées noires. Dire que ces animaux ne vivent que dans les arbres! A la même heure, l'alerte n°3 était déclenchée.

Le cyclone se déchaina sur l'ile avec des pluies torrentielles et des vents de 250 km/h! Il y laissa d'énormes dégâts. Le lendemain, le temps redevenait magnifique, comme si de rien n'était, et la chatte était revenue dans la maison avec ses petits.

Des rumeurs disaient que le cyclone revenait, mais pas d'inquiétude, les animaux (chat ou même araignées) ressentent ces phénomènes extrêmes mieux que nous, voir même mieux que les prévisionnistes. Qu'ils m'en excusent, mais cette constatation se vérifie souvent lors de catastrophes naturelles.

Titus (France)

 


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