// Flash- detect fuer IE
on error resume next
set f = CreateObject("ShockwaveFlash.ShockwaveFlash")
if IsObject(f) then
	i_flash = true
	v_flash = hex(f.FlashVersion())
end if