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

►Monthly Features
►First Thoughts
►Richmond Firsts
►Faith in Action
►Richmond Reads
►The Time of My Life
►Virginia's Kitchen
►Your Health
►Gardening
►Travel

When enormous economic worries sweep the country, we often ask ourselves, what is important? Faced with rising costs of day-to-day purchases, we find that we can put off repairing the broken disk drive on our laptop computer or continue to merely dream of having bookshelves built to flank the living room fireplace.

We ask, can we get by without such-and-such? and realize that the answer is often yes. But because this question is framed in an economic—and thus material—context, the answer is skewed to reflect our concern with our physical being. Can we get by physically without going to see a play, or taking a trip to the shore, or strolling the pungent, gaudy midway at the state fair? Yes, but it’s apples and oranges.

We are not in so desperate a state, nationally or even—most of us—individually, that we can ignore our emotional or mental well-being. Government policies may have a significant role in the state of our economic health, but guarding our emotional health, by and large, is up to us: government makes citizens of us, but only we can make humans of ourselves.

The arts, folk and fine, are a central component of what makes us human. As participant or spectator, we need a way to express that we’re not only physical beings.

That’s why, when hard times reduce government funding and corporate sponsorship of the arts, it becomes all the more crucial to ask ourselves, what is important to my humanity? Would I want to live in a place where I have no opportunities, however infrequently I’m able to take advantage of them, to attend a play, see a musical, hear a concert, watch a dance performance or visit a museum?

Central Virginia has a wealth of artists and patrons of the arts, but there are far more people who have never paid to see a local play, for example. If even a third of the population resolved to attend one performance this year or one more performance than last year, our local arts organizations would be thrilled—and, probably, solvent.

Chalk up the ticket price as a “mental health” expense. Reimbursable? Probably not. Worth it anyway? Without a doubt.

archives: