on error resume next 
	 FlashModeIE = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")) 
	 FlashVersion = 3
	 If FlashModeIE = False Then 
	 FlashModeIE = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")) 
	 FlashVersion = 4
	 End If 
	 If FlashModeIE = False Then 
	 FlashModeIE = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")) 
	 End If 
	 If FlashModeIE = True Then 
	 FlashMode=1 
	 End If