<% 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 Set MemberTable = CreateObject("ADODB.Recordset") MemberTable.Open "Select * From Members Where Member = '" & Member & "'", "DSN=frumembers;" If Not MemberTable.EOF Then LastReset = MemberTable.Fields("ProtestPointsReset") FirstDate = MemberTable.Fields("FirstDate") End If MemberTable.Close Set AdminTable = CreateObject("ADODB.Recordset") AdminTable.Open "Select * From AdminOptions", "DSN=fruplay;" If Not AdminTable.EOF Then ProtestResetPeriod = AdminTable.Fields("ProtestResetPeriod") ProtestWaitPeriod = AdminTable.Fields("ProtestWaitPeriod") MemberProtestPointsMax = AdminTable.Fields("MemberProtestPointsMax") End If AdminTable.Close %> <% if Date >= CDate("11/23/2000") then %> <% end if %>

<% if Date = CDate("10/31/2000") then %> <% else %> <% end if %>

Moxy Früvous Playground
Moxy Früvous Playground
	<% if LoggedIn Then %> <% else %> <% end if %> <% %> <% %> Welcome <%=Session.Value("playground_Member")%>! Your Calendar for Today Wisdom From Dave's Head <% beginDate = Date Set EventTable = CreateObject("ADODB.Recordset") EventTable.Open "Select * FROM Events where EventDate = #" & beginDate & "# ORDER BY EventDate", "DSN=frucalendar;" i = 0 Do Until EventTable.EOF EventDate = EventTable.Fields("EventDate") ConcertCity = EventTable.Fields("ConcertCity") ConcertState = EventTable.Fields("ConcertState") EventDesc = EventTable.Fields("EventDesc") EventType = EventTable.Fields("EventType") if EventType = "MF" Then i = i + 1 end if EventTable.MoveNext if EventType = "MF" then %>Moxy Früvous Event: <%=ConcertCity%> <%=ConcertState%> <%=EventDesc%> <% else %> <%=EventDesc%> <% end if Loop if i = 0 then %> No Moxy Früvous events <% end if i = 0 Set CalendarTable = CreateObject("ADODB.Recordset") CalendarTable.Open "Select * FROM Appointments where Member='" & Member & "' and Date = #" & beginDate & "# ORDER BY Date, Time", "DSN=frucalendar;" Do Until CalendarTable.EOF CalendarDate = CalendarTable.Fields("Date") CalendarTime = CalendarTable.Fields("Time") Appointment = CalendarTable.Fields("Appointment") DurationHour = CalendarTable.Fields("DurationHour") DurationMinute = CalendarTable.Fields("DurationMinute") AllDayEvent = CalendarTable.Fields("AllDayEvent") if AllDayEvent then displayCalendarTime = "" end if i = i + 1 CalendarTable.MoveNext if AllDayEvent then displayTime = "" else displayHr = Hour(CalendarTime) displayMin = Minute(CalendarTime) if displayHR >= 12 then displayAMPM = "pm" else displayAMPM = "am" end if displayHr = displayHr mod 12 if displayHr = 0 then displayHr = 12 end if if displayMin < 10 then displayMin = "0" & displayMin end if displayTime = displayHr & displayAMPM end if %> <%=displayTime%> <%=Appointment%> <% Loop if i = 0 then %> No personal events scheduled for today <% end if EventTable.Close CalendarTable.Close %> <% adOpenStatic = 3 adOpenDynamic = 2 adOpenKeyset = 1 Set DaveTable = CreateObject("ADODB.Recordset") DaveTable.Open "Select * from Quotes ", "DSN=daveshead;", adOpenStatic If NOT(DaveTable.EOF) Then DaveTable.MoveLast NumOfRecords = DaveTable.RecordCount DaveTable.MoveFirst Rnd(-1) Randomize() RandomRecord = (CInt((NumOfRecords*Rnd) + 1)) DaveTable.Move RandomRecord-1 Answer = DaveTable.Fields("Quote") End If DaveTable.Close %><%=Answer%> <% %> Member ID:Password: Create Member Login <% Set QODTable = CreateObject("ADODB.Recordset") QODTable.Open "SELECT TOP 1 * FROM QOD WHERE Reviewed=True and UseDate <= Now() ORDER BY usedate DESC", "DSN=fruplay;" If QODTable.EOF Then QODNumber = 0 QODQuestion = "Sorry! No Frü Q Today." Else QODID = QODTable.Fields("ID") QODQuestion = QODTable.Fields("Question") Dim QODAnswer(5) QODAnswer(1) = QODTable.Fields("Answer1") QODAnswer(2) = QODTable.Fields("Answer2") QODAnswer(3) = QODTable.Fields("Answer3") QODAnswer(4) = QODTable.Fields("Answer4") QODAnswer(5) = QODTable.Fields("Answer5") QODNumber = QODTable.Fields("NumberOfAnswers") QODName = QODTable.Fields("Name") QODEmail = QODTable.Fields("Email") End If %> <% i = i + 1 Loop %> <% QODTable.Close If QODNumber > 0 Then If LoggedIn or AllowAllPosts Then %> <% Else %> <% End If If QODName <> " " and Not(IsNull(QODName)) and QODName <> "" Then If QODEmail <> " " and Not(IsNull(QODEmail)) and QODEmail <> "" Then %> <% Else %> <% End If End If If LoggedIn or AllowAllPosts Then %> <% Else %> <% End If End If %> Frü Q <%=QODQuestion%> <% i = 1 Do Until i > QODNumber %> <%=QODAnswer(i)%>   To Vote: Members Sign In or New Visitors Create Your Login   Suggested by: <%=QODName%> Suggested by: <%=QODName%>   Suggest a Frü Q | View Past Frü Qs    View Past Frü Qs Come to Play Moxy Moron or Gënous? Play the Trivia Game Frü eCards Send a Früvous eCard Featuring Fran Egan photos Fly By Day Photos Ask Dave's Head Fortunes told, problems solved, random wisdom See what others ask Dave's Head My Frü Calendar Keep track of your Früvous luncheon dates with a personal calendar. My Baby Loves A Bunch of Authors Frü Haikü Moxy Früvous Lads Subject Of Many Haiku Inspirational Frü Limericks There once were four lads from Toronto... Frü Chain Stories My baby loves a bunch of authors. Don't break the chain. Magnetic Poetry Magnetic Poetry with Moxy Früvous words. Get stuck on Früvous. Moxy Games (be patient as they load) Moxy Sweeper Save the Früvous Lads from Budgie. A Moxy variation of Minesweeper. Breakout Früvous Free the Früvous Lads! A Moxy variation of Breakout. HangLad Früvous Hangman. Guess the word before you hang the lad. Moxy Tetrous Keep the blocks from reaching the lads. Tetris starring Moxy Früvous. Früvous Puzzles Remember the old slide tile puzzles? Now solve Moxy Früvous puzzles. Games Contributed by Frü Friends Früvous Tic Tac Toe Tic Tac Toe, featuring Larry and Barry. Designed by Cara Kozack Concert Board Game Avoid security, hecklers, & falling microphones to get to the stage. Designed by Cara Kozack Playground Photos Get The Picture? The Früvous Playground Photo Gallery. Show off your Playground Button as only you know how.   <% If Not(IsNull(GrafEmail)) and GrafEmail <> "" and GrafEmail <> " "Then %> <% Else %> <% End If If GrafMember = Member or Privilege >= 99 Then %> <% End If If Reviewed = false and Privilege >= 1 and ProtestPoints > 0 Then %> <% End If %> <% GrafTable.MoveNext i = i + 1 Loop GrafTable.Close If LoggedIn Or AllowAllPosts Then %> <% If Privacy Then %> <% Else %> <% End If %> <% Else %> <% End If %> Graffitti <% Set GrafTable = CreateObject("ADODB.Recordset") GrafTable.Open "SELECT TOP 5 * FROM graffitti WHERE Display=true ORDER BY Date DESC", "DSN=fruplay;" i = 1 Do Until GrafTable.EOF GrafID = GrafTable.Fields("ID") Message = GrafTable.Fields("Message") Reviewed = GrafTable.Fields("Reviewed") Name = GrafTable.Fields("Name") GrafEmail = GrafTable.Fields("Email") DatePosted = GrafTable.Fields("Date") GrafMember = GrafTable.Fields("Member") GrafDisplay = GrafTable.Fields("Display") if i mod 5 = 1 then color="#CC0000" End If if i mod 5 = 2 then color="#000099" End If if i mod 5 = 3 then color="#FF6600" End If if i mod 5 = 4 then color="#993366" End If if i mod 5 = 0 then color="#009900" End If %> <%=Message%> <%=Name%> <%=DatePosted%> <%=Name%> <%=DatePosted%> [Remove] [Protest]   Graffitti: Name: Email: Name: Email: To Write Graffiti, Members Sign In or New Visitors Create Your Login View Past Graffitti Silliness Hiatus Helper While Moxy Früvous is on their dreaded touring hiatus, Früvous Playmates recommend other bands to check out. Recommend one of your favorite lesser known bands. Be creative! Make a banner (no bigger than 500 X 150 pixels). Email me your banner and the band's website link. These are recommendations made by you. (No money accepted!) Check Them Out on Amazon.Com - Recommended by: TeAnna www.reducedshakespeare.com - Recommended by: Scary Emilie - the britishfru www.captaintractor.com - Recommended by: Cara Kozack www.arrogant-worms.com - Recommended by: TeAnna www.davincisnotebook.com - Recommended by: Michele Email the WebMaster Disclaimer - This site is just for fun