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

 

FiftyPlus Aug 08 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

Advertise

Firsts Thoughts by Angela Lehman-Rios

The first sign that the landscape had changed was the sudden appearance of large, smooth hills like the remains of an enormous sandcastle. Many of them were dark gray; on others, a thin layer of grass struggled up the sides. The hills had been around long enough that the houses and businesses at their bases seemed unperturbed by their presence, but clearly, these were not natural hills.
Then, along the left side of the road, a colossal pit came into sight, and if I hadn’t already known we were traveling through the town of Thetford Mines, Quebec, the hills would have been explained as mine waste. We stopped at a lookout point and walked onto a protected catwalk over the edge of the crater.
Asbestos comes from Thetford: note the present tense. Although the mineral’s use has been generally banned in North America because of health hazards, asbestos is exported to numerous developing nations. Mine operations are significantly smaller than they were 25 years ago, but yellow earthmovers still lumber along the slopes of the open mine.
I was mesmerized by the scene. Something about the pale, sinuous paths that spiraled down the sides of the pit, the gray layers of exposed earth, the sheer scale of absence—it was grotesquely beautiful. Probably I was mistaking awe for admiration. From the air, I’m sure I would have been reminded of a scar, just as those hills made me think of welts.
The windows of the observatory shielded us from the breezes sweeping across the vast open space. I had to wonder what had been removed from the surface of the land where we stood. What had been obliterated by the hills of tailings? What ponds, what parks, what homesteads bought out by convenient understanding of eminent domain?
What families had been wracked by asbestos-related health problems? And now, what families upturned by the scaling back of the mining industry?
I didn’t find the answers to those questions. We were simply passing through Thetford Mines on our way to Quebec City.
I’m glad our host, my aunt, knew that the scene was worth taking the long way to our destination. Never in a thousand years would it have been on my list of things to see while in Quebec, and it would take even longer before you’d see a photo of the mines on the cover of Fifty Plus. They’re just not as appealing as those hot air balloons. But the episode reminded me that the most memorable parts of a trip are often the unplanned stops. (See Randy Fitzgerald’s piece)
So read the travel articles in this month’s issue, plan vacations using guidebooks and tourism websites—but don’t forget to be receptive to serendipity and beauty in all their guises.

archives:

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

 September 07 October 07November 07December 07