'check for Flash Player (script for IE on Win32 systems)
Sub checkFlashIEWin

on error resume next

Dim checkForFlash
'assign a boolean value
checkForFlash = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")))
'if the object is demoted to ShockwaveFlash.ShockwaveFlash.5 or less, checkForFlash will still return true
'this is ok as Flash Player 6 can run previous version content.

'True -- display Flash content  False -- display alternate content
if checkForFlash = true then
  document.write("<object classid=""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab"" width=""350"" height=""214"">")
  document.write("<param name=""movie"" value=""/swf/framehwy.swf"" />")
  document.write("<param name=""quality"" value=""high"" />")
  document.write("<param name=""loop"" value=""false"" />")
  document.write("<param name=""bgcolor"" value=""#eeeedd"" />")
  document.write("<embed src=""/swf/framehwy.swf"" quality=""high"" loop=""false"" bgcolor=""#eeeedd"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width=""350"" height=""214"" />")
  document.write("</object>")
else
  document.write("<img id=""road"" src=""/img/framehwylg.jpg"" width=""350"" height=""214"" alt="""" />")
end If

End Sub