<% 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 %> Liste des Abris cycloniques de Martinique
Menu

Liste des Abris Sûrs du Robert

 

Duchesne, Fonds Duchesne, Ména, Hauteur Fonds-Nicolas, Bois Lancy

Ecole Robert Platon
Duchesne
 
Bourg, Mansarde, Courbaril, Cité Symphor et lotissement, Cité la Croix, Yoyoye

Ecole Hector Sainte-Rose
Mansarde
 
Four à Chaux, Hauteur Four à Chaux, Pontaléry, Hauteur Pontaléry, Moïse, Reynoird (Cité Mantou)

Ecole Edgard Labourg
Four à Chaux
 
La Digue, Fonds-Nicolas, Chappelle Villarson, Monnérot

Ecole Victor Platon
Chapelle Villarson
 
Bois-Neuf, Bois Désir, Voltaire, Augrain Nord

Siège du Bekem Club
Bois-Neuf
 
Leconte, Bonneau, Lestrade, Lazaret, Bois Pothuau, Pointe Jean-Claude

Siège de la Solidarité de Lestrade
Lestrade
 
Fonds-Brûlé, Raison, Augrain Sud, Fonds d'Or, Berthout

Ecole Léo Adélaïde
Fonds Brûlé
 
Chère Epice, La Digue, Café, Morne Galbas

Ecole Couronné Lourel
Café
 
Reynoird, Marlette, Pointe Royale, Pointe Hyacinthe, Sable Blanc, Pointe La Rose

Local Commun des Résidents
Cité Pointe Royale
 
Bourg du Vert-Pré, l'Heureux, Galette, Boutaud, Zabeth, Hermitage, Brice, Providence, Cannelle, Sabine

Ecole Occuline Amazan
Vert Pré
 
Moulin à Vent, Moulin Vert, Mansarde

Local Commun des Résidents
Cité de Moulin à Vent
 
Pointe Melon, Pointe Savane, Pointe Rouge

Crèche Municipale
Pointe Savane
 
Cité la Croix, Trou Terre, Gaschette (Rés. des Ilets), Résidence Ozanam, Pointe Lynch, Pointe Fort

Ecole de Pointe Lynch
Pointe Lynch

Liste mise à jour le 10 juin
Shopping
 

 
 


 
Shopping
 

 
 
Shopping
 

 
 
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