on error resume next
If action = "ie_exec" then
FlashInstalled =(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3"))) 
End If
If FlashInstalled = "True" then
flash = "yes" 
End If