<%Set RSMONTHNAME = Server.CreateObject("ADODB.Recordset") SQLMONTHNAME = "SELECT * from MonthName" RSMONTHNAME.Open SQLMONTHNAME, Conn, 1, 3%> <%RSMONTHNAME.close set RSMONTHNAME = nothing%> <%=RSMONTHNAME(lastMonth)%> <%=RSMONTHNAME(thisMonth)%> <%=thisYear%> <%=RSMONTHNAME(nextMonth)%>

<%Set RSWEEKDAYNAME = Server.CreateObject("ADODB.Recordset") SQLWEEKDAYNAME = "SELECT * from WeekDayName" RSWEEKDAYNAME.Open SQLWEEKDAYNAME, Conn, 1, 3%> <%i = 1 Do while i <= 7%> <%i = i + 1 Loop%> <%RSWEEKDAYNAME.close set RSWEEKDAYNAME = nothing Do while maxDays >= dayCounter%> <%Do while weekDayCounter <= 7%> <%If (weekCounter = 1 AND weekDayCounter < firstWeekDay) OR dayCounter > maxDays Then%> <%Else dateSelect = thisMonth & "/" & dayCounter & "/" & thisYear %> <%dayCounter = dayCounter + 1 End If weekDayCounter = weekDayCounter + 1 Loop weekCounter = weekCounter + 1 If weekDayCounter > 7 Then weekDayCounter = 1 End If%> <%Loop%> <%=RSWEEKDAYNAME(i)%> onmouseover="mOvr(this,'<%=Date_Rollover_Color%>'); dispMsg('<%=dateSelect%>'); return true;" onmouseout="mOut(this,'<%If thisMonth = Month(Now) AND dayCounter = Day(Now) AND thisYear = Year(Now) Then%><%=Today_Background_Color%><%Else%><%=Date_Background_Color%><%End If%>'); dispMsg(' '); return true;" onclick="mClk(this);"<%End If%>> #" onclick="window.open('default.asp?date=<%=dateSelect%>','datewin','width=450,height=250,scrollbars');<%Else%>default.asp?date=<%=dateSelect%><%End If%>"><%=dayCounter%> <%Set RSDATE = Server.CreateObject("ADODB.Recordset") SQLDATE = "SELECT * FROM Events WHERE (Month(Date) = Month('"&dateSelect&"')) AND (Year(Date) = Year('"&dateSelect&"')) AND (Day(Date) = Day('"&dateSelect&"'))" RSDATE.Open SQLDATE, Conn, 1, 3 Do while NOT RSDATE.EOF%> <%If RSBODY("Event_Display") Then%> <%=RSDATE("Category")%> <%Else%> <%=RSDATE("Event_Name")%> <% End If RSDATE.movenext Loop RSDATE.close set RSDATE = nothing%>

Upcoming Events <%Set RS = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM Events ORDER BY Date" RS.Open SQL, Conn, 1, 3 i = 1 Do while NOT RS.EOF If i <= CInt(RSBODY("Upcoming_Events_Number")) AND datediff("D",now(),RS("Date")) >= 0 Then%> /<%=Day(RS("Date"))%>/<%=Year(RS("Date"))%>"><%=MonthName(Month(RS("Date")))%> <%=Day(RS("Date"))%>, <%=Year(RS("Date"))%>  <%=RS("Event_Name")%> <%i = i + 1 End If RS.movenext Loop RS.close set RS = nothing%>

<%Set RSMONTHNAME = Server.CreateObject("ADODB.Recordset") SQLMONTHNAME = "SELECT * from MonthName" RSMONTHNAME.Open SQLMONTHNAME, Conn, 1, 3%> <%RSMONTHNAME.close set RSMONTHNAME = nothing%> <%=RSMONTHNAME(Month(request("date")))%> <%=Day(request("date"))%>, <%=Year(request("date"))%> <%Set RSDATE = Server.CreateObject("ADODB.Recordset") SQLDATE = "SELECT * FROM Events WHERE (Month(Date) = Month('"&request("date")&"')) AND (Year(Date) = Year('"&request("date")&"')) AND (Day(Date) = Day('"&request("date")&"')) ORDER BY Date" RSDATE.Open SQLDATE, Conn, 1, 3 If NOT RSDATE.BOF AND NOT RSDATE.EOF Then%> <%Do while NOT RSDATE.EOF rsdate2 = RSDATE("Date") %> <% If NOT isNull(RSDATE("Location")) Then %> <%End If If NOT isNull(RSDATE("Description")) AND RSDATE("Description") <> "" Then %> <%End If RSDATE.movenext Loop%> <%If NOT Hour(rsdate2) = 0 Then%><%If Hour(rsdate2) > 12 Then%><%=Hour(rsdate2) - 12%><%Else%><%=Hour(rsdate2)%><%End If%>:<%If Minute(rsdate2) < 10 Then%>0<%=Minute(rsdate2)%><%Else%><%=Minute(rsdate2)%><%End If%> <%If Hour(rsdate2) > 11 Then%>PM<%Else%>AM<%End If%><%End If%>  <%=RSDATE("Event_Name")%> ">Location <%=RSDATE("Location")%> ">Description <%=RSDATE("Description")%> <%Else%>There are currently no events scheduled for this day.<%End If RSDATE.close set RSDATE = nothing %>

"> Close Window