//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