Sub hovernKF(Element)	
		Dim MName 
		MName=Element.id & "_UM"
		Element.classname="ElemHover-KF"
		on error resume next
		document.all(MName).classname="UMenueS"		
	end sub

	Sub hovernEndeKF(Element)
		Dim MName 
		MName=Element.id & "_UM"
		Element.classname="ElemNormal-KF"
		on error resume next
		document.all(MName).classname="UMenue"		
	end sub	
	
	Sub changeUE(Element)			
		if Element.classname="UMElemNormal" then
			Element.className="UMElemHover"
		else 
			Element.className="UMElemNormal"
		end if
	end sub	

	Sub hovernUM(Element)	
		Element.classname="UMenueS"		
	end sub	
	
	Sub hovernUMEnde(Element)	
		Element.classname="UMenue"		
	end sub