on error resume next
versionFlashDefault = 6
set oFlashTest = CreateObject("ShockwaveFlash.ShockwaveFlash." & versionFlashDefault)
flashPage = IsObject(oFlashTest)
set oFlashTest = Nothing