on error resume next
			If MSDetect = "true" Then
				For i = 3 to 10
					If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then
					Else
						flashinstalled = 2
						flashversion = i
					End If
				Next
			End If
			If flashinstalled = 0 Then
				flashinstalled = 1
			End If