<!--
		on error resume next
		Dim checkForFlash6, flashObject, cycleVal
		checkForFlash6 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")))
		
		flashObject = "<object type=""application/x-shockwave-flash"" data=""/flash/header.swf"" width=""760"" height=""70""><param name=""movie"" value=""/flash/header.swf"" /><param name=""menu"" value=""false"" /><param name=""wmode"" value=""transparent"" /></object>"

		
		if checkForFlash6 = true then
		  document.write(flashObject)
		else
		  document.write("<a href=""/""><img src=""/images/gg_alt.jpg"" alt=""Greenwood Guides"" title=""Greenwood Guides"" border=""0"" width=""760"" /></a>")
		end If
//-->