% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Sondaggio con ASP by ASPCode.it - http://www.aspcode.it ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'variabili configurabili dall'utente Dim titolo, path titolo = "Il tuo miele preferito?" 'inserire il titolo che si vuole dare al sondaggio path = "../mdb-database/sondaggio.mdb" 'inserire il percorso completo del 'fine variabili configurabili dall'utente %> <% if request.servervariables("HTTP_COOKIE")="" then response.write "Il tuo browser ha i cookies disabilitati! Non puoi proseguire!!!" response.end end if %> <% Dim cn, rs, sql Set cn = Server.CreateObject("ADODB.Connection") cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(path) if Request.QueryString("action") = "vota" then if Session("votato")<>1 then Dim index index = Request.QueryString("idx") sql = "SELECT VOTI FROM Sondaggio WHERE ID=" &index Set rs = cn.Execute(sql) sql = "UPDATE Sondaggio SET VOTI=" &rs("VOTI")+1& " WHERE ID=" &index cn.Execute(sql) Session("votato") = 1 end if Response.Redirect("sondaggio.asp") end if sql = "SELECT * FROM Sondaggio" Set rs = cn.Execute(sql) Dim voti_tot voti_tot = 0 do while not rs.eof voti_tot = voti_tot + rs("VOTI") rs.MoveNext loop %>
|
![]() |
|
| << Home Page | Corsi Apistici | ||
Corsi Apistici nel Sud-Italia
|
Sicilia (SOAT 29 di Palazzolo Acreide
(SR))
Sicilia (SOAT 29
di Palazzolo Acreide (SR))
|
![]()