<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>