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

I get gifts in my e-mail Inbox all year round. Every month, Fifty Plus writers send me their articles and columns for the upcoming issue, and I get to read them. Maybe printing them is akin to “regifting” them to you, dear readers—but unlike a leaden fruitcake or tacky tie, these gifts only improve with the giving.

The North American Mature Publishers Association also recognizes these gifts. At its annual convention in November, the organization awarded Fifty Plus several prizes for excellence in writing, as well as in photography and design.

A panel of judges from the University of Missouri School of Journalism considered submissions from NAMPA members in issues published between July 2006 and June 2007. I’m proud to say they awarded Fifty Plus “Best of Show” among publications our size!

In addition, we took away 16 first and second prizes in our size bracket. Some highlights:

The work of Denine D’Angelo, art director, and Kim Frost, photographer, yielded first place wins in Overall Design and Overall Photography. Our graphics designer, Ryan Hooley, won first place for color ad design.

The judges gave first-place awards to our columnists John Denniston in the Review category and Randy Fitzgerald in the Personal Essay category.

Also receiving first place awards: Tequitia Andrews for “Pink Ribbon Classic” (Community Service category); Elizabeth McDade for “Uncharted Territories” (How-To Feature); and Cesca Janece Waterfield for “Family Recipe for Happiness” (Profile).

It’s only too bad that NAMPA doesn’t give a Best Readers award. Even so, you’re a gift to us, and everyone at Richmond Publishing appreciates you. Happy Holidays!

archives: