<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %> <% Dim SQLSondaggi, RSSondaggi, FID If Request.QueryString("id") <> "" AND Request.QueryString("id") <> "0" AND IsNumeric(Request.QueryString("id")) = True Then FID = Request.QueryString("id") Else FID = 0 End If %>

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

<% If Session("BLOGAdmin") = True Then SQLSondaggi = " DELETE * FROM [Sondaggio] WHERE [ID] = "& cInt(FID) &" " Set RSSondaggi = Server.CreateObject("ADODB.Recordset") RSSondaggi.Open SQLSondaggi, Conn, 1, 3 %>

<%=Testo_Sondaggi_CancellazioneABuonFine%>, "><%=Testo_Sondaggio_LinkTornaIndietro%>.

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

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