<% Dim SQLSondaggio, RSSondaggio 'Cerco il sondaggio attivo ovvero l''ultimo inserito SQLSondaggio = " SELECT TOP 1 * FROM [Sondaggio] ORDER BY Sondaggio.ID DESC " Set RSSondaggio = Server.CreateObject("ADODB.Recordset") RSSondaggio.Open SQLSondaggio, Conn, 1, 3 'E visualizzo le domande relative (massimo 10) If RSSondaggio.EOF = False Then RSSondaggio.MoveFirst %>

" />

<%=RSSondaggio("Domanda")%>

<% For Counter = 1 To 10 If RSSondaggio("Risposta" & Counter) <> "" Then Dim AbilitazioneSondaggio : AbilitazioneSondaggio = "" If Request.Cookies("GiaVotato" & RSSondaggio("ID")) = "si" Then AbilitazioneSondaggio = "disabled=""disabled""" %>

/> <%=RSSondaggio("Risposta" & Counter)%>

<% End If Next %>

<%=Testo_Sondaggio_VisualizzaRisultati%> <% If Request.Cookies("GiaVotato" & RSSondaggio("ID")) <> "si" Then %>  <%=Testo_Sondaggio_Oppure%> <% End If %>

<% Else %> <%=Errore_Sondaggio_NonDisponibile%> <% End If Set RSSondaggio = Nothing %>