on error resume next

If MSDetect = "true" Then	
	For i = 2 to 5
		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