<% 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")%> <%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%> <% 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 %> <%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 Do while NOT RSEVENT.EOF rsdate = RSEVENT("Date") 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 End If RSEVENT.movenext Loop RSEVENT.close %> <%=dateCounter%> <% Set RSEVENT = Server.CreateObject("ADODB.RecordSet") RSEVENT.Open "SELECT * FROM Events", Conn, 1, 3 Do while NOT RSEVENT.EOF rsdate = RSEVENT("Date") 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 End If RSEVENT.movenext Loop RSEVENT.close %> Maintained with the Ocean12 ASP Calendar Manager v1.01 ©2001 Ocean12 Technologies, all rights reserved. <%=RSBODY("Footer")%>