<% response.buffer=true response.expires=-1 ' Déclaration des variables Dim ConnectDB, ObjetConnexion, ObjetEnregistrement,StrSQL, Concatenation ' Déclaration de ta base de données Access qui doit être dans le repertoire où se trouve cette page ConnectDB = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("abris.mdb") & ";DefaultDir=" & Server.MapPath(".") ' Création de l'objet de ta base de données Set objConnexion = Server.CreateObject ("ADODB.Connection") ' Création de l'objet Enregistrement Set objEnregistrement = Server.CreateObject ("ADODB.Recordset") ' Ouverture de ta base de donnée objConnexion.Open ConnectDB ' Récupération des champs du formulaire xtype = Request.Form("xtype") xcherche = Request.Form("xcherche") If xcherche<>"" then xcherche=Replace(xcherche,"'","''") End If If xcherche<>"" Then Select Case xtype Case "0" StrSQL = "SELECT * FROM liste Where codepostal like '%" & xcherche & "%'" Case "1" StrSQL = "SELECT * FROM liste Where ville like '%" & xcherche & "%'" Case "2" StrSQL = "SELECT * FROM liste Where departement like '%" & xcherche & "%'" End Select Else StrSQL = "SELECT * FROM liste " End If objEnregistrement.Open strSQL, objConnexion, 3 %> <% 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 %> Bienvenue sur Ouragans.com
Menu

 

 

La liste des abris pour cette localité

n'a pas encore été transmise

Nous espérons la recevoir bientôt

 

Pour continuer, cliquez ici
Shopping
 
 
 


 
Archives
 

Recherchez un cyclone par