on error resume next

If MSDetect = "true" Then

	For i = 6 to 9
	
	   If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then
	   
			'DO NOTHING
			
	   Else
	   
		   flashinstalled = 2
		   flashversion = i
		   
	   End If
	   
	Next
	
End If

If flashinstalled = 0 Then
        
	flashinstalled = 1
	
End If