
<!--
	function checkFlashIEWIN()
       //check for Flash Player X
       //script for IE on Win32 systems
       on error resume next
       //set a variable to hold the detection result
       Dim checkForFlash5

       //assign a boolean value
       checkForFlash5 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")))
       //note here that if the object is demoted to ShockwaveFlash.ShockwaveFlash.5 or less, checkForFlash6 will still return true
       //this is ok as Flash Player 6 can run previous version content.
       //change 6 to 7 and you will see the alternate content (if 7 is not installed).

       //check that Shockwave Flash Plugin 6 is available
       //if false display alternate content, if true show object tag
       //quotes need to be doubled in vbscript in order for IE to render them in markup.
       if checkForFlash5 = true then
        checkFlashIEWIN = true
       else
		 checkFlashIEWIN = false
       end If
	end function
-->