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

Früvous Playground



<% Poem = Request.Form("Poem") Author = Request.Form("Author") Email = Request.Form("Email") Dim Prob Prob = 0 If IsNull(Poem) OR Poem = "" Then Line1 = " " Prob = 1 End If If IsNull(Author) OR Author = "" Then Author = "Anonymous" End If If IsNull(Email) OR Email = "" Then Email = " " End If If Member = "" or IsNull(Member) Then Member = 0 End If If Prob = 0 Then Set PoemTable = CreateObject("ADODB.Recordset") PoemTable.Open "Poems", "DSN=frupoems;", 1, 3, 2 PoemTable.AddNew PoemTable.Fields("Poem") = Server.HTMLEncode(Poem) PoemTable.Fields("Author") = Author PoemTable.Fields("Email") = Email PoemTable.Fields("Date") = Now() PoemTable.Fields("Member") = Member PoemTable.Fields("Reviewed") = false PoemTable.Fields("Display") = true PoemTable.Update PoemTable.Close Response.Redirect("savedmagpoetry.asp") Else %> You didn't complete your poem. Go back.
<% End If %>

Return To Frü Poetry