<% 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 Haikü

Moxy Früvous Haikü

<% If LoggedIn or AllowAllPosts Then %> <% Else %> <% End If %> <% LastID = Request.QueryString("LastID") If LastID = "" or IsNull(LastID) Then LastID = 9999999 End If Set HaikuTable = CreateObject("ADODB.Recordset") HaikuTable.Open "Select DISTINCTROW TOP 50 * FROM Haikus WHERE ID <= " & LastID & " ORDER BY ID DESC", "DSN=fruhaiku;" i = 1 Do Until HaikuTable.EOF HaikuID = HaikuTable.Fields("ID") Line1 = HaikuTable.Fields("Line1") Line2 = HaikuTable.Fields("Line2") Line3 = HaikuTable.Fields("Line3") Author = HaikuTable.Fields("Author") Email = HaikuTable.Fields("Email") HaikuDate = HaikuTable.Fields("Date") HaikuMember = HaikuTable.Fields("Member") HaikuDisplay = HaikuTable.Fields("Display") HaikuReviewed = HaikuTable.Fields("Reviewed") If HaikuDisplay Then %> <% If Email = " " or IsNull(Email) or Email = "" Then %> <% Else %> <% End If If HaikuMember = Member or Privilege>=99 Then %> <% End If If Not HaikuReviewed and LoggedIn and Privilege>=1 and ProtestPoints > 0 Then %> <% End If %> <% End If LastID = HaikuTable.Fields("ID") HaikuTable.MoveNext i = i + 1 Loop if i >= 50 then %><% end if %> <% %><% HaikuTable.Close %>
moxy fruvous haiku
Original Moxy Haikuvous was an idea by Caitlin Shirts
 
Add A Frü Haikü
(The usual form of a Haiku is a 3 line stanza with a 5,7,5 syllable pattern.)
 
<% If Privacy Then %> <% Else %> <% End If %>
Line 1:
Line 2:
Line 3:
Your Name:
Email:
Email:
To Add Your Haiku, Members Sign In or New Visitors Create Your Login

This is for all to enjoy. So have fun! Because submitting a post makes it available for everyone to read, any entry that is a violation of anyone's privacy or is a personal attack will have to be removed. Thanks for understanding!


Frü Haikü
<%=Line1%>
<%=Line2%>
<%=Line3%>

     By:<%=Author%> <%=HaikuDate%>

     By:<%=Author%> <%=HaikuDate%>
[Remove]
[Protest]
View Next 50
 
Back to the Latest Haiku