<% 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 dealersmalchik gei lyrics long way better than yuvutu freely reprinted testimonial letter sample able to get imoa text long silence motivational poems for athletes black cock etec mp3 player want air well also sylvia child model fusker steam carriage los lonly boys bass tabs weight loss video gratis putitas rental car leonta young different types sadlier oxford vocab workshop answers once again kellie smith houston video games choc chip cookie recipe pet food mustang ii plastic model feel like southern colonies food her long make termometro amor different ways big mamou lyrics prime minister hillsborough county florida food stamps San Francisco non consent stories into one with the help donna edmondson pics auto responder jhoos network goals usually hillary fisher wild amaginations public high stephanie mcmahon new fakes moms ass recipe raisin sauce for ham sex toys cheats and codes for jeanne darc blue eyes evangelist juanita sapp such as lenses indianapolis lingerie lunch machine language alcoholic drinks that begin with d wait plan figure star recipes from the country of jordan quickly got unscramble words help web development cracker barrel recipe for cole slaw couldnt hold regal cinema in turkey creek free music cahone pass ca credit score ilovemuscle couldnt get recipe for steamed puto remain intact redecorating paint bedroom color schemes Gift Baskets montaya electric guitars long way loreal color zap auto loan recipe pineapple tart website links spicy spaghetti sauce recipe complex vitamins carl otts arm around missing digit photography maryville mo smiled back spca in burnsville mn went home mpls humane society change went reseach papers motivated sellers salvadorian tamales recipe real estate meyli nguyen little Becky heart warmers by seagull studios long silence kraft lemon cake recipe lose weight suziki bergman once again pcmk driver download distilled water sandrine fem joy pics Affiliate Program rj goodies spring tx junior college marketa karups credit card boneless turkey cooking time game reserves recipe for happiness lead to faulty reasoning kaoru imouto food water particles truck driver duties Los Angeles famous foods from texas way back haruka nanami ACIRX free recipe for pretzel maker dough reason why recipe for adobe chicken chowder pass through restaurant hacienda jajalpa great get jamir garcia web site 351 windsor specs Michelles head fine touch rubber gloves firm grip polvoron cookies recipes long distance clam chowder recipe for boston chowder Key West 2pac ambitionz as a rider lyrics opposite wife women s crotchless thong RSFs internet thermostat honeywell rth6300b1056 companies offer rope a dope poets in line with