<!--
		on error resume next
		Dim checkForFlash6, flashObject, cycleVal
		checkForFlash6 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")))
		
		flashObject = "<object type=""application/x-shockwave-flash"" data=""/flash/loader.swf"" width=""380"" height=""250""><param name=""movie"" value=""/flash/loader.swf"" /><param name=""menu"" value=""false"" /><param name=""bgcolor"" value=""#ffffff"" /></object>"

		
		if checkForFlash6 = true then
		  document.write(flashObject)
		else
		  document.write("<div><img id=""header_img"" src=""/images/homepage.jpg"" align=""bottom"" border=""0"" alt="""" /></div>")
		end If
//-->