on error resume next

If MSDetect = "true" Then
	For i = 2 to 10
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then

		Else
			flashstatus = 2
			flashversion = i
		End If
	Next

	If flashstatus = 0 Then
		flashstatus = 1
	End If

End If