<% 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 %> Your Comment for the Frü Q

Comment On the Frü Q



<% Dim Prob Prob = 0 If ( IsNull( Request.Form("QODCName") ) OR "" = Request.Form("QODCName") ) Then %> You didn't enter your name.
<% Prob = 1 End If If ( IsNull( Request.Form("QODID") ) OR "" = Request.Form("QODID") ) Then %> There is an error. The question you are commenting on could not be found.
<% Prob = 1 End If If ( IsNull( Request.Form("QODCComment") ) OR "" = Request.Form("QODCComment") ) Then %> You didn't a comment.
<% Prob = 1 End If If Member = "" or IsNull(Member) Then Member = 0 End If If Prob = 0 Then Set NewCTable = CreateObject("ADODB.Recordset") NewCTable.Open "QODcomments", "DSN=fruplay;", 1, 3, 2 NewCTable.AddNew NewCTable.Fields("Name") = Request.Form("QODCName") NewCTable.Fields("QODID") = Request.Form("QODID") NewCTable.Fields("Email") = Request.Form("QODCEmail") & " " NewCTable.Fields("Comment") = Request.Form("QODCComment") & " " NewCTable.Fields("Date") = Now() NewCTable.Fields("Member") = Member NewCTable.Fields("Display") = true NewCTable.Fields("Reviewed") = false NewCTable.Fields("Protest") = false NewCTable.Update NewCTable.Close %> Thank you! Your comment has been added. <% Else %> Go back to the previous page. <% End If %> > Return to Comments.