<%=RSBODY("Page

" text="<%=RSBODY("Font_Color")%>" link="<%=RSBODY("Link_Color")%>" vlink="<%=RSBODY("Visited_Link_Color")%>" alink="<%=RSBODY("Active_Link_Color")%>"> <% 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 %>

<%=RSBODY("Footer")%>

Click Here To Administrate The Calendar

Click Here To Go Back To The Main Page

Free online source of motorcycle videos, pictures, insurance, and Forums.The Dodge intrepid is a large four-door, full-size, front-wheel drive sedan car model that was produced for model years 1993 to 2004 .The Mazda 323 name appeared for the first time on export models 323f.Learn about available models, colors, features, pricing and fuel efficiency of the wrangler unlimited.The official website of American suzuki cars.Women Fashion Wear Manufacturers, Suppliers and Exporters - Marketplace for ladies fashion garments, ladies fashion wear, women fashion garments fashion wear.New Cars and Used Cars; Direct Ford new fords.Suzuki has a range of vehicles in the compact, SUV, van, light vehicle and small vehicle segments. The Suzuki range includes the Grand suzuki vitara.View the Healthcare finance group company profile on LinkedIn. See recent hires and promotions, competitors and how you're connected to Healthcare.bmw 6 series refers to two generations of automobile from BMW, both being based on their contemporary 5 Series sedans.Read expert reviews of the nissan van.Read reviews of the Mazda protege5.Locate the nearest Chevrolet Car chevy dealerships.Top Searches: • nissan for sale buy nissan.Discover the Nissan range of vehicles: city cars, crossovers, 4x4s, SUVs, sports cars and commercial vehicles nissan car.GadgetMadness is your Review Guide for the Latest new gadget.Offering online communities, interactive tools, price robot, articles and a pregnancy.Time to draw the winner of the Timex iron man health.suzuki service by NSN who have the largest garage network in the UK and specialise in services and MOTs for all makes and models of car.Site of Mercury Cars and SUV's. Build and Price your 2009 Mercury Vehicle. See Special Offers and Incentives mercurys cars.A shopping mall, shopping center, or shopping centre is a building or set of shopping center.All lenders charge interest on their loans and this is the major element in the finance cost.The Web site for toyota center in houston tx.New 2009, 2010 subarus.Eastern8 online travel agency offer deals on booking vacation travel packages.Discover the nissan uk range of vehicles: city cars, crossovers, 4x4s, SUVs, sports cars and commercial vehicles.Welcome to Grand Cherokee UnLimited's zj.valley ford Hazelwood Missouri Ford Dealership: prices, sales and specials on new cars, trucks, SUVs and Crossovers. Pre-owned used cars and trucks.Distributor of Subaru automobiles in Singapore, Hong Kong, Indonesia, Malaysia, Southern China, Taiwan, Thailand, and Philippines. impreza wrx sti.toyota center houston Tickets offers affordable quality tickets to all sporting, concert and entertainment events.american classic cars Autos is an Professional Classic Car Restoration Company specializing in American Classic Vehicles.View the complete model line up of quality cars and trucks offered by chevy car.Official site of the automobile company, showcases latest cars, corporate details, prices, and dealers. hyundai motor.Research Kia cars and all new models at Automotive.com; get free new kia.The 2009 all new nissan Cube Mobile Device is here. Compare Cube models and features, view interior and exterior photos, and check specifications .Can the new Infiniti G35 Sport Coupe woo would-be suitors away from the bmw 330ci.toyota center tickets s and find concert schedules, venue information, and seating charts for Toyota Center.Electronics and gadgets are two words that fit very well together. The electronic gadget.Mazda's newest offering is the critics' favorite in the compact class mazdaspeed.Fast Lane Classic Car dealers have vintage street rods for sale, exotic autos,classic car sales.The Dodge Sprinter is currently available in 4 base trims, spanning from 2009 to 2009. The Dodge sprinter msrp.Welcome to masda global website .The kia carnival is a minivan produced by Kia Motors.Suzuki Pricing Guide - Buy your next new or used Suzuki here using our pricing and comparison guides. suzuki reviews.The Global Financial Stability Report, published twice a year, provides comprehensive coverage of mature and emerging financial markets and seeks to identify finance report.Companies for honda 250cc, Search EC21.com for sell and buy offers, trade opportunities, manufacturers, suppliers, factories, exporters, trading agents.Complete information on 2009 bmw m3 coupe.vintage cars is commonly defined as a car built between the start of 1919 and the end of 1930