<% '------------------------------------------------------------ ' 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
Richmond Parents Monthly Logo Banner
fiftyplus website

Richmnd Parents Monthly Sept 08 cover

First Thoughts
Family
   Connection
Books for Loan, 
   Books to Own

The Frumpy Zone
Growing Up  
   Online
Look!
RPM KidSpin
The Medicine
   Mom

Parent Power
The College Edge
Support Groups

Home
About Us
Advertise


Classified Marketplace

Editor, monthly magazine. Richmond Publishing seeks an experienced editor to plan, assign and edit all content for Richmond Parents Monthly, its award-winning magazine for parents in the central Virginia area.  
    This part-time position requires superior writing and editing skills, the ability to provide leadership and motivation to freelance writers and columnists, and a deadline-driven approach to time management.  
    Candidates should have a strong sense of the concerns and perspectives of parents, in order to plan compelling articles that will include news, profiles, essays and reviews. The editor will collaborate with photographers and art staff to create visually dynamic pages.
    Journalism degree or equivalent experience required. Current computer skills required; web design proficiency highly desirable.  
    Send cover letter with salary requirements and resume (in e-mail body or as Word attachment) to Angela Lehman-Rios or Richmond Publishing Editor Search, 1506 Staples Mill Rd., Suite 102, Richmond, VA 23230. Position open until filled.  

Seeking Adults aged 40-90 to participate in research on memory and personality at the University of Richmond. Participants will be paid. Call 804-287-6004 for details.

Wanted! DIABETIC TEST STRIPS any type any brand. Will pay up to $10/box. 8 boxes minimum 804-639-7359

Vendors Wanted for Bazaar Extraordinaire II Nov 14 and 15th 2008, 9AM to 3 PM. Chamberlayne Heights United Methodist Church, 6100 Chamberlayne Road, Richmond, VA 23227. For further information contact Joan Williams, 804-262-8045.

In home tutoring CLUB Z! offers one on one in home tutoring for all ages, in all subjects. Affordable and no long term contracts www.clubztutoring.com North of the River 512-5575 South of River 423-2004

List Employment Opportunities
Sell Outgrown Children's Items
Increase Enrollment in Your Home Daycare
To place a classified ad,
call
Lisa Fracker at (804) 288-3030 or e-mail  lfracker@richmondpublishing.com
for information and deadlines.

$30 for the first 15 words and $1 per word thereafter.