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

Liste des Abris Sûrs de Schoelcher

 

Fond Lahaye

Ecole Primaire A
120 places
n.c

Ecole primaire B
120 places
n.c

Mutualité
n.c
n.c
Grand Village

Chapelle
20 places
n.c

Salle de réunion
40 places
n.c

Collège de Terreville
200 places
n.c
Enclos

Local Club

120 places
n.c
Bourg

n.c
n.c
n.c

n.c
300 places
n.c

n.c
n.c
n.c

Eglise
n.c
n.c

Ancien Presbytère

50 places
n.c

n.c
n.c
n.c

CNS Etage

100 places
n.c
Batelière

Cantine
100 places
n.c

Ecole Primaire

200 places
n.c
Cité Oznam

Ecole Primaire

140 places
n.c
Plateau Fofo

Ecole Primaire

150 places
n.c
Pointe de Jaham

AMFRO
200 places
n.c
Ravine Touza

Gymnase du Campus
100 places
n.c

Université
800 places
n.c

Liste mise à jour le 12 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