<% 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 Saint Pierre
Menu

Liste des Abris Sûrs de Saint Pierre

 

Désignation Situation Capacité Téléphone

Ecole Mixte A
Rue V. Hugo
80
05.96.78.12.26

Ecole Mixte B
Rue V. Hugo
70
05.96.78.17.59

Ecole Maternelle

Rue A. Lacroix
40
05.96.78.18.63

L.P St-James

St James
100
05.96.78.13.20

Collège L. Delgrès
Rue A. Grégoire
150
05.96.78.18.41

Camp Billote

Rue G. Ponton
100
05.96.78.11.54

C.O.P.E.S
Rue des Bons Enfants
n.c
05.96.78.12.53

U.C.P.A
Fond Corré
n.c
05.96.78.21.03

Cathédrale
Rue V. Hugo
n.c
05.96.78.13.83

Temple Adventiste

Le Mouillage
n.c
05.96.78.38.02

Temple Evangéliste

Rue Longchamps
n.c
05.96.78.29.25

Case
Rue des Domaines
n.c
05.96.78.13.98

Mutuelle du Progrès
Rue Perrinon
n.c
05.96.78.34.59

Liste mise à jour le 13 Août 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