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

 

Firsts Thoughts by Angela Lehman-Rios

I can gather all the news I need on the weather report.
Sometimes this line from Paul Simon’s song, “Only Living Boy in New York,” makes me feel melancholy. Other times, it seems a useful recommendation for living a simple life.
And sometimes, such as during Virginia’s summer days, we don’t even need a weather report.
“What’s it going to be like today?” my husband calls from the bathroom.
“Hot.”
And there it is; nothing can be done.
Being outdoors on a scorching summer day is a great equalizer. Age, wealth, race… no matter who you are, you can only strip down to your skin and then you must let Nature have her way. (I’m not recommending mass removal of clothing, merely observing that the clothing required by cold weather can intensify differences.)
As draining of energy as summer’s heat can be, I thought I’d compose this month’s column in short segments. In the interludes, you may fan yourself with this magazine and sip a cool drink.

~

Only two things that money can’t buy:
That’s true love
And homegrown tomatoes.
Last month, money could hardly buy store-bought tomatoes during the latest round of salmonella attacks. If Guy Clark’s musical words of wisdom don’t inspire you to plant yourself a tomato or two, maybe the FDA’s words of warning will.

~

Speaking of love, remember Frank Reuss and Alvora Walsh? They were pictured sitting together in our June story about the weekly Nick and Friends concert at the McDonald’s on Iron Bridge Road in Chester.
They just got married—in the McDonald’s on Jeff Davis Highway in Chester. That’s where, every Wednesday morning, another local band entertains a loyal crowd of patrons. Reuss and Walsh figured that since all their friends would already be there, it was the best location to tie the knot.
Now that’s a happy meal.

~

Fifty Plus columnist Alberta Lindsey won an award for her “Faith in Action” columns in the Virginia Press Women’s 2008 Communications Contest. She placed third in “Special articles—religion” for a pair of pieces published last year.

~

Doesn’t it seem like there are more fireworks displays every year? As I looked through July’s calendar at the multiple options on July 3, 4 and 5, the grouch in me started to mutter: Isn’t this excessive? The expense! The noise!
But then I thought about how fireworks, like heat, bring us all to the same level. They are an enormous gift for everyone, whether or not one deserves it. They can be enjoyed absolutely free by thousands of people, all across town.
As they burst into constellations of red and white high above us, we raise our eyes and often even our necks, in a position of vulnerability, captivated by the fireworks’ power and beauty.
One of my treasured memories is of driving across Kansas at night on July 4. As we sped east across the plains, we could see fireworks displays from three or four towns at once, some close, some on the distant horizon. If I listened very closely, I could hear the low booms. For the most part, however, it was a silent show, which somehow made it easier to imagine the people in each of those places watching the fireworks. And even though I was miles away, just passing through, I felt, in a bigger sense, we were all together.

archives:

January 08February 08March 08April 08May 08June 07

 September 07 October 07November 07December 07

fp July cover

Home

Monthly Features
First Thoughts
Richmond Firsts
Ask Mr. Modem
Faith in Action
Richmond Reads
The Time of My Life
Virginia's Kitchen
Your Health
Gardening by
    the Month

Travel

FiftyPlus Living
Retirement
Directory