HACK or NOT Scores For Your Writing

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

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.

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 = 2 Then %> <%= getCPMBanner() %>

Our system shows that you have not yet submitted any stories to HACK or NOT.

You can submit your first story here.
If you believe this is an error, please email hackornot@jjjwebdevelopment.com

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

ID Number: <%= safeHTMLEncode(storyID) %>

<% If IsNumeric(averageRating) Then If CDbl(averageRating) < 3.5 Then %> Visit the Writer's Store for resources that can help you improve your writing!

<% Else %> Visit the Writer's Store to learn how to write for a living!

<% End If Else %> Visit the Writer's Store!

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

<%= getRightBarAd() %>

HACK or NOT Home
About HACK or NOT | Tell A Friend | How To Link To This Site
Contact Us | Copyright

<% destroyConnection(databaseConnection) %>