//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("")
else
document.write("")
end If
")
end If