<% dim calendar set calendar = new ASP_Calendar calendar.database_bind = true calendar.database_connection = oconn calendar.database_field = "EventDate" calendar.database_table = "Calendar_Event" calendar.scrollable = true calendar.set_month = month_key calendar.set_year = year_key response.write calendar.draw("default.asp") %>
Jump to Month

Month:

Year: <% dim url dim page url = split(Request.ServerVariables("URL"), "/") page = url(UBound(url)) %>

Viewing Options

bullet <% if sort_key <> 0 then %> All Dates <% else %> All Dates <% end if %>
<% sql = "SELECT CategoryID, Description FROM Calendar_Category ORDER BY Description" oconn.open set ors = oconn.execute(sql) if not ors.eof then while not ors.eof response.write vbtab & " " if sort_key <> ors.fields("CategoryID") then response.write "" end if response.write ors.fields("Description") if sort_key <> ors.fields("CategoryID") then response.write "" end if response.write "
" & vbcr ors.movenext wend else response.write "There are currently no calendar categories" end if oconn.close %>