<!--#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 rs
Dim blog_id
Dim commento_id
Dim page
Dim Block
Dim msg

page=Request.QueryString("page")
Block=Request.QueryString("Block")
commento_id = Request.querystring("commento_id")
blog_id = Request.querystring("blog_id")

Set rs = Server.CreateObject("ADODB.Recordset")
rs.LockType = 3
strSQL = "Select * from commenti where commento_id =" & commento_id & ""
rs.Open strSQL, strCon
If NOT rs.EOF Then rs.Delete
rs.Close
Set rs = Nothing

Set adoCon = Nothing
Set strCon = Nothing
msg = strLangInfoDelComment
response.Redirect("editallcommenti.asp?page=" &  page  & "&Block=" & Block & "&msg="& msg &"&blog_id=" & blog_id & "")
%>