on error resume next 
If MSDetect="true" Then
	If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash"))) Then 
		HasFlash=1
	Else 
		HasFlash=2 
	End If
End If