<% function getMonthsList(mn) dim i response.Write("") end function function getYearsList(yr) response.Write("") end function navmonth = request.querystring("month") navyear = request.querystring("year") If navmonth = "" Then navmonth = Month(Date) End If If navyear = "" Then navyear = Year(Date) End If firstday = Weekday(CDate(navmonth & "/" & 1 & "/" & navyear)) leapTestNumbers = navyear / 4 leapTest = (leapTestNumbers) - Round(leapTestNumbers) If navmonth = 2 Then If leapTest <> 0 Then lastDate = 28 Else lastDate = 29 End If ElseIf ((navmonth = 4) OR (navmonth = 6) OR (navmonth = 9) OR (navmonth = 11)) Then lastDate = 30 Else lastDate = 31 End If lastMonth = navmonth - 1 lastYear = navyear If lastMonth < 1 Then lastMonth = 12 lastYear = lastYear - 1 End If nextMonth = navmonth + 1 nextYear = navyear If nextMonth >12 Then nextMonth = 1 nextYear = nextYear + 1 End If dateCounter = 1 weekCount = 1 DateEnd = lastDate DateBegin = firstDate Weekday_Font = RSBODY("Weekday_Font") Weekday_Font_Size = RSBODY("Weekday_Font_Size") Weekday_Font_Color = RSBODY("Weekday_Font_Color") Weekday_Background_Color = RSBODY("Weekday_Background_Color") Date_Font = RSBODY("Date_Font") Date_Font_Size = RSBODY("Date_Font_Size") Date_Font_Color = RSBODY("Date_Font_Color") Date_Background_Color = RSBODY("Date_Background_Color") Event_Font = RSBODY("Event_Font") Event_Font_Size = RSBODY("Event_Font_Size") Event_Font_Color = RSBODY("Event_Font_Color") Cell_Width = RSBODY("Cell_Width") Cell_Height = RSBODY("Cell_Height") Cell_Background_Color = RSBODY("Cell_Background_Color") Border_Size = RSBODY("Border_Size") Border_Color = RSBODY("Border_Color") %> <%=RSBODY("Header")%>
For more details about any event, please click on text in box.
<%If (RSBODY("Abbreviate_Months") = True) Then%><%=MonthName(lastMonth, true)%><%Else%><%=MonthName(lastMonth)%><%End If%> <%If (RSBODY("Abbreviate_Months") = True) Then%><%=MonthName(navMonth, true)%><%Else%><%=MonthName(navMonth)%><%End If%> <%=navyear%> <%If (RSBODY("Abbreviate_Months") = True) Then%><%=MonthName(nextMonth, true)%><%Else%><%=MonthName(nextMonth)%><%End If%>
<%call getMonthsList(navmonth)%>  <%call getYearsList(navyear)%> 
 Print Calendar
<% Set RSEVENT = Server.CreateObject("ADODB.RecordSet") RSEVENT.Open "SELECT * FROM Events", Conn, 1, 3 Do while weekCount <= 7 dateSelect = navmonth & "/" & dateCounter & "/" & navyear %> <% If (weekCount < firstDay) OR (dateCounter > lastDate) Then %> <% else %> <% dateCounter = dateCounter + 1 end if weekCount = weekCount + 1 Loop weekCount = 1 %> <% Do while dateCounter <= lastDate %> <% Do while weekCount <= 7 dateSelect = navmonth & "/" & dateCounter & "/" & navyear %> <% If dateCounter > lastDate Then %> <% else %> <% dateCounter = dateCounter + 1 end if weekCount = weekCount + 1 Loop weekCount = 1 %> <% Loop RSEVENT.close %>
<%If (RSBODY("Abbreviate_Days") = True) Then%>Sun<%Else%>Sunday<%End If%> <%If (RSBODY("Abbreviate_Days") = True) Then%>Mon<%Else%>Monday<%End If%> <%If (RSBODY("Abbreviate_Days") = True) Then%>Tues<%Else%>Tuesday<%End If%> <%If (RSBODY("Abbreviate_Days") = True) Then%>Wed<%Else%>Wednesday<%End If%> <%If (RSBODY("Abbreviate_Days") = True) Then%>Thurs<%Else%>Thursday<%End If%> <%If (RSBODY("Abbreviate_Days") = True) Then%>Fri<%Else%>Friday<%End If%> <%If (RSBODY("Abbreviate_Days") = True) Then%>Sat<%Else%>Saturday<%End If%>
<%=dateCounter%> <% 'Set RSEVENT = Server.CreateObject("ADODB.RecordSet") 'RSEVENT.Open "SELECT * FROM Events", Conn, 1, 3 RSEVENT.movefirst Do while NOT RSEVENT.EOF rsdate = RSEVENT("Date") rsDateEnd = RSEVENT("endTime") If DateDiff("d",rsDate,dateSelect) >= 0 AND DateDiff("d",dateSelect,rsDateEnd) >= 0 Then 'If (Day(rsdate) = dateCounter) AND (Month(rsdate) = CInt(navmonth)) AND (Year(rsdate) = CInt(navyear)) Then %>
<%If RSBODY("Event_Display") = True Then%> <%=RSEVENT("Category")%> <%Else%> <%=RSEVENT("Event_Name")%> <% End If response.Write("
"& TimeValue(RSEVENT("date")) ) if len(RSEVENT("endTime"))>0 and inStr(RSEVENT("endTime"),":")>0 then response.Write(" - "& TimeValue(RSEVENT("endTime"))) end if response.Write("
") End If RSEVENT.movenext Loop 'RSEVENT.close %>
<%=dateCounter%> <% RSEVENT.movefirst 'Set RSEVENT = Server.CreateObject("ADODB.RecordSet") 'RSEVENT.Open "SELECT * FROM Events", Conn, 1, 3 Do while NOT RSEVENT.EOF rsdate = RSEVENT("Date") rsdateEnd = RSEVENT("endTime") If DateDiff("d",rsDate,dateSelect) >= 0 AND DateDiff("d",dateSelect,rsDateEnd) >= 0 Then 'If (Day(rsdate) = dateCounter) AND (Month(rsdate) = CInt(navmonth)) AND (Year(rsdate) = CInt(navyear)) Then %>
<%If RSBODY("Event_Display") = True Then%> <%=RSEVENT("Category")%> <%Else%> <%=RSEVENT("Event_Name")%> <% End If response.Write("
"& TimeValue(RSEVENT("date")) ) if len(RSEVENT("endTime"))>0 and inStr(RSEVENT("endTime"),":")>0 then response.Write(" - "& TimeValue(RSEVENT("endTime"))) end if response.Write("
") End If RSEVENT.movenext Loop 'RSEVENT.close %>
<%=RSBODY("Footer")%>