Microsoft VBScript runtime error '800a01a8' 

Object required: 'oSubMenu' 

//global.asa, line 74 

<!-- #include virtual="/authoringcenter/global_inc/com_reg.asp" -->
<OBJECT RUNAT=Server SCOPE=Session ID=oJacksNav PROGID="KINavBar.KINavigationBar"></OBJECT>
<OBJECT RUNAT=Server SCOPE=Session ID=oGENav PROGID="KINavBar.KINavigationBar"></OBJECT>
<OBJECT RUNAT=Server SCOPE=Session ID=oShopNav PROGID="KINavBar.KINavigationBar"></OBJECT>
<OBJECT RUNAT=Server SCOPE=Session ID=o101Nav PROGID="KINavBar.KINavigationBar"></OBJECT>
<OBJECT RUNAT=Server SCOPE=Session ID=oTicketNav PROGID="KINavBar.KINavigationBar"></OBJECT>
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart

	' Some global stuff
	Application.Lock
	Application.Value("WACSiteGUID") = "6A4F755D59FB11D5B7C100A0CC7761DE"
	
	Call Application_Inc
		
	Application.Value("WACRosterData") = Server.MapPath("/") & "/ContentStore/Roster.dat"
	Application.Value("WACStatsData") = Server.MapPath("/") & "/ContentStore/Stats.dat"
	Application.Value("WACCurrentScore") = Server.MapPath("/") & "/ContentStore/CurrentScore.dat"
	Application.Value("WACResultsData") = Server.MapPath("/") & "/ContentStore/Results.dat"
	Application.Value("WACNewsData") = Server.MapPath("/") & "/ContentStore/News.dat"
	Application.Value("WACCareerStatsData") = Server.MapPath("/") & "/ContentStore/CareerStats.dat"
	Application.Value("WACProductsData") = Server.MapPath("/") & "/ContentStore/Products.dat"
	Application.Value("WACTJIData") = Server.MapPath("/") & "/ContentStore/TJI.dat"
	Application.Value("WACDiaryData") = Server.MapPath("/") & "/ContentStore/Diary.dat"
					
	Application.Value("WACSecLevel") = 0
	Application.Value("WACSecStaticUserID") = "jacks"
	Application.Value("WACSecStaticPassword") = "Admin"
	Application.Value("WACSecUpdSection") = "Users"
	Application.Value("WACSecSectionData") = Server.MapPath("/") & "/users.dat"
	Application.Value("WACSecSectionUserID") = "Admin"
	Application.Value("WACSecSectionPassword") = "Admin"
	
	Application.Value("WACFileExpireTime") = 60
	Application.Value("SalesEmail") = "jared@oxcyon.com"
	Application.Value("SecureURL") = "https://shopping1.copleyoh.com"
	Application.Value("UnsecureURL") = "https://shopping1.copleyoh.com"
	
	Application.UnLock
	
End Sub
	
Sub Session_OnStart	

	Call Session_Inc

	' Local variables
	Dim oNav														' Navigation button object
	Dim oSubMenu												' Sub-menu nav bar object

	oJacksNav.HasSubMenu = True
	oJacksNav.CollapsedImage = "/Graphics/shared/plus.gif"
	oJacksNav.ExpandedImage = "/Graphics/shared/minus.gif"
	oJacksNav.NoSubMenuImage = "/Graphics/shared/blank.gif"
	Set oNav = oJacksNav.AddButton("Roster")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/Thejacks/Nav/on_roster.gif"
		oNav.OffImage = "/Graphics/Thejacks/Nav/off_roster.gif"
		oNav.ActiveImage = "/Graphics/Thejacks/Nav/on_roster.gif"
		oNav.HREF = "Roster.asp"
		oNav.AltTag = "Roster"
		oNav.RollOver = True
	End If
	Set oNav = oJacksNav.AddButton("Beat")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/Thejacks/Nav/on_jacks_beat.gif"
		oNav.OffImage = "/Graphics/Thejacks/Nav/off_jacks_beat.gif"
		oNav.ActiveImage = "/Graphics/Thejacks/Nav/on_jacks_beat.gif"
		oNav.HREF = "JacksBeat.asp?NavExpand=Beat"
		oNav.AltTag = "Jacks Beat"
		oNav.RollOver = True
		oNav.HasSubMenu = True
		Set oSubMenu = oNav.SubMenu
		Set oNav = oSubMenu.AddButton("Results")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/1999_2000.gif"
			oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/1999_2000.gif"
			oNav.HREF = "Results.asp"
			oNav.AltTag = "1999-2000 Game Results"
		End If
		Set oNav = oSubMenu.AddButton("Stats")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/Stats.gif"
			oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/Stats.gif"
			oNav.HREF = "Stats.asp"
			oNav.AltTag = "Stats"
		End If
		Set oNav = oSubMenu.AddButton("News")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/newsreleases.gif"
			oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/newsreleases.gif"
			oNav.HREF = "News.asp"
			oNav.AltTag = "News Releases"
		End If
		Set oNav = oSubMenu.AddButton("Month")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/month_hist.gif"
			oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/month_hist.gif"
			oNav.HREF = "Month.asp"
			oNav.AltTag = "Player & Fan of the Month"
		End If
		Set oNav = oSubMenu.AddButton("Links")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/hockey_links.gif"
			oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/hockey_links.gif"
			oNav.HREF = "Links.asp"
			oNav.AltTag = "Hockey Links"
		End If
		Set oNav = oSubMenu.AddButton("Dave")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/dave_miller.gif"
			oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/dave_miller.gif"
			oNav.HREF = "Dave.asp"
			oNav.AltTag = "Dave Miller's Diary"
		End If
	End If
	Set oNav = oJacksNav.AddButton("Community")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/Thejacks/Nav/on_community.gif"
		oNav.OffImage = "/Graphics/Thejacks/Nav/off_community.gif"
		oNav.ActiveImage = "/Graphics/Thejacks/Nav/on_community.gif"
		oNav.HREF = "Community.asp?NavExpand=Community"
		oNav.AltTag = "Jacks in the Community"
		oNav.RollOver = True
		oNav.HasSubMenu = True
		Set oSubMenu = oNav.SubMenu
		Set oNav = oSubMenu.AddButton("Tickets")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/tick_kids.gif"
			oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/tick_kids.gif"
			oNav.HREF = "Tickets.asp"
			oNav.AltTag = "Tickets for the Kids"
		End If
		Set oNav = oSubMenu.AddButton("Charities")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/charities.gif"
			oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/charities.gif"
			oNav.HREF = "Charities.asp"
			oNav.AltTag = "Charities"
		End If
		Set oNav = oSubMenu.AddButton("StreetHeat")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/street_heat.gif"
			oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/street_heat.gif"
			oNav.HREF = "StreetHeat.asp"
			oNav.AltTag = "Jacks Street Heat"
		End If
		Set oNav = oSubMenu.AddButton("BuzzReads")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/buzz_reads.gif"
			oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/buzz_reads.gif"
			oNav.HREF = "BuzzReads.asp"
			oNav.AltTag = "Buzz Reads"
		End If
	End If
	Set oNav = oJacksNav.AddButton("OldTime")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/Thejacks/Nav/on_old_hockey.gif"
		oNav.OffImage = "/Graphics/Thejacks/Nav/off_old_hockey.gif"
		oNav.ActiveImage = "/Graphics/Thejacks/Nav/on_old_hockey.gif"
		oNav.HREF = "OldTime.asp?NavExpand=OldTime"
		oNav.AltTag = "Old Time Hockey"
		oNav.RollOver = True
		oNav.HasSubMenu = True
		Set oSubMenu = oNav.SubMenu
		' Set oNav = oSubMenu.AddButton("CleveHist")
		' If Not oNav Is Nothing Then
			' oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/cleve_hockey.gif"
			' oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/cleve_hockey.gif"
			' oNav.HREF = "CleveHist.asp"
			' oNav.AltTag = "Cleveland Hockey History"
		' End If
		Set oNav = oSubMenu.AddButton("JacksHist")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/lumber_hist.gif"
			oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/lumber_hist.gif"
			oNav.HREF = "JacksHist.asp"
			oNav.AltTag = "Lumberjacks History"
		End If
		Set oNav = oSubMenu.AddButton("IHLHist")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/ihl_hist.gif"
			oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/ihl_hist.gif"
			oNav.HREF = "IHLHist.asp"
			oNav.AltTag = "IHL History"
		End If
		Set oNav = oSubMenu.AddButton("ThisHist")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/month_hist.gif"
			oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/month_hist.gif"
			oNav.HREF = "ThisHist.asp"
			oNav.AltTag = "This Month in Jacks History"
		End If
		' Set oNav = oSubMenu.AddButton("Favorite")
		' If Not oNav Is Nothing Then
		' 	oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/vote.gif"
		' 	oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/vote.gif"
		' 	oNav.HREF = "Favorite.asp"
		' 	oNav.AltTag = "Vote for you Favorite Cleveland Team"
		' End If
	End If
	' Set oNav = oJacksNav.AddButton("GetIn")
	' If Not oNav Is Nothing Then
		' oNav.OnImage = "/Graphics/Thejacks/Nav/on_get_game.gif"
		' oNav.OffImage = "/Graphics/Thejacks/Nav/off_get_game.gif"
		' oNav.ActiveImage = "/Graphics/Thejacks/Nav/on_get_game.gif"
		' oNav.HREF = "GetIn.asp?NavExpand=GetIn"
		' oNav.AltTag = "Get In The Game"
		' oNav.RollOver = True
		' oNav.HasSubMenu = True
		' Set oSubMenu = oNav.SubMenu
		' Set oNav = oSubMenu.AddButton("Videos")
		' If Not oNav Is Nothing Then
			' oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/video.gif"
			' oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/video.gif"
			' oNav.HREF = "Videos.asp"
			' oNav.AltTag = "Jacks Videos"
		' End If
		' Set oNav = oSubMenu.AddButton("Forum")
		' If Not oNav Is Nothing Then
			' oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/fan_forum.gif"
			' oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/fan_forum.gif"
			' oNav.HREF = "Forum.asp"
			' oNav.AltTag = "Fan Forum"
		' End If
		' Set oNav = oSubMenu.AddButton("Chat")
		' If Not oNav Is Nothing Then
			' oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/chat.gif"
			' oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/chat.gif"
			' oNav.HREF = "Chat.asp"
			' oNav.AltTag = "Live Chat"
		' End If
		' Set oNav = oSubMenu.AddButton("Trivia")
		' If Not oNav Is Nothing Then
			' oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/trivia.gif"
			' oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/trivia.gif"
			' oNav.HREF = "Trivia.asp"
			' oNav.AltTag = "Trivia"
		' End If
		' Set oNav = oSubMenu.AddButton("AskJacks")
		' If Not oNav Is Nothing Then
 			' oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/ask_jacks.gif"
			' oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/ask_jacks.gif"
			' oNav.HREF = "AskJacks.asp"
			' oNav.AltTag = "Ask The Jacks"
		' End If
	' End If
	' Set oNav = oJacksNav.AddButton("Something")
	' If Not oNav Is Nothing Then
		' oNav.OnImage = "/Graphics/Thejacks/Nav/on_something.gif"
		' oNav.OffImage = "/Graphics/Thejacks/Nav/off_something.gif"
		' oNav.ActiveImage = "/Graphics/Thejacks/Nav/on_something.gif"
		' oNav.HREF = "Something.asp?NavExpand=Something"
		' oNav.AltTag = "Something for Everyone"
		' oNav.RollOver = True
		' oNav.HasSubMenu = True
		' Set oSubMenu = oNav.SubMenu
		' Set oNav = oSubMenu.AddButton("Kids")
		' If Not oNav Is Nothing Then
			' oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/kids.gif"
			' oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/kids.gif"
			' oNav.HREF = "Kids.asp"
			' oNav.AltTag = "Kids"
		' End If
		' Set oNav = oSubMenu.AddButton("Teens")
		' If Not oNav Is Nothing Then
			' oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/teens.gif"
			' oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/teens.gif"
			' oNav.HREF = "Teens.asp"
			' oNav.AltTag = "Teens"
		' End If
		' Set oNav = oSubMenu.AddButton("Adults")
		' If Not oNav Is Nothing Then
			' oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/adults.gif"
			' oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/adults.gif"
			' oNav.HREF = "Adults.asp"
			' oNav.AltTag = "Adults"
		' End If
		' Set oNav = oSubMenu.AddButton("Businesses")
		' If Not oNav Is Nothing Then
			' oNav.OffImage = "/Graphics/Thejacks/Nav/3rdlevel/businesses.gif"
			' oNav.ActiveImage = "/Graphics/Thejacks/Nav/3rdlevel/businesses.gif"
			' oNav.HREF = "Businesses.asp"
			' oNav.AltTag = "Businesses"
		' End If
	' End If
	Set oNav = oJacksNav.AddButton("Office")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/Thejacks/Nav/on_front_office.gif"
		oNav.OffImage = "/Graphics/Thejacks/Nav/off_front_office.gif"
		oNav.ActiveImage = "/Graphics/Thejacks/Nav/on_front_office.gif"
		oNav.HREF = "Office.asp"
		oNav.AltTag = "Front Office"
		oNav.RollOver = True
		oNav.HasSubMenu = False
	End If

	oGENav.HasSubMenu = True
	oGENav.CollapsedImage = "/Graphics/shared/plus.gif"
	oGENav.ExpandedImage = "/Graphics/shared/minus.gif"
	oGENav.NoSubMenuImage = "/Graphics/shared/blank.gif"
	Set oNav = oGENav.AddButton("Gund")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/GE/Nav/on_gund_arena.gif"
		oNav.OffImage = "/Graphics/GE/Nav/off_gund_arena.gif"
		oNav.ActiveImage = "/Graphics/GE/Nav/on_gund_arena.gif"
		oNav.HREF = "Gund.asp"
		oNav.AltTag = "Gund Arena"
		oNav.RollOver = True
	End If
	Set oNav = oGENav.AddButton("Ticket")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/GE/Nav/on_get_a_ticket.gif"
		oNav.OffImage = "/Graphics/GE/Nav/off_get_a_ticket.gif"
		oNav.ActiveImage = "/Graphics/GE/Nav/on_get_a_ticket.gif"
		' oNav.HREF = "http://www.ticketmaster.com/Act.asp?rgn=36&act=2574"
		oNav.HREF = "http://www.ticketmaster.com/cgi/events.plx?searchname=CLEVELAND_LUMBERJACKS&state=OH&type=STATE"
		oNav.Target = "_new"
		oNav.AltTag = "Get a Ticket"
		oNav.RollOver = True
	End If

	oShopNav.HasSubMenu = True
	oShopNav.CollapsedImage = "/Graphics/shared/plus.gif"
	oShopNav.ExpandedImage = "/Graphics/shared/minus.gif"
	oShopNav.NoSubMenuImage = "/Graphics/shared/blank.gif"
	Set oNav = oShopNav.AddButton("CART")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/TeamShop/Nav/on_cart.gif"
		oNav.OffImage = "/Graphics/TeamShop/Nav/off_cart.gif"
		oNav.ActiveImage = "/Graphics/TeamShop/Nav/on_cart.gif"
		oNav.HREF = Application.Value("UnsecureURL") & "/TeamShop/Cart.asp"
		oNav.AltTag = "Shopping Cart"
		oNav.RollOver = True
	End If
	Set oNav = oShopNav.AddButton("JERSEYS")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/TeamShop/Nav/on_jerseys.gif"
		oNav.OffImage = "/Graphics/TeamShop/Nav/off_jerseys.gif"
		oNav.ActiveImage = "/Graphics/TeamShop/Nav/on_jerseys.gif"
		oNav.HREF = Application.Value("UnsecureURL") & "/TeamShop/Products.asp?Cat=JERSEYS"
		oNav.AltTag = "Jerseys"
		oNav.RollOver = True
	End If
	Set oNav = oShopNav.AddButton("HATS")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/TeamShop/Nav/on_hats.gif"
		oNav.OffImage = "/Graphics/TeamShop/Nav/off_hats.gif"
		oNav.ActiveImage = "/Graphics/TeamShop/Nav/on_hats.gif"
		oNav.HREF = Application.Value("UnsecureURL") & "/TeamShop/Products.asp?Cat=HATS"
		oNav.AltTag = "Hats"
		oNav.RollOver = True
	End If
	Set oNav = oShopNav.AddButton("TSHIRTS")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/TeamShop/Nav/on_t_shirts.gif"
		oNav.OffImage = "/Graphics/TeamShop/Nav/off_t_shirts.gif"
		oNav.ActiveImage = "/Graphics/TeamShop/Nav/on_t_shirts.gif"
		oNav.HREF = Application.Value("UnsecureURL") & "/TeamShop/Products.asp?Cat=TSHIRTS"
		oNav.AltTag = "T-Shirts"
		oNav.RollOver = True
	End If
	Set oNav = oShopNav.AddButton("SWEATS")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/TeamShop/Nav/on_sweat.gif"
		oNav.OffImage = "/Graphics/TeamShop/Nav/off_sweat.gif"
		oNav.ActiveImage = "/Graphics/TeamShop/Nav/on_sweat.gif"
		oNav.HREF = Application.Value("UnsecureURL") & "/TeamShop/Products.asp?Cat=SWEATS"
		oNav.AltTag = "Sweat Shirts"
		oNav.RollOver = True
	End If
	Set oNav = oShopNav.AddButton("PULLOVERS")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/TeamShop/Nav/on_pull_overs.gif"
		oNav.OffImage = "/Graphics/TeamShop/Nav/off_pull_overs.gif"
		oNav.ActiveImage = "/Graphics/TeamShop/Nav/on_pull_overs.gif"
		oNav.HREF = Application.Value("UnsecureURL") & "/TeamShop/Products.asp?Cat=PULLOVERS"
		oNav.AltTag = "Pull-Overs"
		oNav.RollOver = True
	End If
	Set oNav = oShopNav.AddButton("NOVELTY")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/TeamShop/Nav/on_novelty.gif"
		oNav.OffImage = "/Graphics/TeamShop/Nav/off_novelty.gif"
		oNav.ActiveImage = "/Graphics/TeamShop/Nav/on_novelty.gif"
		oNav.HREF = Application.Value("UnsecureURL") & "/TeamShop/Products.asp?Cat=NOVELTY"
		oNav.AltTag = "Novelty Items"
		oNav.RollOver = True
	End If
	Set oNav = oShopNav.AddButton("YOUTH")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/TeamShop/Nav/on_youth.gif"
		oNav.OffImage = "/Graphics/TeamShop/Nav/off_youth.gif"
		oNav.ActiveImage = "/Graphics/TeamShop/Nav/on_youth.gif"
		oNav.HREF = Application.Value("UnsecureURL") & "/TeamShop/Products.asp?Cat=YOUTH"
		oNav.AltTag = "Youth, Toddler, Infantwear"
		oNav.RollOver = True
	End If
	Set oNav = oShopNav.AddButton("BUZZ")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/TeamShop/Nav/on_buzz_items.gif"
		oNav.OffImage = "/Graphics/TeamShop/Nav/off_buzz_items.gif"
		oNav.ActiveImage = "/Graphics/TeamShop/Nav/on_buzz_items.gif"
		oNav.HREF = Application.Value("UnsecureURL") & "/TeamShop/Products.asp?Cat=BUZZ"
		oNav.AltTag = "Buzz Items"
		oNav.RollOver = True
	End If

	o101Nav.HasSubMenu = True
	o101Nav.CollapsedImage = "/Graphics/shared/plus.gif"
	o101Nav.ExpandedImage = "/Graphics/shared/minus.gif"
	o101Nav.NoSubMenuImage = "/Graphics/shared/blank.gif"
	Set oNav = o101Nav.AddButton("YouthHockey")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/101/Nav/on_youth_hockey.gif"
		oNav.OffImage = "/Graphics/101/Nav/off_youth_hockey.gif"
		oNav.ActiveImage = "/Graphics/101/Nav/on_youth_hockey.gif"
		oNav.HREF = "YouthHockey.asp?NavExpand=YouthHockey"
		oNav.AltTag = "Youth Hockey at the Gund"
		oNav.RollOver = True
		oNav.HasSubMenu = True
		Set oSubMenu = oNav.SubMenu
		Set oNav = oSubMenu.AddButton("Fundraising")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/101/Nav/3rdlevel/fundraising.gif"
			oNav.ActiveImage = "/Graphics/101/Nav/3rdlevel/fundraising.gif"
			oNav.HREF = "Fundraising.asp"
			oNav.AltTag = "Fundraising"
		End If
	End If
	Set oNav = o101Nav.AddButton("HighSchool")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/101/Nav/on_high_hockey.gif"
		oNav.OffImage = "/Graphics/101/Nav/off_high_hockey.gif"
		oNav.ActiveImage = "/Graphics/101/Nav/on_high_hockey.gif"
		oNav.HREF = "HighSchool.asp?NavExpand=HighSchool"
		oNav.AltTag = "High School Hockey"
		oNav.RollOver = True
		oNav.HasSubMenu = True
		Set oSubMenu = oNav.SubMenu
		Set oNav = oSubMenu.AddButton("Fundraising2")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/101/Nav/3rdlevel/fundraising.gif"
			oNav.ActiveImage = "/Graphics/101/Nav/3rdlevel/fundraising.gif"
			oNav.HREF = "Fundraising2.asp"
			oNav.AltTag = "Fundraising"
		End If
	End If
	Set oNav = o101Nav.AddButton("PlayHockey")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/101/Nav/on_play.gif"
		oNav.OffImage = "/Graphics/101/Nav/off_play.gif"
		oNav.ActiveImage = "/Graphics/101/Nav/on_play.gif"
		oNav.HREF = "PlayHockey.asp?NavExpand=PlayHockey"
		oNav.AltTag = "Play Hockey"
		oNav.RollOver = True
		oNav.HasSubMenu = True
		Set oSubMenu = oNav.SubMenu
		Set oNav = oSubMenu.AddButton("SummerHockey")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/101/Nav/3rdlevel/play_summer.gif"
			oNav.ActiveImage = "/Graphics/101/Nav/3rdlevel/play_summer.gif"
			oNav.HREF = "SummerHockey.asp"
			oNav.AltTag = "Play Summer Hockey"
		End If
		Set oNav = oSubMenu.AddButton("OhioRinks")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/101/Nav/3rdlevel/northeast.gif"
			oNav.ActiveImage = "/Graphics/101/Nav/3rdlevel/northeast.gif"
			oNav.HREF = "OhioRinks.asp"
			oNav.AltTag = "Northeast Ohio Rinks"
		End If
	End If
	Set oNav = o101Nav.AddButton("GameGuide")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/101/Nav/on_guide.gif"
		oNav.OffImage = "/Graphics/101/Nav/off_guide.gif"
		oNav.ActiveImage = "/Graphics/101/Nav/on_guide.gif"
		oNav.HREF = "GameGuide.asp?NavExpand=GameGuide"
		oNav.AltTag = "Guide to the Game"
		oNav.RollOver = True
		oNav.HasSubMenu = True
		Set oSubMenu = oNav.SubMenu
		Set oNav = oSubMenu.AddButton("AskJacks2")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/101/Nav/3rdlevel/ask_jacks.gif"
			oNav.ActiveImage = "/Graphics/101/Nav/3rdlevel/ask_jacks.gif"
			oNav.HREF = "AskJacks2.asp"
			oNav.AltTag = "Ask the Jacks"
		End If
	End If
	Set oNav = o101Nav.AddButton("Coaches")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/101/Nav/on_coaches.gif"
		oNav.OffImage = "/Graphics/101/Nav/off_coaches.gif"
		oNav.ActiveImage = "/Graphics/101/Nav/on_coaches.gif"
		oNav.HREF = "Coaches.asp?NavExpand=Coaches"
		oNav.AltTag = "Coaches Corner"
		oNav.RollOver = True
		oNav.HasSubMenu = True
		Set oSubMenu = oNav.SubMenu
		Set oNav = oSubMenu.AddButton("LockerRoom")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/101/Nav/3rdlevel/from_locker.gif"
			oNav.ActiveImage = "/Graphics/101/Nav/3rdlevel/from_locker.gif"
			oNav.HREF = "LockerRoom.asp"
			oNav.AltTag = "From the Locker Room"
		End If
	End If
	Set oNav = o101Nav.AddButton("BuzzPage")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/101/Nav/on_buzz.gif"
		oNav.OffImage = "/Graphics/101/Nav/off_buzz.gif"
		oNav.ActiveImage = "/Graphics/101/Nav/on_buzz.gif"
		oNav.HREF = "BuzzPage.asp?NavExpand=BuzzPage"
		oNav.AltTag = "Buzz"
		oNav.RollOver = True
		oNav.HasSubMenu = True
		Set oSubMenu = oNav.SubMenu
		Set oNav = oSubMenu.AddButton("KidsCorner")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/101/Nav/3rdlevel/buzz_kids.gif"
			oNav.ActiveImage = "/Graphics/101/Nav/3rdlevel/buzz_kids.gif"
			oNav.HREF = "KidsCorner.asp"
			oNav.AltTag = "Buzz's Kids Corner"
		End If
		Set oNav = oSubMenu.AddButton("BuzzReads2")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/101/Nav/3rdlevel/buzz_reads.gif"
			oNav.ActiveImage = "/Graphics/101/Nav/3rdlevel/buzz_reads.gif"
			oNav.HREF = "BuzzReads2.asp"
			oNav.AltTag = "Buzz Reads"
		End If
		Set oNav = oSubMenu.AddButton("Birthday")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/101/Nav/3rdlevel/birthday.gif"
			oNav.ActiveImage = "/Graphics/101/Nav/3rdlevel/birthday.gif"
			oNav.HREF = "Birthday.asp"
			oNav.AltTag = "Birthday Bash"
		End If
	End If

	oTicketNav.HasSubMenu = True
	oTicketNav.CollapsedImage = "/Graphics/shared/plus.gif"
	oTicketNav.ExpandedImage = "/Graphics/shared/minus.gif"
	oTicketNav.NoSubMenuImage = "/Graphics/shared/blank.gif"
	Set oNav = oTicketNav.AddButton("TicketPlans")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/Tickets/Nav/on_ticket_plans.gif"
		oNav.OffImage = "/Graphics/Tickets/Nav/off_ticket_plans.gif"
		oNav.ActiveImage = "/Graphics/Tickets/Nav/on_ticket_plans.gif"
		oNav.HREF = "TicketPlans.asp?NavExpand=TicketPlans"
		oNav.AltTag = "Ticket Plans"
		oNav.RollOver = True
		oNav.HasSubMenu = True
		Set oSubMenu = oNav.SubMenu
		Set oNav = oSubMenu.AddButton("FamilyDays")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Tickets/Nav/3rdlevel/family_days.gif"
			oNav.ActiveImage = "/Graphics/Tickets/Nav/3rdlevel/family_days.gif"
			oNav.HREF = "FamilyDays.asp"
			oNav.AltTag = "Family Days"
		End If
		Set oNav = oSubMenu.AddButton("10GamePlan")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Tickets/Nav/3rdlevel/10game.gif"
			oNav.ActiveImage = "/Graphics/Tickets/Nav/3rdlevel/10game.gif"
			oNav.HREF = "10GamePlan.asp"
			oNav.AltTag = "10 Game Plan"
		End If
		Set oNav = oSubMenu.AddButton("FlexPlans")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Tickets/Nav/3rdlevel/flex.gif"
			oNav.ActiveImage = "/Graphics/Tickets/Nav/3rdlevel/flex.gif"
			oNav.HREF = "FlexPlans.asp"
			oNav.AltTag = "Flex Plans"
		End If
		Set oNav = oSubMenu.AddButton("PartialSeason")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Tickets/Nav/3rdlevel/partial.gif"
			oNav.ActiveImage = "/Graphics/Tickets/Nav/3rdlevel/partial.gif"
			oNav.HREF = "PartialSeason.asp"
			oNav.AltTag = "Partial Season Tickets"
		End If
		Set oNav = oSubMenu.AddButton("SeasonTickets")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Tickets/Nav/3rdlevel/season_tickets.gif"
			oNav.ActiveImage = "/Graphics/Tickets/Nav/3rdlevel/season_tickets.gif"
			oNav.HREF = "SeasonTickets.asp"
			oNav.AltTag = "Season Tickets"
		End If
	End If
	Set oNav = oTicketNav.AddButton("GreatSavings")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/Tickets/Nav/on_great_save.gif"
		oNav.OffImage = "/Graphics/Tickets/Nav/off_great_save.gif"
		oNav.ActiveImage = "/Graphics/Tickets/Nav/on_great_save.gif"
		oNav.HREF = "GreatSavings.asp?NavExpand=GreatSavings"
		oNav.AltTag = "Great Savings"
		oNav.RollOver = True
		oNav.HasSubMenu = True
		Set oSubMenu = oNav.SubMenu
		Set oNav = oSubMenu.AddButton("SpecialEvents")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Tickets/Nav/3rdlevel/special.gif"
			oNav.ActiveImage = "/Graphics/Tickets/Nav/3rdlevel/special.gif"
			oNav.HREF = "SpecialEvents.asp"
			oNav.AltTag = "Special Events"
		End If
		Set oNav = oSubMenu.AddButton("Parties")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Tickets/Nav/3rdlevel/pre_post.gif"
			oNav.ActiveImage = "/Graphics/Tickets/Nav/3rdlevel/pre_post.gif"
			oNav.HREF = "Parties.asp"
			oNav.AltTag = "Pre/Post Game Parties"
		End If
		Set oNav = oSubMenu.AddButton("GundDay")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Tickets/Nav/3rdlevel/gund_day.gif"
			oNav.ActiveImage = "/Graphics/Tickets/Nav/3rdlevel/gund_day.gif"
			oNav.HREF = "GundDay.asp"
			oNav.AltTag = "Gund for a Day"
		End If
		Set oNav = oSubMenu.AddButton("Birthday2")
		If Not oNav Is Nothing Then
			oNav.OffImage = "/Graphics/Tickets/Nav/3rdlevel/birthday.gif"
			oNav.ActiveImage = "/Graphics/Tickets/Nav/3rdlevel/birthday.gif"
			oNav.HREF = "Birthday2.asp"
			oNav.AltTag = "Birthday Bash"
		End If
	End If
	Set oNav = oTicketNav.AddButton("Purchase")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/Tickets/Nav/on_purchase_tick.gif"
		oNav.OffImage = "/Graphics/Tickets/Nav/off_purchase_tick.gif"
		oNav.ActiveImage = "/Graphics/Tickets/Nav/on_purchase_tick.gif"
		' oNav.HREF = "http://www.ticketmaster.com/Act.asp?rgn=36&act=2574"
		oNav.HREF = "http://www.ticketmaster.com/cgi/events.plx?searchname=CLEVELAND_LUMBERJACKS&state=OH&type=STATE"
		oNav.Target = "_new"
		oNav.AltTag = "Purchase Tickets Online"
		oNav.RollOver = True
	End If
	Set oNav = oTicketNav.AddButton("TicketMaster")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/Tickets/Nav/on_locations.gif"
		oNav.OffImage = "/Graphics/Tickets/Nav/off_locations.gif"
		oNav.ActiveImage = "/Graphics/Tickets/Nav/on_locations.gif"
		' oNav.HREF = "http://2000.ticketmaster.com/cgi-bin/tcenter/centers.idc?state=Ohio"
		oNav.HREF = "http://www.ticketmaster.com/cgi/events.plx?searchname=CLEVELAND_LUMBERJACKS&state=OH&type=STATE"
		oNav.Target = "_new"
		oNav.AltTag = "Ticket Master Locations"
		oNav.RollOver = True
	End If
	Set oNav = oTicketNav.AddButton("GundInfo")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/Tickets/Nav/on_gund_info.gif"
		oNav.OffImage = "/Graphics/Tickets/Nav/off_gund_info.gif"
		oNav.ActiveImage = "/Graphics/Tickets/Nav/on_gund_info.gif"
		oNav.HREF = "GundInfo.asp"
		oNav.AltTag = "Gund Arena Info"
		oNav.RollOver = True
	End If
	Set oNav = oTicketNav.AddButton("Schedule")
	If Not oNav Is Nothing Then
		oNav.OnImage = "/Graphics/Tickets/Nav/on_schedule.gif"
		oNav.OffImage = "/Graphics/Tickets/Nav/off_schedule.gif"
		oNav.ActiveImage = "/Graphics/Tickets/Nav/on_schedule.gif"
		oNav.HREF = "Schedule.asp"
		oNav.AltTag = "Jacks Schedule"
		oNav.RollOver = True
	End If

End Sub 	
	
</SCRIPT>