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

Früvous Playground



<% Message = Request.Form("GrafMessage") Name = Request.Form("GrafName") GrafEmail = Request.Form("GrafEmail") Dim Prob Prob = 0 If IsNull(Message) OR Message = "" Then Prob = 1 End If If IsNull(Name) OR Name = "" Then Name = "Anonymous" End If If IsNull(GrafEmail) OR GrafEmail = "" Then GrafEmail = " " End If If Member = "" or IsNull(Member) Then Member = 0 End If If Prob = 0 Then Set GrafTable = CreateObject("ADODB.Recordset") GrafTable.Open "graffitti", "DSN=fruplay;", 1, 3, 2 GrafTable.AddNew GrafTable.Fields("Message") = Message GrafTable.Fields("Name") = Name GrafTable.Fields("Email") = GrafEmail GrafTable.Fields("Date") = Now() GrafTable.Fields("Display") = true GrafTable.Fields("Member") = Member GrafTable.Fields("Reviewed") = false GrafTable.Fields("Protest") = false GrafTable.Update GrafTable.Close End If Response.Redirect("fruvousplayground.asp") %>

Return To Fruvous Playground