<% '------------------------------------------------------------ ' 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 tEvents 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- Frumpy Zone
Richmond Parents Monthly Logo Banner
rom aug 07 cover

Exploits for the Dog Days

fiftyplus website

August is the time of year when the days are long and steamy and the kids are restless and whiny. To help you get through the rest of your summer, I have consulted with a highly specialized team of Summer Fun Experts, a.k.a. my kids.
They are experts at wreaking havoc… I mean…creating fun activities using simple household items. I’ve compiled a list of their most recent escapades… I mean… Summer Fun Activities.

1. Hide the Dog Food Bowl
Summer Fun Expert #3 is obsessed with dog food. Every day, Experts #1 and #2 are dispatched on a quest to find the newest location of the dog’s bowl.

2. 52,000 Pick-Up
In this dog food game, Expert #3 dumps the bite-sized food onto the floor and runs around while Experts #1 and #2 throw the dog food back in the bowl.

3. Tattoo Parlor – Sidewalk Chalk Version
Expert #1 likes to paint her co-expert’s eyelids, cheeks and fingernails with sidewalk chalk and pretend it’s make-up.

4. Tattoo Parlor – Stamp Pad Version
Expert #2 likes to use a stamp pad—without the stampers—to decorate Expert #3. This results in #3’s body being covered with bright blue rectangles. (Blue bathwater is an added bonus.)

5. Tattoo Parlor – Magic Marker Version
Expert #3 enhances her natural beauty by drawing all over her face, arms and legs with markers.

6. Naked Tag
Expert #3 strips down and runs away while #1 and #2 chase her.

7. Potty Mouth
Experts #1, #2 and #3 love using bathroom words in various combinations. For example, #3’s favorite is “Poo-poo potty head.” This game is now played in the bathroom since we instituted their preschool rule, “Potty words can only be said in the bathroom.”

8. Steal the Snacks
(Insert “Mission: Impossible” theme song.) Expert #2 likes to sneak down the stairs, slip into the kitchen and seize forbidden snacks to carry back upstairs to Experts #1 and #3.

9. Kill the Spider Web
Expert #2 uses the garden hose to vanquish the evil spider web that hangs over the kitchen windows. When my windows are open, my kitchen floor gets a much-needed bath.

10. Stick ‘Em Up
Expert #3 covers her entire body with stickers or Band-Aids.

Colleen R. Lee lives in the Frumpy Zone with her husband and Summer Fun Experts #1 (age 8), #2 (age 4), and #3 (age 3). She believes that one day her children are going to open up a tattoo parlor.

the frumpy zone by colleen r. lee