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



document.write('<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="187" height="146">');



document.write('<param name="movie" value=""');

document.write(mapflash);

document.write('>');

document.write('<param name="quality" value="high">');

document.write('<param name="wmode" value="transparent">');

document.write('<embed src=' + mapflash + ' quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="187" height="146" wmode="transparent"></embed>');



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