//check for Flash Player 7
//script for IE on Win32 systems
on error resume next
//set a variable to hold the detection result
Dim checkForFlash7
//assign a boolean value
checkForFlash7 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.7")))
//note here that if the object is demoted to ShockwaveFlash.ShockwaveFlash.6 or less, checkForFlash6 will still return true
//this is ok as Flash Player 7 can run previous version content.
//change 7 to 8 and you will see the alternate content (if 8 is not installed).
//check that Shockwave Flash Plugin 7 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 checkForFlash7 = true then
document.write("")
else
document.write("
