'this is for browsers that use microsoft's activex paradigm
'what is the maximum flash version you want to detect
maxflash = 10

on error resume next
'try to create a flash object, it will detect the highest version of flash available
'for the lowest version replace the for line with:
'For i = maxflash to 2 step -1
If nonMozilla = "true" Then
	For i = 2 to maxflash
		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