on error resume next

			If MSDetect = "true" Then
				For i = 2 to 7
					If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then
					Else
						flashinstalled = 2
						flashversion = i
						flashmajorrevision = 0
						flashminorrevision = 0
					End if
				Next
			End if

			If flashinstalled = 0 Then
				flashinstalled = 1
			End If