//check for Flash Player X
//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.5 or less, checkForFlash6 will still return true
//this is ok as Flash Player 7 can run previous version content.
//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("
You don't have the latest version of Macromedia Flash Player.
This web site makes use of Macromedia®FlashTM software. You have an old version or possibly no version at all of Macromedia Flash Player and cannot play the content we've created.
Why not download and install the latest version now? It will only take a moment.
Macromedia and Flash are trademarks of Macromedia, Inc.