<% Response.Buffer = True Dim rscommenti Dim blog_id Dim commento_autore Dim commento_email Dim commento_testo Dim commento_id Dim data Dim page Dim Block Dim msg If Session("admin") = False or IsNull(Session("admin")) = True then Response.Redirect"login.asp?strMode=edit" End If commento_id = CLng(Request.Form("commento_id")) page = Request.Form("page") Block = Request.Form("Block") blog_id = CLng(Request.Form("blog_id")) data = Request.Form("data") commento_autore = Request.Form("nome") commento_email = Request.Form("email") commento_testo = Request.Form("commento") ' remove tag commento_autore = removemaligno(commento_autore) commento_email = removemaligno(commento_email) commento_testo = removemaligno(commento_testo) commento_testo = Replace(commento_testo, vbCrLf, "
") Set rscommenti = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT commenti.* FROM commenti WHERE commenti.commento_id = " & commento_id & ";" rscommenti.CursorType = 2 rscommenti.LockType = 3 rscommenti.Open strSQL, strCon rscommenti.Fields("blog_id") = blog_id rscommenti.Fields("commento_autore") = commento_autore rscommenti.Fields("commento_email") = commento_email rscommenti.Fields("data") = data rscommenti.Fields("commento_testo") = commento_testo rscommenti.Update rscommenti.Requery rscommenti.Close Set rscommenti = Nothing Set adoCon = Nothing Set strCon = Nothing msg = strLangInfoEditComment Response.Redirect "editallcommenti.asp?blog_id=" & blog_id & "&page="& page & "&Block="& Block &"&msg="& msg &"" %>