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

Moxy Früvous Playground

<% Set GuestBookTable = CreateObject("ADODB.Recordset") GuestBookTable.Open "GuestBook", "DSN=fruguestbook;", 1, 3, 2 If ( IsNull( Request.Form("Name") ) OR "" = Request.Form("Name") ) Then Response.write "Go back and enter your name like a good guest...
" & vbNewLine Else GuestBookTable.AddNew GuestBookTable.Fields("Name") = Request.Form("Name") GuestBookTable.Fields("Homepage") = Request.Form("Homepage") & " " GuestBookTable.Fields("Email") = Request.Form("Email") & " " GuestBookTable.Fields("Comment") = Request.Form("Comment") & " " GuestBookTable.Fields("Date") = Now() If Member = "" or IsNull(Member) Then Member = 0 End If GuestBookTable.Fields("Member") = Member GuestBookTable.Fields("Reviewed") = false GuestBookTable.Fields("Display") = true GuestBookTable.Fields("Protest") = false GuestBookTable.Update End IF GuestBookTable.Close %>
Return To Guest Book