<% Set databaseConnection = getDatabaseConnection() userID = "2" Set yourStoriesRS = Nothing // get name to prefill if you are logged in If Not isLoggedIn() Or isStillAnonymous() Then usersStatus = 1 Else // get all the stories you have submitted userID = CStr(Request.Cookies("hon")("hon_use_id")) Set yourStoriesRS = createRecordSet("SELECT * FROM hon_sto_stories WHERE hon_sto_authorID = " & safeDBEncode(userID), databaseConnection) If yourStoriesRS.EOF Then // you are logged in but have no stories usersStatus = 2 Else // you are logged in and have stories usersStatus = 3 End If End If %> HACK or NOT Scores For Your Writing

Your HACK or NOT Scores

This page displays your HACK or NOT scores for the writing you've submitted to this site. It also includes how many of each individual score your submission received (how many 10's, 9's, 8's etc.) and some other interesting information for each piece.

<% If usersStatus = 1 Then %> <%= getCPMBanner() %>

You are not currently logged in. <% ElseIf usersStatus = 2 Then %> <%= getCPMBanner() %>

Our system shows that you have not yet submitted any stories to HACK or NOT. <% Else Set getLoggedInUserRS = createRecordSet("SELECT TOP 1 hon_use_email FROM hon_use_users WHERE hon_use_id = " & safeDBEncode(userID), databaseConnection) If getLoggedInUserRS.EOF Then loggedInEmail = "Invalid Login" Else loggedInEmail = CStr(getLoggedInUserRS.Fields("hon_use_email")) End If destroyRecordSet(getLoggedInUserRS) %>
<%= getCPMBanner() %>

You are logged in as <%= safeHTMLEncode(loggedInEmail) %>. If this is incorrect you may log in or register as another user.

Your submissions: <% While Not yourStoriesRS.EOF // get title and set up stats recordset storyID = CStr(yourStoriesRS.Fields("hon_sto_id")) title = CStr(yourStoriesRS.Fields("hon_sto_title")) Set statsRS = getStoryStats(storyID, databaseConnection) averageRating = statsRS.Fields("averageScore") If IsNull(averageRating) Or averageRating = "" Then averageRating = "No Score Yet" Else averageRating = FormatNumber(averageRating, 2, True, False, False) End If %>

<%= safeHTMLEncode(title) %>
Average Rating: <%= safeHTMLEncode(averageRating) %>
Total Votes: <%= safeHTMLEncode(statsRS.Fields("totalVotes")) %>
10's: <%= safeHTMLEncode(getNumberScores("10", storyID, databaseConnection)) %>   5's: <%= safeHTMLEncode(getNumberScores("5", storyID, databaseConnection)) %>  
9's: <%= safeHTMLEncode(getNumberScores("9", storyID, databaseConnection)) %>   4's: <%= safeHTMLEncode(getNumberScores("4", storyID, databaseConnection)) %>  
8's: <%= safeHTMLEncode(getNumberScores("8", storyID, databaseConnection)) %>   3's: <%= safeHTMLEncode(getNumberScores("3", storyID, databaseConnection)) %>  
7's: <%= safeHTMLEncode(getNumberScores("7", storyID, databaseConnection)) %>   2's: <%= safeHTMLEncode(getNumberScores("2", storyID, databaseConnection)) %>  
6's: <%= safeHTMLEncode(getNumberScores("6", storyID, databaseConnection)) %>   1's: <%= safeHTMLEncode(getNumberScores("1", storyID, databaseConnection)) %>  
To refer directly to this story use the URL below:
http://www.jjjwebdevelopment.com/306sites/hackornot/default.asp?s=<%= safeHTMLEncode(storyID) %>

<% // if there are any written comments for this story, display a link to read them Set commentsRS = getWrittenComments(storyID, databaseConnection) If Not commentsRS.EOF Then %> View what users had to say about your submission!

<% End If %> <% // display the appropriate affiliate enticement If IsNumeric(averageRating) Then If CDbl(averageRating) < 3.75 Then %> Visit The HACK or NOT Store for Writers for resources that can help you improve your writing!

<% Else %> Visit The HACK or NOT Store for Writers to learn how to write for a living!

<% End If Else %> Visit The HACK or NOT Store for Writers!

<% End If Response.Write(getCPMBanner()) yourStoriesRS.MoveNext Wend %> <% End If %>
<%= getRightBarAd() %>



<% destroyConnection(databaseConnection) %>