<%
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