<% If z1_AccessLevel < 1 Then Response.Redirect "ui_index.asp?msg=You do not have access to that page" End If Dim zobjRS,zstrSQL,zintPostID,zstrTitle,zstrContent,zintCategory zintPostID = Trim(Request.QueryString("postid")) zstrSQL = "SELECT news.Title, news.Content, news.Category FROM news WHERE news.PostID LIKE " & zintPostID Set zobjRS = Server.CreateObject("ADODB.Recordset") zobjRS.Open zstrSQL, zobjConn, adOpenForwardOnly, adLockReadOnly, adCmdText zstrTitle = zobjRS("Title") zstrContent = zFilter_Reverse(zobjRS("Content")) zintCategory = zobjRS("Category") zobjRS.Close %> kaos news - update area
edit news post:
title / topic automatically parse URL's
category parse smilies
post message

click here to submit changes   |   click here to reset form values

comments for this post: <% zstrSQL = "SELECT comments.CommentID, comments.PostedBy, comments.Comment, comments.PostedDate FROM comments WHERE comments.PostID LIKE " & zintPostID zobjRS.Open zstrSQL, zobjConn, adOpenForwardOnly, adLockReadOnly, adCmdText Dim bgcol bgcol = "eeeeee" If Not zobjRS.EOF Then Do While Not zobjRS.EOF Response.Write "" zobjRS.MoveNext If bgcol = "eeeeee" Then bgcol = "dddddd" Else bgcol = "eeeeee" End If Loop Else Response.Write "" End If zobjRS.Close zobjConn.Close Set zobjRS = Nothing Set zobjConn = Nothing Response.Write "" %>
 posted by / date  comment edit delete
" & zobjRS("PostedBy") & "
" & zobjRS("PostedDate") & "		" If Len(zobjRS("Comment")) > 100 Then Response.Write Left(zobjRS("Comment"),100) & " ...more" Else Response.Write zobjRS("Comment") End If Response.Write " edit
No comments for this post