<%
'dBlog 2.0 CMS Open Source
'Versione file 2.0.0
%>
<%
Dim SQLArticolo, RSArticolo, SQLCommenti, RSCommenti, SQLSezioneArticoli, RSSezioneArticoli, FilSezioneArticoli, SezioneArticoli, FID, NomeFile, FSO
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
SQLArticolo = " DELETE * FROM [Articoli] WHERE [ID] = "& cInt(FID) &""
If Session("BLOGAdmin") = False Then
SQLArticolo = SQLArticolo & " AND [Autore] = '"& Session("BLOGNick") &"' "
End If
Set RSArticolo = Server.CreateObject("ADODB.Recordset")
RSArticolo.Open SQLArticolo, Conn, 1, 3
Set RSArticolo = Nothing
SQLCommenti = " DELETE * FROM [Commenti] WHERE [IDArticolo] = "& cInt(FID) &" "
Set RSCommenti = Server.CreateObject("ADODB.Recordset")
RSCommenti.Open SQLCommenti, Conn, 1, 3
Set RSCommenti = Nothing
NomeFile = cStr(FID)
If Len(NomeFile) < 6 Then
For I = 1 To 6 - Len(NomeFile)
NomeFile = "0" & NomeFile
Next
End If
NomeFile = NomeFile & ".txt"
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(Server.MapPath(Path_DirPublic & NomeFile)) Then
FSO.DeleteFile(Server.MapPath(Path_DirPublic & NomeFile))
End If
Set FSO = Nothing
%>