<% 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 Function showBreaks(str) showBreaks = replace(str, chr(10), "
") End Function %> Moxy Früvous Magnetic Poetry

Moxy Früvous Magnetic Poetry

<% LastID = Request.QueryString("LastID") If LastID = "" or IsNull(LastID) Then LastID = 9999999 End If Set PoemTable = CreateObject("ADODB.Recordset") PoemTable.Open "Select DISTINCTROW TOP 50 * FROM Poems WHERE ID <= " & LastID & " ORDER BY ID DESC", "DSN=frupoems;" i = 1 Do Until PoemTable.EOF PoemID = PoemTable.Fields("ID") Poem = showBreaks(PoemTable.Fields("Poem")) Author = PoemTable.Fields("Author") Email = PoemTable.Fields("Email") PoemDate = PoemTable.Fields("Date") PoemMember = PoemTable.Fields("Member") PoemDisplay = PoemTable.Fields("Display") PoemReviewed = PoemTable.Fields("Reviewed") If PoemDisplay Then %> <% If Email = " " or IsNull(Email) or Email = "" Then %> <% Else %> <% End If If PoemMember = Member or Privilege>=99 Then %> <% End If If Not PoemReviewed and LoggedIn and Privilege>=1 and ProtestPoints > 0 Then %> <% End If %> <% End If LastID = PoemTable.Fields("ID") PoemTable.MoveNext i = i + 1 Loop if i >= 50 then %><% end if %> <% %><% PoemTable.Close %>



Frü Magnetic Poems

<%=Poem%>
By:<%=Author%> <%=PoemDate%>
By:<%=Author%> <%=PoemDate%>
[Remove]
[Protest]

View Next 50

Create Your Own Poem