<% If GetRequest("view") = "print" Then Response.Write GetPrint(objDate) Else %>
[To add an event,
request a userID
and password]
Rule19 Action Calendar...
ActionCalendar Options
checked<% End If %>>Small
checked<% End If %>>Med
checked<% End If %>>Large
<%= BuildDropDown(objDate,"month") %>
<%= BuildDropDown(objDate,"year") %>
<% Response.Write BuildCalendar(objDate,GetRequest("size")) If GetRequest("view") = "yes" Then Response.Write "
" & BuildCalendar(CDate(GetRequest("date")),"view") End If %>
<% End If %>