sub subtd1_Onmouseover()
		submenu.style.visibility = display
		subtd1.className = "tdchange"		
	End sub
	
	sub subtd1_Onmouseout()		
		'submenu.style.visibility = "hidden"
		subtd1.className = "tdcurrent"		
	End sub
	
	sub subtd1_Onclick()
		document.all.myframe.src = "b3-1.htm"
		document.all.myframe.style.height = 1000
	End sub
	
	sub subtd2_Onmouseover()
		submenu.style.visibility = display
		subtd2.className = "tdchange"		
	End sub
	
	sub subtd2_Onmouseout()
		'submenu.style.visibility = "hidden"
		subtd2.className = "tdcurrent"		
	End sub
	
	sub subtd2_Onclick()
		document.all.myframe.src = "b3-2.htm"
		document.all.myframe.style.height = 350
	End sub
	
	sub subtd3_Onmouseover()
		submenu.style.visibility = display
		subtd3.className = "tdchange"		
	End sub
	
	sub subtd3_Onmouseout()
		'submenu.style.visibility = "hidden"
		subtd3.className = "tdcurrent"		
	End sub
	
	sub subtd3_Onclick()
		document.all.myframe.src = "b3-3.htm"
		document.all.myframe.style.height = 380
	End sub
	
	sub subtd4_Onmouseover()
		submenu.style.visibility = display
		subtd4.className = "tdchange"		
	End sub
	
	sub subtd4_Onmouseout()
		'submenu.style.visibility = "hidden"
		subtd4.className = "tdcurrent"		
	End sub
	
	sub subtd4_Onclick()
		document.all.myframe.src = "b3-4.htm"
		document.all.myframe.style.height = 460
	End sub

	sub subtd5_Onmouseover()
		submenu.style.visibility = display
		subtd5.className = "tdchange"		
	End sub
	
	sub subtd5_Onmouseout()
		'submenu.style.visibility = "hidden"
		subtd5.className = "tdcurrent"		
	End sub
	
	sub subtd5_Onclick()
		document.all.myframe.src = "b3-5.htm"
		document.all.myframe.style.height = 500
	End sub
	
	sub subtd6_Onmouseover()
		submenu.style.visibility = display
		subtd6.className = "tdchange"		
	End sub
	
	sub subtd6_Onmouseout()
		'submenu.style.visibility = "hidden"
		subtd6.className = "tdcurrent"		
	End sub
	
	sub subtd6_Onclick()
		document.all.myframe.src = "b3-6.htm"
		document.all.myframe.style.height = 900
	End sub
	
	sub subtd7_Onmouseover()
		submenu.style.visibility = display
		subtd7.className = "tdchange"		
	End sub
	
	sub subtd7_Onmouseout()
		'submenu.style.visibility = "hidden"
		subtd7.className = "tdcurrent"		
	End sub
	
	sub subtd7_Onclick()
		document.all.myframe.src = "b3-7.htm"
		document.all.myframe.style.height = 270
	End sub