on error resume next
	ie_install = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash")))
	ie_install3 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")))