<% '------------------------------------------------------------ ' 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 %> Fifty Plus Richmond - this just in

 

Richmond Parents Monthly Website
This Just In

Tee Jay Corps Cadets and Sponsors from 1942 to 1970 are invited to a reunion taking  place April 18-20, 2008. Interested persons may contact the Alumni Association at thjsccalumni@yahoo.com.

If you or somone you know needs help with the cost of prescription medications, contact Senior Connections, The Capital Area Agency on Aging. Its “Pharmacy Connections/Medication Assistance Program” is for people over age 55 who meet certain low-income guidelines and do not have medication insurance.
 
The Medication Assistance Program screens for available free or reduced-cost medications offered to seniors by pharmaceutical companies. These companies use income and health information to determine eligibility. Medications are usually sent to the prescribing doctor’s office, but sometimes are sent to the senior’s home.
 
According to Carolyn Lanbert, Pharmacy Connection program manager, “This program is helping many individuals who have no other assistance. We want more seniors to know about this opportunity.”
 
For information, contact Carolyn Lambert at 343-3018 or clambert@youraaa.org.

updated 2/28/08

Kohl's Kids Who Care scholarship program is designed to recognize and reward youth volunteers, ages 6-18, nationwide. It is estimated that American youth contribute more than 1.3 billion hours of community service each year. Kohl's wishes to recognize the actions of these generous kids. Two nominees from each Kohl's store will win a $50 gift card; some will win regional scholarships worth $1,000 toward post-secondary education. Ten volunteers will earn scholarships worth $5,000 and Kohl's will donate $1,000 to a nonprofit organization on their behalf. Nominate a young person you know by visiting www.kohlskidswhocare.com. Nominations are accepted February 1 - March 15.

updated 2/15/08

Tee Jay Corps Cadets and Sponsors from 1942 to 1970 are invited to a reunion taking  place April 18-20, 2008. Interested persons may contact the Alumni Association at thjsccalumni@yahoo.com.

St. Joseph's Villa offers help for students with Asperger's Syndrome. The Villa now provides two dedicated classrooms for the specialized education of students with this Autism Spectrum Disorder. The new classrooms will allow for small settings for individual and group instruction. Students in the program will study academics along with a social skills curriculum and acquire real-life skills fostering a positive self-image.
    St. Joseph's Villa operates the Sarah Dooley Center for Autism in partnership with Commonwealth Autism Services on the Villa's main campus at 8000 Brook Road. Parents and educators are encouraged to call Adele Bordelon at 553-3270 to arrange a tour. Visit the St. Joseph's Villa website, www.NeverStopBelieving.org.

Senior Connections is Recruiting Volunteers to serve as advocates for residents rights in nursing homes and assisted living facilities.  Senior Connections provides information, advocacy, and home and community services to seniors and family caregivers.
     The Long-Term Care Ombudsman Program trains volunteers to make regular friendly visits to facilities and help resolve minor issues. Volunteers will spend a full day in training and must commit at least four service hours per month. Please call Susan Johnson at 672-4496, for more information

In observance of Black History Month, vendors are invited to participate in the Arts, Education and Entertainment Family Festival on Saturday, Feb. 16, from noon to 5 p.m. at Cloverleaf Mall's Hecht's Building, 7201 Midlothian Turnpike.  Reserve your FREE space before Jan. 18 to receive an information packet.  Completed forms must be returned no later than Feb. 1. For more information or to reserve your space, call 318-8624
updated 12/28/07

50plus cover 

Home