//check for Flash Player X
        //script for IE on Win32 systems 
	  on error resume next
        //set a variable to hold the detection result
        Dim checkForFlash6
        //assign a boolean value
       
        checkForFlash6 = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash."& ver)))
		
        //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 checkForFlash6 = true then
           document.write("<object data="""&filen&""" classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" type=""application/x-shockwave-flash"" codebase="""&dir&""" width="""&w&""" height="""&h&"""><param name=""movie"" value="""&dir&"/"&filen&""" /><param name=""menu"" value=""false"" /><param name=""quality"" value=""high"" /><param name=""bgcolor"" value="""&color&""" /></object>")
        else
           document.write("<a href="""&alturl&"""><img src="""&altimage&""" alt=""Sorry, no flash for you!"" /></a> ")
        end If