<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %> <% Dim SQLCommenti, RSCommenti, 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 SQLCommenti = " DELETE * FROM [Commenti] WHERE [ID] = "& cInt(FID) &" " Set RSCommenti = Server.CreateObject("ADODB.Recordset") RSCommenti.Open SQLCommenti, Conn, 1, 3 %>

\\ <%=Testo_Path_Pannello%> : "><%=Testo_Sezione_ModeraCommenti%> : <%=Testo_Modulo_PulsanteCancella%>

<%=Testo_Commenti_ConfermaCancellazione%> "><%=Testo_Link_PaginaPrecedente%>.

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