<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %>

\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_Sondaggio%>

<% Dim SQLSondaggi, RSSondaggi, RecordPerPagina, Pagina, I, Temp If Session("BLOGAdmin") = True Then %> <% SQLSondaggi = " SELECT [ID], [Domanda] FROM [Sondaggio] ORDER BY [ID] DESC " Set RSSondaggi = Server.CreateObject("ADODB.Recordset") RSSondaggi.Open SQLSondaggi, Conn, 1, 3 %> <% RecordPerPagina = 4 Pagina = Request.QueryString("pagina") If Pagina = "" OR Pagina = "0" OR IsNumeric(Pagina) = False Then Pagina = 1 Else If Pagina <= 0 Then Pagina = 1 End If End If If RSSondaggi.EOF = False OR RSSondaggi.BOF = False Then RSSondaggi.PageSize = RecordPerPagina RSSondaggi.AbsolutePage = Pagina For I = 1 To RecordPerPagina If NOT RSSondaggi.EOF Then %> <% RSSondaggi.MoveNext End If Next %> <% Else %> <% End If %>

<%=Testo_Sondaggi_IntroduzioneElenco%> <%=Testo_Modulo_PulsanteAggiungi%>.
<%=Testo_Sondaggi_IntroduzioneTotaleSondaggi%>: <%=RSSondaggi.RecordCount%>

"><%=Testo_TabellaSondaggi_RigaDomanda%> <%=RSSondaggi("Domanda")%>
<%=Testo_TabellaSondaggi_RigaOperazioni%> "><%=Testo_TabellaSondaggi_LinkModifica%> | " onclick="return confirm('<%=Testo_Conferma_CancellazioneFileJavascript%>?');"><%=Testo_TabellaSondaggi_LinkCancella%>

<%=Testo_TabellaSondaggi_Paginazione%>: <% For Temp = 1 To RSSondaggi.PageCount Response.Write "" Response.Write Temp Response.Write " " Next %>

<%=Testo_TabellaSondaggi_ErroreNessunSondaggioTrovato%>, <%=Testo_Sondaggi_LinkVaiElenco%>.

<% Else %> <%=Testo_Errore_FunzioneRiservataAdmin%> <% End If %>

<% Set RSSondaggi = Nothing Conn.Close Set Conn = Nothing %>