<% 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 %> Früvous Playground Frü Q Results

Früvous Playground Frü Q

<% Answer = Request.Form("QOD") QODId = Request.Form("QODId") If QODID = "" or IsNull(QODID) or QODID <= 0 Then QODID = Request.QueryString("ID") If QODID = "" or IsNull(QODID) or QODID <= 0 Then Set QODTable = CreateObject("ADODB.Recordset") QODTable.Open "SELECT TOP 1 * FROM QOD WHERE Reviewed=True and UseDate <= Now() ORDER BY usedate DESC", "DSN=fruplay;" QODID = QODTable.Fields("ID") QODTable.Close End If End If Set QODTable = CreateObject("ADODB.Recordset") QODTable.Open "QOD WHERE id=" & qodid, "DSN=fruplay;", 1, 3, 2 If Not(QODTable.EOF) Then If Answer = "1" Then QODTable.Fields("Selected1") = QODTable.Fields("Selected1") + 1 End If If Answer = "2" Then QODTable.Fields("Selected2") = QODTable.Fields("Selected2") + 1 End If If Answer = "3" Then QODTable.Fields("Selected3") = QODTable.Fields("Selected3") + 1 End If If Answer = "4" Then QODTable.Fields("Selected4") = QODTable.Fields("Selected4") + 1 End If If Answer = "5" Then QODTable.Fields("Selected5") = QODTable.Fields("Selected5") + 1 End If QODTable.Update %> <% QODID = QODTable.Fields("ID") QODQuestion = QODTable.Fields("Question") Dim QODAnswer(5), QODSelected(5) QODAnswer(1) = QODTable.Fields("Answer1") QODAnswer(2) = QODTable.Fields("Answer2") QODAnswer(3) = QODTable.Fields("Answer3") QODAnswer(4) = QODTable.Fields("Answer4") QODAnswer(5) = QODTable.Fields("Answer5") QODSelected(1) = QODTable.Fields("Selected1") QODSelected(2) = QODTable.Fields("Selected2") QODSelected(3) = QODTable.Fields("Selected3") QODSelected(4) = QODTable.Fields("Selected4") QODSelected(5) = QODTable.Fields("Selected5") QODNumber = QODTable.Fields("NumberOfAnswers") QODUseDate = QODTable.Fields("UseDate") QODName = QODTable.Fields("Name") QODEmail = QODTable.Fields("Email") i = 1 QODTotal = 0 Do Until i > QODNumber QODTotal = QODTotal + QODSelected(i) i = i + 1 Loop QODTable.Close %> <% If QODName <> " " and Not(IsNull(QODName)) and QODName <> "" Then If QODEmail <> " " and Not(IsNull(QODEmail)) and QODEmail <> "" Then %> <% Else %> <% End If End If Else %> Sorry. No Frü Q Today. <% End If %> <% If LoggedIn or AllowAllPosts Then %> <% End If Set QODCTable = CreateObject("ADODB.Recordset") QODCTable.Open "SELECT * FROM QODComments WHERE QODID = " & QODID & " and Display=True ORDER BY date ", "DSN=fruplay;" i = 1 Do Until QODCTable.EOF QODCID = QODCTable.Fields("ID") QODCComment = QODCTable.Fields("Comment") QODCName = QODCTable.Fields("Name") QODCEmail = QODCTable.Fields("Email") QODCDate = QODCTable.Fields("Date") QODCMember = QODCTable.Fields("Member") QODCReviewed = QODCTable.Fields("Reviewed") %> <% If QODCMember = Member or Privilege >= 99 Then %> <% End If If QODCReviewed = false and Privilege >= 1 and ProtestPoints > 0 Then %> <% End If %> <% QODCTable.MoveNext i = i +1 Loop If i = 1 Then %> <% End If QODCTable.Close %> <% If LoggedIn or AllowAllPosts Then %> <% If Privacy Then %> <% Else %> <% End If %> <% Else %> <% End If %>

<% i = 1 iWidth = 250 Do Until i > QODNumber if QODTotal > 0 Then PercSelect = QODSelected(i)/QODTotal Else PercSelect = 0 End If %> <% i = i + 1 Loop %>

<%=QODQuestion%>

<%=QODAnswer(i)%> (<%=FormatPercent(PercSelect,1)%>)

BGCOLOR='#000099'>

Total Votes: <%=QODTotal%>

Suggested by: <%=QODName%>

Suggest A Frü Q View Previous Frü Qs

Comments

<%=QODCName%>

Email: ><%=QODCEmail%>

Date: <%=QODCDate%>

Comment:

<%=QODCComment%>