//********************************************************************************************
//	FILE:			flashSniffer.vbs
//	AUTHOR:			Al Kahler
//	DATE:			11/02/2001
//	REQUIREMENTS:	must load flashSniffer.js (containing all other routines) following this file.
//********************************************************************************************
	
	
	//--------------------------------------------------------------------------------------------
	//	SNIFF FLASH ON IE
	//	returns true/false value indicating lack of acceptable flash plugin
	//	(true = NO FLASH; false = YES FLASH)
	//--------------------------------------------------------------------------------------------
		function vbFlashIgnorance(thisVersion)
			On Error Resume Next
			
			dim hasFlash, flashObject
			hasFlash = false
			set flashObject = CreateObject("ShockwaveFlash.ShockwaveFlash." & thisVersion)
			if (IsObject(flashObject)) then hasFlash = true end if
			
			vbFlashIgnorance = not hasFlash
		end function