<!--#include file="include/common.asp" -->
<%
If Session("admin") = False or IsNull(Session("admin")) = True then
	response.Redirect("login.asp?strMode=edit")
End If
%>
<%
Response.Buffer = True

Dim rsCount
Dim SQLCount
Dim rs
Dim blog_id
Dim numero_commenti
Dim i
Dim SQL
Dim rsdelete
Dim commento_id
Dim msg

blog_id = Request.querystring("blog_id")

strBlogCatSQL = "Select blogCategory from blog where blog_id =" & blog_id
Set rsBlogCat = adoCon.Execute (strBlogCatSQL)
intCatID = rsBlogCat("blogCategory")
rsBlogCat.Close
Set rsBlogCat = Nothing

strBlogTotalSQL = "Select CatTotal from tblCategory where CatID =" & intCatID
Set rsBlogTotal = adoCon.Execute (strBlogTotalSQL)
intBlogTotal = rsBlogTotal("CatTotal") - 1
rsBlogTotal.Close
Set rsBlogTotal = Nothing

strSQL = "Delete from blog where blog_id =" & blog_id
adoCon.Execute strSQL 


strCatSQL = "UPDATE tblCategory SET catTotal = "&intBlogTotal&" WHERE CatID = " & intCatID & ";"
adoCon.Execute strCatSQL 

Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * from commenti where blog_id =" & blog_id
rs.CursorType = 3
rs.Open strSQL, strCon
SQLCount = "SELECT COUNT(*) as numero_commenti FROM commenti"
set rsCount = adoCon.Execute(SQLCount) 
numero_commenti = rsCount("numero_commenti") 
rsCount.Close 
set rsCount=Nothing 
If numero_commenti >0 then
	For i = 1 to numero_commenti
		 If rs.EOF Then Exit For
		 commento_id = rs("commento_id")
		 SQL="delete FROM commenti where commento_id=" & commento_id
		 set rsdelete=adoCon.execute(SQL)
		 Set rsdelete = Nothing
		 rs.MoveNext  
	Next
End If
rs.Close
Set rs = Nothing

Set adoCon = Nothing
Set strCon = Nothing
msg = strLangInfoDelBlog
response.Redirect("editallblog.asp?msg="& msg &"")
%>