% 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
view = Request.QueryString("View")
if view <> "day" and view <> "week" and view <> "month" and view <> "year" then
view = "day"
end if
viewdate = Request.QueryString("Date")
if viewdate = "" or Not IsDate(viewdate) then
viewdate = date
end if
viewmonth = month(viewdate)
viewday = day(viewdate)
viewyear = year(viewdate)
if view = "day" then
previousDate = DateAdd("d", -1, viewdate)
nextDate = DateAdd("d", 1, viewdate)
end if
if view = "week" then
previousDate = DateAdd("ww", -1, viewdate)
nextDate = DateAdd("ww", 1, viewdate)
end if
if view = "month" then
previousDate = DateAdd("m", -1, viewdate)
nextDate = DateAdd("m", 1, viewdate)
end if
if view = "year" then
previousDate = DateAdd("yyyy", -1, viewdate)
nextDate = DateAdd("yyyy", 1, viewdate)
end if
eventID = Request.QueryString("eventID")
printableView = Request.QueryString("printableView")
%>
My Moxy Früvous Calendar
<% if printableView then %>
<% else %>
<% end if %>
<% if not printableView then %>
My Moxy Früvous Calendar
|
<% end if %>
|
<% if not printableView then %>
<% end if %>
|
|
<% if not printableView then %>
<%
display_MonthCalendar viewDate, 1
%>
| | Früvous or Holiday |
| Personal |
| Both |
|
<%
else
if printableView and view<>"month" and view<>"year" then
%>
<%
display_MonthCalendar viewDate, 0
end if
%>
|
<% end if %>
 |
<% if not printableView or ( printableView and view<>"month" and view<>"year") then %>
| |
<% end if %>
All Moxy Früvous concert dates here are UNOFFICIAL. See fruvous.com for the real, up to date schedule. |
<%
If Not LoggedIn and Not printableView Then
%>
| |
|
Members Sign In or New Visitors Create Your Login
As a member, you can have your own personal Frü calendar:
add your own appointments that only you can see
get reminders of your day's appointments when you log in
view all the Moxy Früvous events (for the official schedule, see Fruvous.com)
Sign In Now |
|
<%
Else
if eventID > 0 then
%>
| |
| Modify an Event |
|
<%
modify_Event viewdate, eventID
%>
|
<%
end if
End If
%>
<% if not printableView then %>
| |
| >Day | >Week | >Month | >Year |
| |
| &date=<%=previousDate%>><=Previous | &date=<%=nextDate%>>Next=> |
| |
<% end if %>
<%
if view = "day" then
%> | <%
beginTime = CDate("8:00 AM")
endTime = CDate("6:00 PM")
display_DayView viewdate, beginTime, endTime
%> | <%
end if
if view = "week" then
%> | <%
display_WeekView (viewdate)
%> | <%
end if
if view = "month" then
%> | <%
display_MonthView (viewdate)
%> | <%
end if
if view = "year" then
%> | <%
display_YearView (viewdate)
%> | <%
end if
%>
<% if not printableView then %>
|
|
<%
search_CalendarForm searchString, 0
%>
|
<%
If LoggedIn Then
%>
|
<%
%> | Add an Event | <%
%>
|
<%
modify_Event viewdate, 0
%>
|
<%
End If
%>
Keep a backup of your important dates - just in case. If you have any problems, please email me. |
| |
| Show Printable Version of Your Calendar |
<% End if %>
|