<% 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 Sainte Marie (Martinique)
Menu

Liste des Abris Sûrs de Sainte Marie

 

Bourg

Ecole R.RICHER

150 places
n.c

Lycée
250 places
n.c

Collège Lagrosillière

252 places
n.c

Collège E. Saldès
154 places
n.c

Ecole Lassalle

50 places
n.c

Ecole Maternelle A
50 places
n.c

Ecole Maternelle B
50 places
n.c

U.P.S.M
60 places
n.c

Salle Paroissiale

60 places
n.c

I.M.P
100 places
n.c

Coeur de Ville
50 places
n.c

Salle des Fêtes
100 places
n.c

Piscine
50 places
n.c
Morne des Esses

Ecole F. LORNE
200 places
n.c

Ecole F. GROSY
200 places
n.c

Salle de danse
30 places
n.c

Maternelle
50 places
n.c
Reculée

CASPASSA
200 places
n.c
Eudorcait

Ecole
150 places
n.c

Maison pour tous
10 places
n.c
Bezaudin

Ecole
200 places
n.c

Maison local fonction
50 places
n.c

Maternelle
150 places
n.c
Pain de Sucre

Ecole
200 places
n.c
Pérou

Ecole
100 places
n.c
Derrière Morne

Ecole
100 places
n.c

Saint Jacques

Ecole
100 places
n.c

Purgerie et annexe
320 places
n.c

Villa "Clair Plessis"
50 places
n.c

Liste mise à jour le 25 Juillet 2001
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