<!--
   function detectFlashIE(swfName,swfID,flashVer,swfWidth,swfHeight,showErrMsg,paramItms)
      //check for Flash Player X script for IE on Win32 systems
      on error resume next

      Dim checkForFlashMin

      //assign a boolean value. note here that if the object is demoted to ShockwaveFlash.ShockwaveFlash.6 or less, checkForFlashMin will still return true
      checkForFlashMin = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & flashVer)))

      //check that Shockwave Flash Plugin is available - if false display alternate content
      //quotes need to be doubled in vbscript in order for IE to render them in markup.
      if checkForFlashMin = true then
         document.write("<object classid=""clsid:d27cdb6e-ae6d-11cf-96b8-444553540000"" codebase=""http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=" & flashVer & ",0,0,0"" width=""" & swfWidth & """ height=""" & swfHeight & """ id=""" & swfID & """ ><param name=""allowScriptAccess"" value=""always"" />" & paramItms & "<param name=""movie"" value=""" & swfName & """ /><param name=""quality"" value=""high"" /><param name=""allowScriptAccess"" value=""sameDomain"" /></object>")
      elseif showErrMsg then
         document.write("<div id=""errMsg""><p>This page requires Macromedia Flash Player " & flashVer & " or later.<br>Please visit <a href=""http://www.macromedia.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash"" target=""_blank"">macromedia.com</a> to download the latest plugin.</p></div>")
      end if
   end function
-->