% 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 imageArray = Array("fruecards/fruecardimages/davesingstolads.gif", "fruecards/fruecardimages/mikethornhill.gif", "fruecards/fruecardimages/davethornhill.gif", "fruecards/fruecardimages/jianthornhill.gif", "fruecards/fruecardimages/murraythornhill.gif", "fruecards/fruecardimages/franegan/fe099dave.jpg", "fruecards/fruecardimages/franegan/fe042jian.jpg", "fruecards/fruecardimages/franegan/fe039mike.jpg", "fruecards/fruecardimages/franegan/fe089murr.jpg") puzzleID = Request.Form("puzzleID") + 1 if puzzleID = "" or puzzleID = null or puzzleID > UBound(imageArray) then puzzleID = 0 end if %>