<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 'FUNZIONE: questo script si occupa di visualizzare i risultati temporanei del sondaggio attuale o di quelli già conclusi %> <% Sub Contenuto() %>

\\ <%=Sezione_HomePage%> : <%=Sezione_Sondaggi%>

<% 'Visualizzo il contenuto della pagina solo se il sondaggio è abilitato If Abilita_Sondaggio = False Then %>

<%=Errore_Sondaggio_NonAbilitato%>

<% Else Dim SQLRisultati, RSRisultati, SQLVecchi, RSVecchi, ArraySondaggio, X, TotaleVoti %>

<%=Testo_Segue_Risultati%>

<% 'Cerco i risultati relativi al sondaggio richiesto If Request.QueryString("sondaggio") <> "" AND Request.QueryString("sondaggio") <> "0" AND IsNumeric(Request.QueryString("sondaggio")) = True Then SQLRisultati = " SELECT * FROM [Sondaggio] WHERE Sondaggio.ID = "& cInt(Request.QueryString("sondaggio")) &" " Else SQLRisultati = " SELECT TOP 1 * FROM [Sondaggio] ORDER BY Sondaggio.ID DESC " End If Set RSRisultati = Server.CreateObject("ADODB.Recordset") RSRisultati.Open SQLRisultati, Conn, 1, 3 'Li visualizzo in una tabella If RSRisultati.EOF = False Then RSRisultati.MoveFirst ArraySondaggio = RSRisultati.GetRows %>

<%=Testo_Sondaggio_Domanda%>
<%=ArraySondaggio(1, 0)%>

<%=Testo_Sondaggio_Risposte%> <% TotaleVoti = 0 For X = 2 To 21 Step 2 If ArraySondaggio(X, 0) <> "" Then %>
- <%=ArraySondaggio(X, 0)%> (<%=ArraySondaggio(X+1, 0)%> <%=Testo_Sondaggio_Voti%>) <% TotaleVoti = TotaleVoti + ArraySondaggio(X+1, 0) End If Next %>

<%=Testo_Sondaggio_TotaleVoti%>
<%=TotaleVoti%>

<%=Testo_Sondaggio_Grafico%>
<% 'Ed anche in un semplice formato grafico For X = 3 To 22 Step 2 If ArraySondaggio(X-1, 0) <> "" Then %> <% End If Next %>

" />

<%=Testo_Sondaggio_Precedenti%>

<% 'Cerco eventuali altri sondaggi conclusi SQLVecchi = " SELECT [ID], [Domanda] FROM [Sondaggio] ORDER BY Sondaggio.ID DESC " Set RSVecchi = Server.CreateObject("ADODB.Recordset") RSVecchi.Open SQLVecchi, Conn, 1, 3 'E nel caso li visualizzo per la consultazione If RSVecchi.EOF = False Then Do While NOT RSVecchi.EOF %>
- "><%=RSVecchi("Domanda")%> <% RSVecchi.MoveNext Loop End If Set RSVecchi = Nothing Else %>

<%=Errore_Sondaggio_NonDisponibile%>

<% End If Set RSRisultati = Nothing End If End Sub Call GeneraPagina(Server.MapPath(Path_Template & "pagina.htm"), "", "", "") Conn.Close Set Conn = Nothing %>