Liste des Abris cycloniques du François

<% 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 du François

Menu

Liste des Abris Sûrs du François

Ecole	Bois Soldat
Ecole	Perriolat
Ecole	Dostaly
Ecole	Dumaine
Ecole	Manzo
Ecole Maternelle	Morne Pitault
Ecole A	Morne Pitault
Ecole B	Morne Pitault
Ecole Maternelle	Chopotte
Ecole Maternelle F. DUVAL	Bourg
Ecole A. MARC	Route du Vauclin
Ecole E. BRUNO	Rue Perrinon
Foyer Rural	Morne Pitault
Foyer Rural	Bois Soldat
Foyer Rural	Saint-Laurent
Hôpital Rural	Rue Perrinon
Centre Socio-Culturel	Presqu'île
Centre Socio-Culturel	Cité Eucalyptus
Stade Municipal	Route du Robert

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