<% '------------------------------------------------------------ ' 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 t50Events 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 | Fifty Plus - Richmond magazines for seniors and parents
Fifty Plus Monthly Features

Jan 09 cover

Home

Feature Focus
First Thoughts
Richmond First
Fresh from Net
Doctor's Choice
Growing Better
Time of My Life
State of Food
Your Health
Faith in Action
Mr. Modem
Calendar
Classifieds
Contest
Retirement Life

Advertise
About Us
Subscription
Past Issues
visit....
visit Richmond Parents Monthly

Classified Marketplace

Sales people needed

Sales Representatives needed.  Experiences sales people, please email resume to lfracker@richmondpublishing.com

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

Laid Off? Need Help?
Do you have sales or corporate Experience? 290-4337

I’m an experienced nurse and med. Tech. I have worked for families in the West End. I bathe, groom and prepare meals. Light housekeeping. Social and medical appointments. References on Request
Lillian 741-0840

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

Mystery shoppers earn up to $250.00 per day. Undercover shoppers needed to judge retail and dining establishments. Experience not required
877-648-1520

Cash paid for old comics. Highest prices paid for comics and animation art from 1930’s-1960’s No collection too large or small Referral fees available.
Call Rick 804-241-3732

 

To Place a Classified contact Lisa Fracker at (804) 673-5203

or email  lfracker@richmondpublishing.com

 cost is  $30 for the first 15 words and $1 per word thereafter. Your ad will run in the both the online and  print edition.