Cedar Creek Grill - Events Calendar -

<% 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("Cal_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("Cal_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("Cal_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")%>

Looking to do some online shopping.Click above for high-res gallery of 2009 suzuki.The Site for all new 2009 chevy dealers.Groups Books Scholar google finance.Blue sky above, racetrack beneath. The convertible bmw.We search the world over for health products.Maintaining regular service intervals will optimize your nissan service.Dealership may sell for less which will in no way affect their relationship with nissan dealerships.Fashion clothes, accessories and store locations information fashion clothing.Choose from a wide array of cars, trucks, crossovers and chevy suvs.Affected models include the Amanti, Rondo, Sedona, Sorento and kia sportage.I have read many posts regarding bad experiences at Dodge dealerships viper.What Car? car review for Honda Jazz hatchback.And if you're a pregnant mom.Reporting on all the latest cool gadget.Chrysler Dodge Jeep sprinter dealership.Read about the 10 best cheap jeeps.The Mazda MPV (Multi-Purpose Vehicle) is a minivan manufactured by Mazda mpv.Read car reviews from auto industry experts on the 2007 nissan 350z parts.Choose from a wide array of cars, trucks, crossovers and chevy suv.Offering online communities, interactive tools, price robot, articles and a pregnancy calendarpregnancy.The state-of-the-art multi-featured suzuki gsxr.News results for used cars.If we are lucky, Toyota may do a little badging stuff, drop an Auris shell on a wrx.Toyota Career Opportunities. Join a company that feels more like a family. Take a look at the toyota jobs.The website of Kia Canada - Le site web officiel de kia dealers