<% '------------------------------------------------------------ ' 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-Advertise
fiftyplus website
YOUR BEST ADVERTISING BUY TO REACH FAMILIES IN THE CENTRAL VIRGINIA AREA....
Every month, an average of 75,000 readers enjoy Richmond Parents Monthly which is distributed in over 425 locations. These locations include all Martins supermarkets, CVS stores, McDonald’s, medical centers, retail outlets, museums, and bookstores as well as many public libraries. Including Charlottesville, Fredericksburg and Williamsburg
Richmond Parents Monthly is regularly advertised on television.
This creates a demand for the magazine and increases visibility and reader recall.

Richmond Parents Monthly
is also represented at numerous community events throughout the year.

To view and download the Richmond Parents Monthly Media Kit please fill out the information below and submit form then at the next screen click "continue"
Richmond Parents Monthly
 Camp Fair
 Features
 Family Connection
 Growing Up Online
 Frumpy Zone
Book Speak
 Contest
 Dine on a Dime
 Take Care
 Site Map
 Archives
 Blog Spot
 Calendar
Support Groups
About Us
Advertise
Richmond Parents Resource Directory

 


 1506 Staples Mill Road, Suite 102, Richmond, VA, 23230
Ph: (804) 673-5203 • Fax: (804) 673-5308
Sheilah G. Augustine, Sales
: saugustine@richmondpublishing.com (804) 673-3886
Dan Ledoux, Sales: dledoux@richmondpublishing.com (804) 673-9542
Mark E Fetter, Publisher and Sales:
mfetter@richmondpublishing.com (804) 673-5215

First Name:
Last Name
Company Name:
Address
Phone #:
Email Address:
Comments:

Richmond Parents Monthly