<% Set databaseConnection = getDatabaseConnection() userID = "2" Set storiesRS = 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")) // crude checking for admins If CInt(userID) <= 11 Then usersStatus = 3 Else usersStatus = 2 End If End If %>

HACK or NOT Statistics
<% 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() %> You really shouldn't be here. Please return to HACK or NOT Home. <% Else %> <%= getCPMBanner() %> <% // find all the interesting numbers Set userStatsRS = createRecordSet("SELECT COUNT (hon_use_id) AS numberUsers FROM hon_use_users", databaseConnection) numberUsers = CStr(userStatsRS("numberUsers")) Set regUserStatsRS = createRecordSet("SELECT COUNT (hon_use_id) AS numberUsers FROM hon_use_users WHERE NOT hon_use_name = 'Anonymous'", databaseConnection) numberRegUsers = CStr(regUserStatsRS("numberUsers")) Set storyStatsRS = createRecordSet("SELECT COUNT (hon_sto_id) AS numberStories FROM hon_sto_stories", databaseConnection) numberStories = CStr(storyStatsRS("numberStories")) Set scoreStatsRS = createRecordSet("SELECT COUNT (hon_sco_id) AS numberScores FROM hon_sco_scores", databaseConnection) numberScores = CStr(scoreStatsRS("numberScores")) Set avgScoreRS = createRecordSet("SELECT AVG (hon_sco_score) AS avgScore FROM hon_sco_scores", databaseConnection) avgScore = CStr(avgScoreRS("avgScore")) Set lastSubmissionRS = createRecordSet("SELECT TOP 1 hon_sto_created AS lastSubmission FROM hon_sto_stories WHERE NOT hon_sto_created = '11/7/2030' ORDER BY hon_sto_created DESC", databaseConnection) lastSubmission = CStr(lastSubmissionRS("lastSubmission")) destroyRecordset(userStatsRS) destroyRecordset(regUserStatsRS) destroyRecordset(storyStatsRS) destroyRecordset(scoreStatsRS) destroyRecordset(lastSubmissionRS) %> Number of Users: <%= numberUsers %> Number of Registered Users: <%= numberRegUsers %> Number of Stories: <%= numberStories %> Number of Votes: <%= numberScores %> Average Across All Votes: <%= avgScore %> Last Submission: <%= lastSubmission %> <% 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) %>