<%@LANGUAGE="VBSCRIPT"%>
<%
Response.Buffer = True
Dim iMonth, iYear
iMonth=Request ("month")
iYear=Request ("year")
if iMonth = "" then iMonth = Month(Now)
sMonth=NameFromMonth(iMonth)
if iYear = "" then iYear = Year(Now)
Dim blog_id
Dim rscommenti
Dim commento_autore
Dim commento_email
Dim commento_testo
Dim data
Dim page
Dim Block
page = Request.Querystring("page")
Block = Request.Querystring("Block")
commento_id = Request.Querystring("commento_id")
If Session("admin") = False or IsNull(Session("admin")) = True then
Response.Redirect"login.asp?strMode=edit"
End If
Set rscommenti = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT commenti.* "
strSQL = strSQL & "FROM commenti "
strSQL = strSQL & "WHERE commenti.commento_id = " & CLng(Request.QueryString("commento_id")) & ";"
rscommenti.Open strSQL, adoCon
If NOT rscommenti.EOF then
commento_autore = rscommenti("commento_autore")
commento_email = rscommenti("commento_email")
data = rscommenti("data")
commento_testo = rscommenti("commento_testo")
blog_id = CLng(rscommenti("blog_id"))
End If
commento_testo = Replace(commento_testo, " ", vbCrLf)
rscommenti.Close
Set rscommenti = Nothing
%>
<% = Ublogname %>
