on error resume next

If Not(plugin) Then

	flashSix = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6")))

	flashElse = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")))

	If flashElse = false Then
		flashElse = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.4")))
		If flashElse = false Then
			flashElse = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.3")))
		End If
	End If
End If