on error resume next 

If IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash")) Then 
	HasFlash = 1 
End If