Richmond Parents Monthly | Fifty Plus - Richmond magazines for seniors and parents

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

First Thoughts by Angela Lehman-Rios

Fifty Plus Sept 07

If you turn to your January 2003 issue of FiftyPlus (you do keep all the back issues, don’t you?), you’ll see a page dedicated to a survey. It is described as “the first annual Best of FiftyPlus Living survey,” and goes on to ask for your opinion on 42 different matters.
This month, we bring you the second annual FiftyPlus survey. Yeah, yeah—we’ve done the math and we know it’s been more than a year. But don’t you wish you could let four and a half years go by and call it one? Hmmm? There you go.
If you’re curious, here are some of the results of that survey, published in July 2003.
Best moment of American history since 1900: The resolution of World War II. Best moment of VA history since 1900: School integration. Best film: “Gone With the Wind.” Best book: “Gone With the Wind.” Best TV show: “Everybody Loves Raymond.” Best way to relax: reading (FiftyPlus and “Gone With the Wind,” we presume)
None of the above questions appear on this year’s survey, and in fact, most of them are different from the first survey. Also, this time around, we’re only asking 22 questions. (Time is valuable when you’re fifty plus, you know: it takes nearly five years of ordinary time to equal one year around here.) However, we do want your responses by October 8 so we can print the results in our November issue.
Get your pen and turn to page 32. And make your answers count! You never know how long it will be until our next annual survey.

***
When you’ve finished reading this copy of FiftyPlus magazine, switch on the TV to WRLH Fox Richmond, Sunday, September 9 at 10:30 a.m. You’ll see the first installment of “Fifty Plus Living,” hosted by radio’s Adam Stubbs of Lite 98. This new program spotlights the services, facilities and products of our FiftyPlus advertisers.
The show airs again at 10:00 p.m. on MyTV Richmond. It continues on the first Sunday of every month.