<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %> <% Dim SQLAutore, RSAutore, SQLAdmin, RSAdmin, 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 If Session("BLOGAdmin") = True Then SQLAdmin = " SELECT [ID] FROM [Autori] WHERE [ID] = "& cInt(FID) &" AND NOT [Admin] " Set RSAdmin = Server.CreateObject("ADODB.Recordset") RSAdmin.Open SQLAdmin, Conn, 1, 3 %>

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

<% If NOT RSAdmin.EOF Then SQLAutore = " DELETE * FROM [Autori] WHERE [ID] = "& cInt(FID) &" AND NOT [Admin] " Set RSAutore = Server.CreateObject("ADODB.Recordset") RSAutore.Open SQLAutore, Conn, 1, 3 %> <%=Testo_Autore_CancellazioneABuonFine%>, "><%=Testo_Link_PaginaPrecedente%>. <% Set RSAutore = Nothing Else %> <%=Testo_Autore_CancellazioneNonABuonFine%>, "><%=Testo_Link_PaginaPrecedente%>. <% End If %>

<% RSAdmin.Close Set RSAdmin = Nothing Else Response.Redirect "autori_elenco.asp" End If Conn.Close Set Conn = Nothing %>