<% 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
<% If LoggedIn or AllowAllPosts Then %> <% Else %> <% End If LastID = Request.QueryString("LastID") If LastID = "" or IsNull(LastID) Then LastID = 99999999 End If Set GuestBookTable = CreateObject("ADODB.Recordset") GuestBookTable.Open "SELECT DISTINCTROW TOP 50 * FROM GuestBook Where ID <= " & LastID & " and Display=True ORDER BY ID DESC", "DSN=fruguestbook;" i = 0 Do Until GuestBookTable.EOF ID = GuestBookTable.Fields("ID") GBMember = GuestBookTable.Fields("Member") Reviewed = GuestBookTable.Fields("Reviewed") dim webPage webPage = GuestBookTable.Fields("Homepage") if not instr(webPage, "http://") > 0 then webPage = "http://" & webPage end if %> <% If GBMember = Member or Privilege >= 99 Then %> <% End If If Reviewed = false and Privilege >= 1 and ProtestPoints > 0 Then %> <% End If %> <% LastID = GuestBookTable.Fields("ID") GuestBookTable.MoveNext i = i +1 Loop if i >= 50 then %><% end if %> <% %><% GuestBookTable.Close %>
Sign The Guest Book

To Sign The GuestBook, Members Sign In or New Visitors Create Your Login
<%=GuestBookTable.Fields("Name")%>
Homepage: ><%=GuestBookTable.Fields("Homepage")%>
Email: ><%=GuestBookTable.Fields("Email")%>
Comment:
<%=GuestBookTable.Fields("Comment")%>
[Remove]
[Protest]
 
View Next 50
 
Back to the Latest Guestbook Entries