<HTML>
<HEAD>
<A NAME=BEGIN> </A>
<SCRIPT LANGUAGE="VBScript">
<!--
Function CurrentYear()
CurrentYear=Year(Now())
End Function
Sub CheckJanuary()
End Sub
Sub CheckFebruary()
If Calendar1.Year = CurrentYear()+1 Then
Select Case Calendar1.Day
Case 7
MsgBox "Gypsies in the palace", 0, "Event"
Case Else
End Select
End If
End Sub
Sub CheckMarch()
End Sub
Sub CheckApril()
End Sub
Sub CheckMay()
If Calendar1.Year = CurrentYear()+1 Then
Select Case Calendar1.Day
Case 18
MsgBox "PHiP Carnival Cruise departs. Bon Voyage!!!!!", 0, "Event"
Case Else
End Select
End If
End Sub
Sub CheckJune()
End Sub
Sub CheckJuly()
End Sub
Sub CheckAugust()
End Sub
Sub CheckSeptember()
End Sub
Sub CheckOctober()
If Calendar1.Year = CurrentYear() Then
Select Case Calendar1.Day
Case 5
MsgBox "Memory Walks for Alzheimer's (National)", 0, "Event"
Case 6
MsgBox "Memory Walks for Alzheimer's (National)", 0, "Event"
Case 24
MsgBox "NH PHC Membership drive meeting at the Pasta Warehouse in
Manchester, NH 6:00pm-Midnight", 0, "Event"
Case 25
MsgBox "5th Annual Meeting of the Minds in New Orleans", 0, "Event"
Case 26
MsgBox "5th Annual Meeting of the Minds in New Orleans", 0, "Event"
Case 27
MsgBox "5th Annual Meeting of the Minds in New Orleans", 0, "Event"
Case Else
End Select
End If
End Sub
Sub CheckNovember()
If Calendar1.Year = CurrentYear() Then
Select Case Calendar1.Day
Case 17
MsgBox "Parrothead Social gathering at the Pasta Warehouse
in Manchester, NH @ 1:00pm", 0, "Event"
Case Else
End Select
End If
End Sub
Sub CheckDecember()
End Sub
Sub Calendar1_Click()
If Calendar1.Year < CurrentYear() Then
MsgBox "Past events cannot be attended. Please select an upcoming date.", 0, "Calendar"
End If
Select Case Calendar1.Month
Case 1
CheckJanuary()
Case 2
CheckFebruary()
Case 3
CheckMarch()
Case 4
CheckApril()
Case 5
CheckMay()
Case 6
CheckJune()
Case 7
CheckJuly()
Case 8
CheckAugust()
Case 9
CheckSeptember()
Case 10
CheckOctober()
Case 11
CheckNovember()
Case 12
CheckDecember()
Case Else
MsgBox "There are only 12 months in the year. There is definately a
problem here!", 0, "Calendar"
End Select
End Sub
Sub Calendar1_DblClick()
MsgBox "Click on a date to find out what event is happening on that day.", 0,
"Calendar"
End Sub
-->
</SCRIPT>
<TITLE>
<BR CLEAR=RIGHT>
</HEAD>
<BODY BACKGROUND=grypalm.jpg>
<P>
<BR>
<NOBR><FONT SIZE=6>Click on a date to find out if an event is happening.
</FONT></NOBR>
<BR><BR><BR>
<MARQUEE DIRECTION=LEFT BEHAVIOR=SLIDE SCROLLAMOUNT=10 SCROLLDELAY=200
BGCOLOR=GRAY>Don't forget, Gypsies in the Palace "I Shot Six Holes In My
Freezer" Fest .....it's happening in February!</MARQUEE>
<OBJECT ID="Calendar1" WIDTH=372 HEIGHT=279
CLASSID="CLSID:8E27C92B-1264-101C-8A2F-040224009C02">
<PARAM NAME="_Version" VALUE="458752">
<PARAM NAME="_ExtentX" VALUE="9843">
<PARAM NAME="_ExtentY" VALUE="7373">
<PARAM NAME="_StockProps" VALUE="1">
<PARAM NAME="BackColor" VALUE="12632256">
<PARAM NAME="Year" VALUE=Today.Year>
<PARAM NAME="Month" VALUE=Today.Month>
<PARAM NAME="Day" VALUE=Today.Day>
</OBJECT>
<BR CLEAR=LEFT>
<BR>
<BR><BR><BR><BR><BR><BR><BR><BR>
Click to see<A HREF="calend.htm#SUMMARY"> summary of upcoming events</A><BR>
Click to <A HREF="bubba.htm">return to homepage</A><BR><BR>
<A NAME=SUMMARY> </A>
<FONT FONTFACE="Comic Sans MS" SIZE=4 BOLD COLOR=FUSCHIA>
<BR><BR><BR><BR><BR>
<UL>
<LI>October 5-6, 1996 Memory Walks for Alzheimer's (National)<BR>
<LI>October 24, 1996 <B>NH Parrothead Club</B>
Membership drive meeting at the Pasta Warehouse in
Manchester, NH 6:00pm-Midnight<BR>
<LI>October 25-27, 1996 5th Annual Meeting of the Minds in New Orleans!<BR>
<LI>November 17, 1996 <B>NH Parrothead Club </B>
Social gathering at the Pasta Warehouse in Manchester
@1:00pm<BR>
<BR><BR>
<LI>February 7-9, 1997 Gypsies in the Palace, New England "I Shot Six Holes
in My Freezer" Fest<BR>
<LI>May 18-25, 1997 PHiP 3rd Annual Cruise
</UL></FONT>
<BR><BR><BR><BR><BR><BR><BR><BR>
Click to go <A HREF="calend.htm#BEGIN">back </A><BR>
Click to <A HREF="bubba.htm">return to homepage </A>
</BODY>
</HTML>