Snitz Forums 2000 - VBScrip Error HELP!

Snitz Forums 2000
Username:	Password:
Save Password
Forgot your Password?
All Forums
Community Forums
Code Support: ASP (Non-Forum Related)
VBScrip Error HELP!
New Topic
Topic Locked
Printer Friendly
Author
Topic
Lycaster
New Member
USA
60 Posts
Posted - 13 June 2001 : 16:10:05
Can anyone tell me what this means or maybe how to fix it?:

Microsoft VBScript runtime error '800a01a8'

Object required: 'oSubMenu'

//global.asa, line 76
redbrad0
Advanced Member
USA
3725 Posts
Posted - 13 June 2001 : 16:51:18
can you post the code of your global.asa file?

without looking at your code, it looks like oSubMenu is a recordset trying to get something out of the database but you do not tell it what oSubMenu is. post the code to your global.asa file and will try and edit it and give you an new global.asa file.

Brad
Lycaster
New Member
USA
60 Posts
Posted - 13 June 2001 : 17:36:07
 

<!-- #include virtual="/authoringcenter/global_inc/com_reg.asp" -->
<OBJECT RUNAT=Server SCOPE=Session ID=oJacksNav PROGID="NavBar.NavigationBar"></OBJECT>
<OBJECT RUNAT=Server SCOPE=Session ID=oGENav PROGID="NavBar.NavigationBar"></OBJECT>
<OBJECT RUNAT=Server SCOPE=Session ID=oShopNav PROGID="NavBar.NavigationBar"></OBJECT>
<OBJECT RUNAT=Server SCOPE=Session ID=o101Nav PROGID="NavBar.NavigationBar"></OBJECT>
<OBJECT RUNAT=Server SCOPE=Session ID=oTicketNav PROGID="NavBar.NavigationBar"></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>
Deleted
deleted
4116 Posts
Posted - 13 June 2001 : 18:00:42
Gulp. This is nearly a whole site
. And where is that line 76? I counted it and came to a wrong place.

PS: I hope it's not a copyrighted code.

Think Pink
redbrad0
Advanced Member
USA
3725 Posts
Posted - 13 June 2001 : 18:27:27
I have this as line 76...

oNav.AltTag = "1999-2000 Game Results"

line 70 - Set oSubMenu = oNav.SubMenu
line 71 - Set oNav = oSubMenu.AddButton("Results")

im sorry i really dont understand it, or why it would say line 76

Brad
Deleted
deleted
4116 Posts
Posted - 14 June 2001 : 09:29:12
quote:

I have this as line 76...

oNav.AltTag = "1999-2000 Game Results"

line 70 - Set oSubMenu = oNav.SubMenu
line 71 - Set oNav = oSubMenu.AddButton("Results")

im sorry i really dont understand it, or why it would say line 76

Brad
Red, it must be because of the include at the beginning. At least we have to know how many lines are in. Very strange code thou.

Think Pink
Topic
New Topic
Topic Locked
Printer Friendly
Jump To:
Snitz Forums 2000
This page was generated in 0.36 seconds.