On Error Resume Next

If MSDetect = "true" Then
	For i = 8 to 2 Step -1
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then

		Else
			If flashinstalled = 0 Then
				flashinstalled = 2
				flashversion = i
			End If
		End If
	Next
End If

If flashinstalled = 0 Then
	flashinstalled = 1
End If