Richmond Parents Monthly- On Going events

<% '------------------------------------------------------------ ' This function finds the last date of the given month '------------------------------------------------------------ Function GetLastDay(intMonthNum, intYearNum) Dim dNextStart If CInt(intMonthNum) = 12 Then dNextStart = CDate( "1/1/" & intYearNum) Else dNextStart = CDate(intMonthNum + 1 & "/1/" & intYearNum) End If GetLastDay = Day(dNextStart - 1) End Function '------------------------------------------------------------------------- ' This routine prints the individual table divisions for days of the month '------------------------------------------------------------------------- Sub Write_TD(sValue, sClass) Response.Write " " & sValue & "" & vbCrLf End Sub ' Constants for the days of the week Const cSUN = 1, cMON = 2, cTUE = 3, cWED = 4, cTHU = 5, cFRI = 6, cSAT = 7 ' Get the name of this file sScript = Request.ServerVariables("SCRIPT_NAME") ' Check for valid month input If IsEmpty(Request("MONTH")) OR NOT IsNumeric(Request("MONTH")) Then datToday = Date() intThisMonth = Month(datToday) ElseIf CInt(Request("MONTH")) < 1 OR CInt(Request("MONTH")) > 12 Then datToday = Date() intThisMonth = Month(datToday) Else intThisMonth = CInt(Request("MONTH")) End If ' Check for valid year input If IsEmpty(Request("YEAR")) OR NOT IsNumeric(Request("YEAR")) Then datToday = Date() intThisYear = Year(datToday) Else intThisYear = CInt(Request("YEAR")) End If strMonthName = MonthName(intThisMonth) datFirstDay = DateSerial(intThisYear, intThisMonth, 1) intFirstWeekDay = WeekDay(datFirstDay, vbSunday) intLastDay = GetLastDay(intThisMonth, intThisYear) ' Get the previous month and year intPrevMonth = intThisMonth - 1 If intPrevMonth = 0 Then intPrevMonth = 12 intPrevYear = intThisYear - 1 Else intPrevYear = intThisYear End If ' Get the next month and year intNextMonth = intThisMonth + 1 If intNextMonth > 12 Then intNextMonth = 1 intNextYear = intThisYear + 1 Else intNextYear = intThisYear End If ' Get the last day of previous month. Using this, find the sunday of ' last week of last month LastMonthDate = GetLastDay(intLastMonth, intPrevYear) - intFirstWeekDay + 2 NextMonthDate = 1 ' Initialize the print day to 1 intPrintDay = 1 ' Open a record set of schedules Set Rs = Server.CreateObject("ADODB.RecordSet") ' These dates are used in the SQL dFirstDay = intThisMonth & "/1/" & intThisYear dLastDay = intThisMonth & "/" & intLastDay & "/" & intThisYear sSQL = "SELECT DISTINCT Start_Date, End_Date FROM tEvents WHERE " & _ "(Start_Date >=#" & dFirstDay & "# AND Start_Date <= #" & dLastDay & "#) " & _ "OR " & _ "(End_Date >=#" & dFirstDay & "# AND End_Date <= #" & dLastDay & "#) " & _ "OR " & _ "(Start_Date < #" & dFirstDay & "# AND End_Date > #" & dLastDay & "# )" & _ "ORDER BY Start_Date" 'Response.Write sSQL ' Open the RecordSet with a static cursor. This cursor provides bi-directional navigation Rs.Open sSQL, sDSN, adOpenStatic, adLockReadOnly, adCmdText %> Richmond Parents Monthly- On Going events

Dr Emory Thomas

You Banner Here

Let's Go Family Calendar

Aug 2007 RPM cover

camp fair

small ad

-August on going -

It's not an age,
it's an attitude

Sundays
�Walk into History with the animated debates culminating in Patrick Henry�s �Give Me Liberty or Give Me Death� speech. Doors open 1 p.m. St. John�s Church, 2319 East Broad St. 648-5015, www.historicstjohnschurch.org. Voluntary donation.

Mondays
�Infant to pK story time at Barnes & Noble Libbie Place, 10 a.m. year-round. 282-0781. FREE.

Tuesdays
�Toddler Time Stories, art, music and museum play time for ages 1-3 with adult. September�s theme is �A Handful of Seeds Blooms Color.� Sign-up 9:30 a.m. Program 9:45 a.m. Children�s Museum of Richmond, 474-7012, www.c-mor.org. $12-24.
�Read 2 Rover Children read to a certified therapy dog who sits quietly next to them. Central Library, 4:30 p.m. 748-1604, library.chesterfield.gov. FREE.
�Families After 5 Lewis Ginter Botanical Garden is open until 9 p.m., including the waterplay area in the Children�s Garden! 262-9887, www.lewisginter.org. $6-10.
�CMoR�s Seymour visits Barnes & Noble, Brandermill, to provide a fun art activity following 10 a.m. story time. 2nd and 4th Tuesdays, year-round. 474-2667. FREE.

Thursdays
�Infant to pK story time at Barnes & Noble Libbie Place, 10 a.m. year-round. 282-0781. FREE.
�Young @ Art teaches ages 3-5 through stories, art activities and gallery visit. September�s theme is �watercolor.� Virginia Museum of Fine Arts, Pauley Center. 10 a.m. Register, 204-2697, www.vmfa.museum. $4-5/child. No session 8/30.
� Barnes & Noble presents story time at the Children�s Museum of Richmond, 11 a.m. 2nd and 4th Thursdays year-round. 474-2667, www.c-mor.org. $6-7.

Fridays
�Toddler Time See Tuesday description. Children�s Museum of Richmond, 474-7012, www.c-mor.org. $12-24.
� Lions in the Library Discover the �animals� inhabiting Maymont House and learn what it was like to live 100 years ago. Ages 5-11 w/adult. Maymont House Museum, 10:30 a.m. Register, 358-7166, x329, www.maymont.org. $5.
Saturdays
�Science Saturdays Hands-on activities, demos and more. 12-4 p.m. Science Museum of Va., 864-1400, smv.org. $9-10.

Wed.�Sun.
�At the End of the Wire At the 1893 World�s Fair in Chicago, a frazzled reporter is looking for a storyangle. Wed.-Sun., 1 & 3 p.m. Through Aug.12. Recommended for 10+. Science Museum of Va., 864-1400, smv.org. Free w/admission, $9-10.

SUMMER SPORTS

Richmond Kickers University of Richmond Stadium
644-6425, richmondkickers.com Fri. July 13, 7 p.m. v Charlotte

Richmond Braves The Diamond 359-4444, rbraves.com
July 18-19, 7 p.m. v Columbus

July 20-21, 7 p.m. v Toledo

July 22-23, 2 p.m. v Toledo

July 24, 7 p.m. v Ottawa

July 24, 6 p.m.
v Ottawa

July 26-27,12 p.m. v Ottawa