'vbscript to see if the flash active x control capable browser 

Private i, x
On Error Resume Next

FlashControlInstalled = False

if (flashDetected = false) then
	
	For i = checkFlashVersion To 1 Step -1
		Set x = CreateObject("ShockwaveFlash.ShockwaveFlash." & i)
		
		FlashControlInstalled = IsObject(x)
		
		If FlashControlInstalled Then
	    	FlashControlVersion = CStr(i)
			myFlashVersion = FlashControlVersion
    		Exit For
		End If
	
	Next
	
	diff = FlashControlVersion - checkFlashVersion
	if (diff >= 0) then
		flashDetected = true
	else
		flashDetected = false
	end if
end if