<% Set databaseConnection = getDatabaseConnection() %>

HACK or NOT Statistics
<%= 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 %>	<%= getRightBarAd() %>

<% destroyConnection(databaseConnection) %>