Mardi Gras Region Porsche Club of America

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Mardi Gras Region Porsche Club of America <% Dim datCurrentMonth, datNextMonth datCurrentMonth = Date() 'Gets the current date... datNextMonth = DateAdd("m", 1, datCurrentMonth) 'One month from the current date... Dim thisSecondWednesday, nextSecondWednesday, dateToDisplay thisSecondWednesday = findSecondWednesday(datCurrentMonth) ' Get the second Wednesday of this month... nextSecondWednesday = findSecondWednesday(datNextMonth) 'Get the second Wednesday of next month... If (datCurrentMonth <= thisSecondWednesday) Then 'we have not yet reached the second Wednesday of this month... dateToDisplay = thisSecondWednesday Else 'the second Wednesday of this month has already passed, display the second Wednesday of next month... dateToDisplay = nextSecondWednesday End If Function findSecondWednesday(datMonth) Dim datFirstDay, intFirstWeekday, secondWednesday datFirstDay = DateSerial(Year(datMonth), Month(datMonth), 1) intFirstWeekday = Weekday(datFirstDay) If (intFirstWeekday = vbWednesday) Then 'the first day of the month is a Wednesday... secondWednesday = DateAdd("d", 7, datFirstDay) ElseIf (intFirstWeekday < vbWednesday) Then 'find the number of days to the first Wednesday and add 7... secondWednesday = DateAdd("d",((vbWednesday - intFirstWeekday)+7), datFirstDay) Else 'find out how many days past Wednesday we are, then add 7... secondWednesday = DateAdd("d",((7 - (intFirstWeekday - vbWednesday)+7)), datFirstDay) End If findSecondWednesday = secondWednesday End Function Function formatDate(dateToFormat) Dim datString datString = MonthName(Month(dateToFormat)) If (Day(dateToFormat) = 1 or Day(dateToFormat) = 21 or Day(dateToFormat) = 31) Then datString = datString & " " & Day(dateToFormat) & "st, " ElseIf (Day(dateToFormat) = 2 or Day(dateToFormat) = 22) Then datString = datString & " " & Day(dateToFormat) & "nd, " ElseIf (Day(dateToFormat) = 3 or Day(dateToFormat) = 23) Then datString = datString & " " & Day(dateToFormat) & "rd, " Else datString = datString & " " & Day(dateToformat) & "th, " End If formatDate = datString End Function Function thisLocation(meetingDate) Dim strMeetingLoc If (Month(meetingDate) Mod 2) = 0 Then strMeetingLoc = "Acme Oyster House, Covington, LA. Click here for a map." Else strMeetingLoc = "Zeke's in Metairie, LA. Click here for a map." End If thisLocation = strMeetingLoc End Function %>

Upcoming Track Events

2010 Driver Education Events at the Circuit Grand Bayou

Saturday, February 6th
Saturday, May 15th
Saturday, October 9th

2010 PCA Club Race at the Circuit Grand Bayou

April 17 & 18, 2010

www.circuitgrandbayou.com

Monthly Porsche Club Meetings

When: Normally the second Wednesday of each month
Where: Alternating between northshore and south shore locations.

The next meeting is on Wednesday, Febraury 24th
Location: TBD
6:30 pm - Meet at the bar for drinks
7:00 pm - Dinner and the meeting

PCA Videos from the Rolex 24 Hour Race

http://www.youtube.com/user/cvuplay50#g/a

Keep your membership records up to date!

Most all region correspondence is now done by email. Please check your email address and other membership records by following this link: https://www.pca.org/members/forms.asp

You may also renew your membership on line here: https://www.pca.org/members/renewal.asp

"Life itself is a race, marked by a start, and a finish. It is what we learn during the race, and how we apply it, that determines whether our participation has had particular value. If we learn from each success, and each failure, and improve ourselves through this process, then, at the end, we will have fulfilled our potential and performed well."
XXXXXXXXXXXXXXXXXXXXXXXXXXX --Dr. Ferdinand "Ferry" Porsche