<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %> <% Dim SQLCitazioni, RSCitazioni, 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_Citazioni%> : <%=Testo_Modulo_PulsanteCancella%>

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

<%=Testo_Citazioni_CancellazioneABuonFine%>, "><%=Testo_Citazioni_LinkTornaIndietro%>.

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

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