<% If z1_AccessLevel < 1 Then Response.Redirect "ui_index.asp?msg=You do not have access to that page" End If Dim zobjRS,zstrSQL,zintCommentID,zstrName,zstrComment zintCommentID = Trim(Request.QueryString("commentid")) zstrSQL = "SELECT comments.CommentID, comments.PostedBy, comments.Comment, comments.PostedDate FROM comments WHERE comments.CommentID LIKE " & zintCommentID Set zobjRS = Server.CreateObject("ADODB.Recordset") zobjRS.Open zstrSQL, zobjConn, adOpenForwardOnly, adLockReadOnly, adCmdText zstrName = zobjRS("PostedBy") zstrComment = zFilter_Reverse(zobjRS("Comment")) zobjRS.Close zobjConn.Close Set zobjRS = Nothing Set zobjConn = Nothing %> kaos news - update area
edit comment:
postedby auto-URL's   smilies
comment

click here to modify this comment  |  click here to reset form values