//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('<embed src=' + mapflash + ' quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="187" height="146"></embed>');

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