function flash_check()
{
with (navigator) if (appName.indexOf('Microsoft')!=-1 && appVersion.indexOf('Mac')==-1) document.write(''+
'<scr'+'ipt language="VBScript">\nOn error resume next\n'+
'MM_dir = IsObject(CreateObject("SWCtl.SWCtl.1"))\n'+
'MM_flash = NOT IsNull(CreateObject("ShockwaveFlash.ShockwaveFlash"))\n</scr'+'ipt>');

var ok=false;
var plgIn="Shockwave Flash";
with (navigator)
	{ 
	if (appName.indexOf('Microsoft')==-1 || (plugins && plugins.length)) 
		{
    	ok=(plugins && plugins[plgIn]);
  		}
		else if (appVersion.indexOf('3.1')==-1) 
			{ //not Netscape or Win3.1
    		if (plgIn.indexOf("Flash")!=-1 && window.MM_flash!=null) ok=window.MM_flash;
			    else if (plgIn.indexOf("Director")!=-1 && window.MM_dir!=null) ok=window.MM_dir;
				    else ok=false; 
			}
	return ok;
	}
}