//check for Flash Player X
       //script for IE on Win32 systems
      // on error resume next
       //set a variable to hold the detection result
      // Dim checkForFlash6

       //assign a boolean value
      // checkForFlash6 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")))
       ////note here that if the object is demoted to ShockwaveFlash.ShockwaveFlash.5 or less, checkForFlash6 will still return true
       //this is ok as Flash Player 6 can run previous version content.
       //change 6 to 7 and you will see the alternate content (if 7 is not installed).

       //check that Shockwave Flash Plugin 6 is available
       //if false display alternate content, if true show object tag
       //quotes need to be doubled in vbscript in order for IE to render them in markup.
      // if checkForFlash6 = true then
document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=8,0,0,0" width="192" height="81" id="lowflasha" align="middle">');

document.write('<param name="movie" value='+ lowflash +' />');
document.write('<param name="quality" value="high">');
document.write('<embed src='+ lowflash +' quality="high" bgcolor="#ffffff" width="192" height="81" name="lowflasha" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');

document.write('</object>');

      // end If