//-----------------System Check Routine------------------//
//-----------------Initazing variables-------------------//
	var jscript,language,colors,resolution,avalW,avalH,real,flash,browname,cookie;
	var seq1="",seq2="";
	var a=0,b=0,num=0;precent=0;
	var realState=false;
	var flashState=false;
	var G2=false;
	var FI=false;
	var last=document.lastModified;
	var historyP=history.length;
	var dateP=new Date();
	var ie=document.all?1:0;
	var ns=document.layers?1:0;
	var dom=document.getElementById?1:0;
	var HM_N4 = (document.layers) ? 1 : 0;
	var HM_IE4 = (document.all) ? 1 : 0;
	var HM_N6 = (document.getElementById && !document.all) ? 1 : 0;
	var HM_isMac = (navigator.appVersion.indexOf("Mac") != -1) ? 1 : 0;
	var HM_isMenu = (HM_N4 || HM_IE4 || HM_N6) ? 1 : 0;
	var l=(ie||dom)?navigator.browserLanguage:navigator.language;
//-------------------End of variables-------------------//

//----------Cookie and JavaScript check module----------//
	if (navigator.javaEnabled()>-1) jscript = 1;
	else jscript = 0;
	if (navigator.cookieEnabled) cookie = 1;
	else cookie = 0;
//--------------------End of module--------------------//

//----------Flash & Real Players check module----------//
	numPlugins = navigator.plugins.length;
	for(i=0;i<numPlugins;i++)
	{
		plugin = navigator.plugins[i];
		if ((plugin.name.substring(0,10)=="RealPlayer")&&(plugin.name.indexOf("G2")>0)) realState=true;
		if ((plugin.name.indexOf("Shockwave Flash")>-1)&&(plugin.description.indexOf("5")>-1)) flashState=true;	
	}

   	document.write('<script language=VBScript\> \n');
	document.write('on error resume next \n');
	document.write('G2 = (NOT IsNull(CreateObject("rmocx.RealPlayer G2 Control")))\n');
	document.write('</script\> \n');
	document.write('<script language=VBScript\> \n');
	document.write('on error resume next \n');
	document.write('FI = (IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5"))) \n');
	document.write('</script\> \n'); 
   	document.write('<script language=VBScript\>\non error resume next \nG2=(NOT IsNull(CreateObject("rmocx.RealPlayer G2 Control")))\n</script\>\n');
	document.write('<script language=VBScript\>\non error resume next\nFI=(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5")))\n</script\>\n');

	if (flashState||FI) flash = 1
	else flash = 0
	if (realState||G2) real = 1
	else real = 0
//--------------------End of module--------------------//

//------------------General info module----------------//
	if (ie)
	{
		browname = "IE";
		avalW = screen.availWidth;
		avalH = screen.availHeight;
		langInfo();
	}
	else if (ns)
	{
		browname = "NN";
		avalW = window.innerWidth;
		avalH = window.innerHeight;
		langInfo();
	}
	else if (dom)
	{
		browname = "NN6";
		avalW = window.innerWidth;
		avalH = window.innerHeight;
	}
		colors = screen.colorDepth;
		resx = screen.width;
		resy = screen.height;
//--------------------End of module--------------------//

//------------Detection of browser language------------//
	function langInfo() // 
	{
		if (l.indexOf('en')>-1)language='English';
		else if (l.indexOf('fr')>-1) language='French';
		else language='English';
	}
//--------------------End of module--------------------//
//---------------------End Routine---------------------//

