<% 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 %>
<% Set objRS = Nothing Set objConn = Nothing Set objCommand = Nothing %>