<% '------------------------------------------------------------ ' 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
Fifty Plus Monthly Features
 
make a memory

Beat the Blues

The temperatures have fallen. The holidays are over. We’ve been through a whirlwind of back-to-back celebrations and events. Then overnight with the flip of a calendar page, all comes to a grinding halt. This can cause our outlook to topple downward with the temperatures.

Got the Winter Blues? Don’t call the doctor just yet! Gather your family and plan a reason to get excited. With a little bit of creativity and imagination, you can keep the blues at bay with a party!

Throw a Luau!
Decorate with palm trees made from crinkled, rolled up brown grocery bags and green construction paper. Make beautiful tissue paper flowers to add a tropical flair: Fanfold a stack of different colors of tissue paper. Twist the end of a green pipe cleaner around the middle of the stack. Gently separate each layer of paper to fluff into a flower.
 
Tear a brown grocery bag into strips three-quarters of the way up to make a hula skirt. Reinforce the top with duct tape.

Serve mocktails of mixed pineapple and cranberry juices to add island flair. Grill chicken, beef, pineapple chunks, broccoli and sweet peppers on skewers. Brush with teriyaki sauce or pineapple juice, and serve over rice.

After dinner, burn off some energy with a few round of the Limbo. End the night by conga dancing and doing the shag to island and beach music with the kids.

Your Move or Mine?
Gather your board games and invite another family over with a couple of their favorites. Write each game title on a slip of paper. Take turns drawing a title and playing games.

Dump raisins, M&Ms and some peanuts or cashews (assuming there are no allergies) for a quick treat that won’t get crumbs on the games. The kids don’t have to know about the fiber and protein in the peanuts and raisins.

Pass the Popcorn Please!
Plan a themed movie night with a double feature like High School Musical 1 and 2. Share your love of reborn classics with Star Wars or Indiana Jones. A sing-a-long intermission allows for a bathroom break.

A card table loaded with goodies serves as a concession stand for hungry marathon movie goers. Add hot dogs and a cup of carrots and grapes to your fare for an easy dinner.

Use brown lunch bags labeled with names to easily divide popcorn. Prefilled snack-sized plastic bags add convenience and set portions for candy. Arrange sofas and chairs in rows to complete the theater effect.

     These activities are kid-tested and approved and are sure to become year-round classics. Remember, you can make them as simple or as elaborate as you want. The important thing is to have fun and spend time with those who matter to you. I guarantee that will brighten your winter and make memories that shape your children’s childhoods

Kimberli Russ Vida has three busy children, two crazy but friendly dogs, and too many fish to count. She finds sanity through writing, reading, golfing and planning parties for family and friends. She has a degree in English and a minor in Elementary Education.