HACK or NOT User Comments For Your Writing

<% Set databaseConnection = getDatabaseConnection() userID = "2" usersStatus = "not logged in" storyID = Request("hon_com_storyID") storyTitle = "No Story Found" Set commentsRS = Nothing // make sure you are logged in If Not isLoggedIn() Or isStillAnonymous() Then usersStatus = "not logged in" Else // make sure this story is one of yours userID = CStr(Request.Cookies("hon")("hon_use_id")) getStorySQL = "SELECT hon_sto_title FROM hon_sto_stories WHERE hon_sto_id = " & storyID & " AND hon_sto_authorID = " & userID Set getStoryRS = createRecordSet(getStorySQL, databaseConnection) If getStoryRS.EOF Then usersStatus = "not owner" Else // get all comments Set commentsRS = getWrittenComments(storyID, databaseConnection) storyTitle = CStr(getStoryRS.Fields("hon_sto_title")) If commentsRS.EOF Then usersStatus = "no comments" Else usersStatus = "approved" End If End If destroyRecordSet(getStoryRS) End If %> HACK or NOT User Comments For Your Writing

Below, written comments from your fellow HACK or NOT users are displayed. They were reacting to your submission titled <%= safeHTMLEncode(storyTitle) %>

<% If usersStatus = "not logged in" Then %> <%= getCPMBanner() %>

You are not currently logged in.

If you are already a HACK or NOT member, please log in.
If you are not a HACK or NOT member, you can register and then begin submitting your writing.

<% ElseIf usersStatus = "not owner" Then %> <%= getCPMBanner() %>

Our system shows that you are not the author of the story you are attempting to review the user comments for.

If you are logged in with the wrong account, please use the log in form.
If you believe this is an error, please email hackornot@jjjwebdevelopment.com

<% ElseIf usersStatus = "no comments" Then %> <%= getCPMBanner() %>

There are no written comments from our users for this story.

Not everyone leaves written comments. You may still have user ratings.

<% Else %> <%= getCPMBanner() %>

User comments:

<% While Not commentsRS.EOF comments = CStr(commentsRS.Fields("hon_com_comments")) %> <%= safeHTMLEncode(comments) %>

<% commentsRS.MoveNext Wend %> User recommended books and resources are available through The HACK or NOT Store for Writers.

<%= getCPMBanner() %> <% End If %>

<%= getRightBarAd() %>

<% destroyConnection(databaseConnection) %>