<% '------------------------------------------------------------ ' 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

rpm july 08 cover

►First Thoughts
►Family
   Connection
►Books for Loan, 
   Books to Own
►The Frumpy Zone
►Growing Up  
   Online
►Hannah, Help Me!
►Look!
►RPM KidSpin
►The Medicine
   Mom
►Parent Power
►The College Edge
►Support Groups

Home
About Us

Classified Marketplace

ACCOUNT EXECUTIVE wanted for well established award winning magazine. Established client list. Work from home opportunities. Salary and commission to start. Send  resume to: Lfracker@richmondpublishing.com with “Sales Executive” in the subject line, or mail to Richmond Publishing, 1506 Staples Mill Rd., Suite 102, Richmond, VA 23230.

 June Classified Ads

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 the River 423-2004

Join the M.O.M. Team Helping Moms and others work from Home! Computer required.
www.familyismywhy.com

As part of our expansion programmer’s Russell Thomas, LLC is looking for part time Work from home account managers, accountants and sales representatives are needed to work on their own flexible schedule time. It pays $3000-$4000 a month plus benefits and takes only a little of your time. Please contact us for details.
Requirements-
• Should be computer Literate
• 2-3 hours access to internet weekly
• Must be 20 yrs and above of age
• Must be efficient and dedicated.
If you are interested and need more information, Please send your resumes to jrussell1003@gmail.com

Spring is the time to make a change. Ask me how with Mary Kay cosmetics. Colleen Hill 320-3768 or www.MaryKay.com/ColleenHill

Craft Textile Inc. is ready to offer a Job as a part time work from home Account Representative, it pays $3000 a month plus benefits and only takes a little of your time. Please contact us for more details. Requirements- Should be computer literate. 2-3 hours access to the internet weekly. Must be over 20 yrs age. Must be Efficient and Dedicated. If you are interested and need more information, Please send e-mail to
Johnventures01@aol.com

Sales, Clerical, Secretarial Positions. Earn extra income. We are in need of employees for our company for part-time positions. Contact ss.bright101@gmail.com for more details.

ppREp123
Gather, Categorize, Centeralize Real Estate Documents Into a
Secure- Online Preservation
Keepsake Box Estate and Trust Real Estate Analyst!
Call Alethea 804/304-7514
www.datakeypprep.com
Prepatory Process for Real Estate Preservation

Spring is the time to make a change. Ask me how with Mary Kay cosmetics. Colleen Hill 320-3768 or www.MaryKay.com/ColleenHill

Craft Textile Inc. is ready to offer a Job as a part time work from home Account Representative, it pays $3000 a month plus benefits and only takes a little of your time. Please contact us for more details. Requirements- Should be computer literate. 2-3 hours access to the internet weekly. Must be over 20 yrs age. Must be Efficient and Dedicated. If you are interested and need more information, Please send e-mail to Johnventures01@aol.com

July Classifieds

Join the M.O.M. Team Helping Moms and others work from Home! Computer required.www.familyismywhy.com

Earn Extra Income, We are needing an employee in our company for a part time job position contact: ss.bright101@gmail.com for more details

The Clothesline Children’s Consignment Sale is registering con-signors for their August sale. Consignors, volunteers and new expectant moms shop early! Visit www.theclothesline.biz for more information or to register

Get Paid To Shop. Computer required. This can be an easy and fun way to build your child’s college fund. Call Lisa Sechler for more in-formation. (804) 543-9089

 

List Employment Opportunities
Sell Outgrown Childrens Items
Increase Enrollment in your home daycare

At no extra cost, Your Classifed ad
will Also run in the
Richmond Parents Monthly Newspaper published monthly

To Place a Classified Ad Call 288-3030
 information and deadlines.

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

Contact Lisa Fracker- lfracker@richmondpublishing.com