on error resume next

If ms = "true" Then
	For i = 2 to 6
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then
			fl=5
		Else
			fl = 2
			flashversion = i
		End If
	Next
End If

If fl = 0 Then
	fl = 1
End If