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

We have an mp3 player in our house… somewhere. (I’ve always thought those things were too small for their own good.) I’ve rarely used it for music and have never listened to a podcast, but after reading Lynn Pribus’ helpful article (“Podcasting 101,” page 14), I just may give it a try.
I’ll always be a radio listener, though. I like the surprises that come with letting someone else find stories and music for me. I consider it a benefit of travel to listen to local news snippets, commercials and music choices in other towns and states.
There’s definitely room in my aural world for new and old technologies. And if I were looking for a date, I imagine there’d be room in my romantic world to try Diane York’s online recommendations (“Love at First Byte?” page 14) and old methods such as matchmakers and the social scene.
And of course, there’s room in my mental world for both online and print publications. To get hung up on the “paper” part of “newspaper” misses the main point—the news. The internet allows quicker delivery of more news to more people. (However, just because the internet allows this doesn’t mean it always happens; see #5 below.) In other words, it does the job of newspapers better, just as newspapers spread news more effectively than broadsides and town criers.
The online format is most effective for national and international news, of course, and for information intended for a highly specific audience united by interest rather than geography. But why not drop the print form of all newspapers and magazines? That day may come, but here’s why I’m digging in my heels:

1. I like the physical pleasure of holding open a paper and taking in the entire page with a quick glance, scanning for stories and photos of interest. In fact, trying to browse news on a computer screen makes me feel claustrophobic.

2. I like the idea of hiding behind the newspaper or a magazine while riding a crowded subway. Unfortunately, I’ve never lived anywhere with a subway, but I have employed printed matter for this purpose on the bus.

3. Summer’s coming. Laptops don’t make an effective sunshade while reading/dozing by the pool.

4. As an editor, I’m perpetually curious about the great mystery of print: what people are actually reading. Online, that can be tracked. As a reader, I don’t especially like that.

5. I’m more apt to finish a long article if it’s in a magazine lying on my coffee table or bedside stand, where I can read in installments. Online, my eyes get tired, I get distracted by other links and headlines, I just don’t finish it. (Or else, anticipating these very reactions, the online editors decided for me that a long article should be a short article, thus delivering less news to more people.)

6. I’m not willing to give up the quiet beauty of a well-designed page that doesn’t move, blink, pop up or drop down.

If you’re reading this, surely you share a few of my sentiments. So rustle these pages and read on!


archives:

January 08February 08March 08April 08May 08

 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