<%
'option explicit
rem *********************************************************************************
rem Web Calendar system v 3.04, released 2003/02/18
rem Made by Robert Hudec, rhudec@aspik.cz, http://www.aspik.cz
rem *********************************************************************************
%>
<%
dim WcalCalendarSmall
dim WcalMonthNavig
dim WcalYearNavig
dim WcalFilterCats
dim WcalFilterLocs
dim WcalSearch
dim WcalMenuUser
dim WcalMenuCalendar
dim WCalMiddle
dim WcalUpcoming
dim WcalCatT1
dim WcalCatT2
dim wcalAddHEADER
WcalCalendarSmall = CalendarOBJECT.CalendarSmall(0, true, true)
WcalMonthNavig = CalendarOBJECT.DisplayMonths()
WcalYearNavig = CalendarOBJECT.DisplayYears()
WcalSearch = CalendarOBJECT.DisplaySearch()
WcalFilterCats = CalendarOBJECT.CatSelect()
WcalFilterLocs = CalendarOBJECT.LocationSelect()
WcalMenuUser = UserOBJECT.Menu()
WcalMenuCalendar = CalendarOBJECT.Menu()
WcalUpcoming = CalendarOBJECT.ViewUpcoming(10)
WcalCatT1 = CalendarOBJECT.AreaShow("Area1")
WcalCatT2 = CalendarOBJECT.AreaShow("Area2")
wcalAddHEADER = " " & VbCrLf &_
" " & VbCrLf &_
" " & VbCrLf
WCalMiddle = ""
select case ucase(request.queryString("DoAction"))
case "USER"
WCalMiddle = UserOBJECT.Users()
case "CALENDAR"
WCalMiddle = CalendarOBJECT.WebCalendar()
case else
WCalMiddle = CalendarOBJECT.WebCalendar()
end select
%>