<% Response.Buffer = TRUE %> <% playground_GetMemberInfo MemberID, Member, ScreenName, EMail, Privacy, Block, Privilege, ProtestPoints If MemberID <> 0 Then LoggedIn = true End If playground_GetAdminOptions SiteAvailable, AllowAllPosts, ModeratorPrivs, ProtestPointsMax if Not SiteAvailable then Response.Redirect("fruvousplayground/playgroundNotAvailable.asp") end if %> Moxy Moron or Gënous?

Moxy Moron or Gënous?
moxy fruvous quiz


Come Play at the New Früvous Playground!


Play the Trivia Game
Play the game and test your Moxy Früvous knowledge. Each time you play, you get a new set of questions. If you need a quick cram session, check out www.fruvous.com
Enter Your Player Name :

Level of play: Easy Medium Hard Mix it Up


Share Your Moxy Trivia!
Challenge your friends. <% If LoggedIn or AllowAllPosts Then %> Submit your own question to the game.
<% Else %> To Add Questions, Members Sign In or New Visitors Create Your Login
<% End If Set RecentQTable = CreateObject("ADODB.Recordset") RecentQTable.Open "SELECT DISTINCTROW TOP 1 * FROM moxyquiz ORDER BY SubmittedDate DESC", "DSN=moxyquiz;" SubmittedDate = Server.HTMLEncode(RecentQTable.Fields("SubmittedDate") & "" ) ThanksTo = Server.HTMLEncode(RecentQTable.Fields("ThanksTo") & "" ) If SubmittedDate = "" or IsNull(SubmittedDate) Then SubmittedDate = "Unknown" End If If ThanksTo = " " or ThanksTo = "" or IsNull(ThanksTo) Then ThanksTo = "QuizMaster" End If %>
Latest Question Added on <%=SubmittedDate%> <% if ThanksTo <> "QuizMaster" Then %> by <%=ThanksTo%>
<% End If RecentQTable.Close %>

<% Set TopPlayerTable = CreateObject("ADODB.Recordset") TopPlayerTable.Open "SELECT DISTINCT TOP 10 Player, Max(Score) AS MaxScore, Max(Date) as MaxDate FROM Players WHERE Now() - Date <=1 GROUP BY Player ORDER BY Max(Score) DESC, Max(Date) DESC", "DSN=moxyquiz;" dim i i = 1 Do Until TopPlayerTable.EOF or i>10 %> <% TopPlayerTable.MoveNext i = i + 1 Loop %>
Latest Top 10 Players
PlayerScoreDate
<%=TopPlayerTable.Fields("Player")%> <%=TopPlayerTable.Fields("MaxScore")%> <%=TopPlayerTable.Fields("MaxDate")%>


<% TopPlayerTable.Close %> <% Set RecentPlayerTable = CreateObject("ADODB.Recordset") RecentPlayerTable.Open "SELECT DISTINCTROW TOP 10 * FROM Players ORDER BY Date DESC", "DSN=moxyquiz;" i = 1 Do Until RecentPlayerTable.EOF %> <% RecentPlayerTable.MoveNext i = i + 1 Loop RecentPlayerTable.Close %>
Most Recent Scores
PlayerScoreDate
<%=RecentPlayerTable.Fields("Player")%> <%=RecentPlayerTable.Fields("Score")%> <%=RecentPlayerTable.Fields("Date")%>


Quiz Contact
Email The QuizMaster
Send me email with any suggestion you have about this game. If there is an error in the quiz, please email me the correction and what your source of information is.

By the way, this quiz is just for fun. So have fun!

You can't be too careful. You can't agonize over it. Make your mind up and go for it!
-Moxy Früvous