<% 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("playgroundNotAvailable.asp") end if %> Moxy Moron or Gënous?

View Moxy Moron or Gënous Questions

Here are all of the previous Frü Qs previously used. You can't vote on older questions, but you can always add comments to any question.

Suggest Your Own Frü Q

<% LastID = Request.QueryString("LastID") If LastID = "" or IsNull(LastID) Then LastID = Now() End If Set QODTable = CreateObject("ADODB.Recordset") QueryString = "SELECT DISTINCTROW TOP 50 * FROM QOD WHERE Reviewed=Yes and UseDate <= #" & LastID & "# ORDER BY UseDate Desc" QODTable.Open QueryString, "DSN=fruplay;" dim i i = 1 Do Until QODTable.EOF if i mod 2 = 0 Then bgcolor = "#000099" else bgcolor = "#666699" end if ID = QODTable.Fields("ID") Question = QODTable.Fields("Question") UseDate = QODTable.Fields("UseDate") NumAnswers = QODTable.Fields("Selected1") + QODTable.Fields("Selected2") + QODTable.Fields("Selected3") + QODTable.Fields("Selected4") + QODTable.Fields("Selected5") If IsNull(Question) Then Question = " " End If ThanksTo = QODTable.Fields("Name") If ThanksTo = "QuizMaster" or IsNull(ThanksTo) Then ThanksTo = " " End If Email = QODTable.Fields("Email") If IsNull(Email) or Email = "" Then Email = " " End If Set CommentTable = CreateObject("ADODB.Recordset") CommentTable.Open "select count(*) as CountComments from QODcomments WHERE QODID=" & id & " GROUP BY QODID", "DSN=fruplay;" If Not CommentTable.EOF Then NumberOfComments = CommentTable.Fields("CountComments") Else NumberOfComments = 0 End If CommentTable.Close %> <% If Email <> " " Then %> <% Else %> <% End If %> <% QODTable.MoveNext i = i + 1 Loop if i >= 50 then LastID = UseDate %><% end if QODTable.Close %>

Question	Thanks To	Date First Used	# Answers	# Comments	View
><%=Question%>
	><%=ThanksTo%>	<%=ThanksTo%>	<%=UseDate%>	<%=NumAnswers%>	<%=NumberOfComments%>	> View
View Next 50

Suggest Your Own Frü Q