// check for Flash on IE
on error resume next
//set a variable to hold the detection result
Dim checkForFlash6
Dim text
text = "
Macromedia Flash is not installed on your computer!
"
text = text & "
Please click here to be redirected to the Macromedia Website for further instructions. Thank you.
"
//assign a boolean value
checkForFlash6 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")))
if checkForFlash6 = true then
document.write("")
else
document.write("