<% '------------------------------------------------------------ ' 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-Growing uo online
fiftyplus website

Q. I am now a mommy of three and carrying a diaper bag again! I have been spoiled recently by only needing to carry around my keys and a wallet. I was wondering what tips you have on what you pack in a bag for your little ones and what type of bag you use. If anyone knows, I am sure it is you. I am always looking for practical time-saving/space-saving ideas! Hannah, help me.

A. First of all, don’t think that giving birth to a child immediately relegates you to the fashion “don’t” list. Forgo the cheesy bags with teddy bears, duckies, bunnies or anything that resembles the images frolicking around the waistband of your baby’s disposable diaper.
Pick up a roomy, stylish handbag that you absolutely love, and make sure that it has both a compartment to carry your cell phone and a waterproof liner (you’ll thank me later).
As far as organizing your bag, I use what I call a “bag-in-a-bag” system. In my roomy handbag, I carry these separate bags:

• one clutch to carry your
diapers and wipes (and some sandwich-size zippered plastic bags—you know why)
• one makeup bag
• your wallet
• another clutch to carry your other odds and ends (like sew- ing kit, lotion, brush, manicure kit and so on).

Now, you can immediately reach in and get the bag that you need. Diaper change? Get the clutch. Buying diapers? Reach for the wallet. Reapplying your mascara after that last poopy diaper made your eyes water? Grab your makeup bag. Your bag stays organized and you stay stylish!

Q. I am a stay-at-home mother of three for the past six years. I’ve tried to find a job that I can do from home, but have fallen into one scam after another. My husband and I have lost money trying desperately to find a stream of income. How can I find the right job that isn’t a scam? With the economy as poor as it is, I can’t afford to put my kids in daycare to take on a full-time job, nor can I afford to stay home with my kids. Hannah, help me!

A. Unfortunately, you’ve swum your sweet little self right into a shark pool. A lot of conniving moneymakers feed off of the desperation that many moms feel when they are searching for a way to make money from home.
My advice is to follow your passion. Instead of looking for a way to make money, look for a way to express what you love to do. The money will follow.
Find something that suits your skills and your desires, and market it. It could be anything from making diaper covers to designing greeting cards to planning parties to decorating cakes to writing articles. Who knows?
I believe that we all have creative genius within us that, when expressed, will not only bless others, but bless ourselves and our families. Don’t fall for the promise of big bucks. Instead, promise yourself that you will live with integrity.
Start small. Go to your library and check out some books on business ownership and working out of the home. Then begin marketing yourself—tell your friends, your church, your community.
Start where you are with what you have. If you love it and your joy comes through in your product, word will spread quickly. But remember, pursue your passion, not money. You have better things to do with your life than be more shark bait!

Hannah Keeley is an author, television personality and founder of the website, TotalMom.com. She lives with her husband and seven children in Chesterfield County.

hannah help me! By Hannah Keeley

Good Tip: Skip Bad Bags

Hannah Keeley

Richmond Parents Monthly Sept 2007 

Home