<% 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

<% Question = Request.Form("NewQODQuestion") Option1 = Request.Form("NewQODOption1") Option2 = Request.Form("NewQODOption2") Option3 = Request.Form("NewQODOption3") Option4 = Request.Form("NewQODOption4") Option5 = Request.Form("NewQODOption5") Name = Request.Form("NewQODName") Email = Request.Form("NewQODEmail") Problem = 0 If Question = "" or IsNull(Question) Then Problem = 1 %> You didn't enter a question. <% End If If Option1 = "" or IsNull(Option1) Then Problem = 1 %> You didn't enter option 1. <% End If If Option2 = "" or IsNull(Option2) Then Problem = 1 %> You didn't enter option 2. <% End If If Option3 = "" or IsNull(Option3) Then Option3 = " " End If If Option4 = "" or IsNull(Option4) Then Option4 = " " End If If Option5 = "" or IsNull(Option5) Then Option5 = " " End If If Name = "" or IsNull(Name) Then Name = " " End If If Email = "" or IsNull(Email) Then Email = " " End If NumberOfAnswers = 0 If Option1 <> " " Then NumberOfAnswers = NumberOfAnswers + 1 End If If Option2 <> " " Then NumberOfAnswers = NumberOfAnswers + 1 End If If Option3 <> " " Then NumberOfAnswers = NumberOfAnswers + 1 End If If Option4 <> " " Then NumberOfAnswers = NumberOfAnswers + 1 End If If Option5 <> " " Then NumberOfAnswers = NumberOfAnswers + 1 End If If Problem=0 Then Set QODTable = CreateObject("ADODB.Recordset") QODTable.Open "QOD", "DSN=fruplay;", 1, 3, 2 QODTable.AddNew QODTable.Fields("Question") = Question QODTable.Fields("Name") = Name QODTable.Fields("Email") = Email QODTable.Fields("DateAdded") = Now() QODTable.Fields("NumberOfAnswers") = NumberOfAnswers QODTable.Fields("Reviewed") = 0 QODTable.Fields("Answer1") = Option1 QODTable.Fields("Answer2") = Option2 QODTable.Fields("Answer3") = Option3 QODTable.Fields("Answer4") = Option4 QODTable.Fields("Answer5") = Option5 QODTable.Fields("Selected1") = 0 QODTable.Fields("Selected2") = 0 QODTable.Fields("Selected3") = 0 QODTable.Fields("Selected4") = 0 QODTable.Fields("Selected5") = 0 QODTable.Update QODTable.Close %> <% Else %> <% End If %>

Thanks for your suggestion! Your Frü Q will appear soon.

Please go back and fill in the required fields.

Return To Frü Q