// Beg-Required Globals for CKIE
var haveFlash1 = 0;
var haveFlash2 = 0;
var haveFlash3 = 0;
var haveFlash4 = 0;
var haveFlash5 = 0;
var haveFlash6 = 0;
var haveQT1 = 0;
var haveQT2 = 0;
var haveWM1 = 0;
var haveWM2 = 0;
var haveRM = 0;

function getOPI(XFBI) {
	//Step P
	XFComp = XFBI.charAt(0);
	XFBrow = XFBI.charAt(1);
	XFVers = XFBI.charAt(2);
	XFPlat = XFBI.charAt(3);
	var FFlsh = "0";
	var FApQT = "0";
	var FWNMP = "0";
	var FRAMP = "0";
	var poa = 0;
	var pob = 0;
	var poc = 0;
	var pod = 0;
	var poe = 0;
	var poa2;
	var pob2;
	var poc2;
	var pod2;
	var poe2;
	var lrv2;
	var m = 0;
	if (navigator.mimeTypes) {
		poa = navigator.mimeTypes["application/x-shockwave-flash"];
		pob = navigator.mimeTypes["video/quicktime"];
		poc = navigator.mimeTypes["mplayer2"];
		pod = navigator.mimeTypes["video/x-ms-wm"];
		poe = navigator.mimeTypes["audio/x-pn-realaudio-plugin"];
				if (poa) {
					FFlsh = "1";
				}
				if (pob) {
					FApQT = "1";
				}
				if (poc) {
					FWNMP = "1";
				}
				if (poe) {
					FRAMP = "1";
				}
	}
lrv2 = FFlsh + FApQT + FWNMP + FRAMP;
return lrv2;
}
function getWPI(XFBI) {
	//Step P
	XFComp = XFBI.charAt(0);
	XFBrow = XFBI.charAt(1);
	XFVers = XFBI.charAt(2);
	XFPlat = XFBI.charAt(3);
	var FFlsh = "0";
	var FApQT = "0";
	var FWNMP = "0";
	var FRAMP = "0";
	var poa;
	var pob;
	var poc;
	var pod;
	var poe;
	var lrv2;
	if ((XFBrow=="2" || XFComp == "2")) {
		//Start EMBED
	    document.write('<SCRIPT LANGUAGE=VBSCRIPT> \n');
		document.write('on error resume next \n');
		document.write('haveFlash1 = IsObject(CreateObject("SWCtl.SWCtl.1"))\n');
		document.write('haveFlash2 = IsObject(CreateObject("Macromedia.ActiveShockwave.1"))\n');
		document.write('haveFlash3 = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.5"))\n');
		document.write('haveFlash4 = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.6"))\n');
		document.write('haveFlash5 = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.7"))\n');
		document.write('haveFlash6 = IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash.8"))\n');
		document.write('haveQT1 = IsObject(CreateObject("QuickTimeCheckObject.QuickTimeCheck.1"))\n');
		document.write('haveQT2 = IsObject(CreateObject("QuickTime.pic"))\n');
		document.write('haveWM1 = IsObject(CreateObject("MediaPlayer.MediaPlayer.1"))\n');
		document.write('haveWM2 = IsObject(CreateObject("MediaPlayer.MediaPlayer"))\n');
		document.write('haveRM = IsObject(CreateObject("rmocx.RealPlayer G2 Control"))\n');
		document.write('</SCRIPT\> \n');
		if (haveFlash1 || haveFlash2 || haveFlash3 || haveFlash4 || haveFlash5 || haveFlash6) {
			FFlsh = "1";
		}
		 if (haveQT1 || haveQT2) {
			FApQT = "1";
		}
		 if (haveWM1 || haveWM2) {
			FWNMP = "1";
		}
		 if (haveRM) {
			FRAMP = "1";
		}
	}
lrv2 = FFlsh + FApQT + FWNMP + FRAMP;
return lrv2;
}

function getBI() {
	var FComp = "1";
	var FBrow = "0";
	var FVers = "0";
	var FPlat = "0";
	var v30 = navigator.appVersion.indexOf("MSIE");
	var v20 = navigator.appVersion.indexOf("2.0");
	if ((v20 <=4) && (v20>0)) {
		lrv = "0020";
	}
	else {
		var m;
		var f;
		var csv;
		var usv;
		var ACompWin = "WIN";
		var ACompMac = "MAC";
		var ABrowNets = "NETSC";
		var ABrowMSIE = "MICROSOFT";
		var AVers = "3456789";
		var asv = "";
		var dsv = "";
		var bsv = "";
		var fsv = "";
		var csv = navigator.appName.toUpperCase();
		var usv = navigator.appVersion.toUpperCase();
		var lcsv = csv.length - 1;
		var lusv = usv.length - 1;
		// Step CP
		if (usv.indexOf(ACompWin) >=0) {
			FComp = "2";
			if (usv.indexOf("NT") >=0) {
				fsv = usv.substring(usv.indexOf("NT"),usv.length);
				FPlat = "4";
				if (fsv.indexOf("3") >=0) {
					FPlat = "3";
				}
				if (fsv.indexOf("4") >=0) {
					FPlat = "4";
				}
				if (fsv.indexOf("5") >=0) {
					FPlat = "5";
				}
			}	
			else {
				if (usv.indexOf("95") >=0) {
					FPlat = "1";
				}
				if (usv.indexOf("98") >=0) {
					FPlat = "2";
				}
			}
		}
		else {
			if (usv.indexOf(ACompMac) >=0) {
				FComp = "3";
				if (usv.indexOf("68K") >=0) {
					FPlat = "1";
				}
				if (usv.indexOf("PPC") >=0) {
					FPlat = "2";
				}
			}				
			else {
				if (usv.indexOf("UNIX") >=0) {
					FPlat = "6";
				}
				if (usv.indexOf("OS/2") >=0) {
					FPlat = "7";
				}
				if (usv.indexOf("LIN") >=0) {
					FPlat = "8";
				}
				if (usv.indexOf("SCO") >=0) {
					FPlat = "9";
				}
			}
		}
		// Step B
		if (csv.indexOf(ABrowNets) >=0) {
			FBrow = "1";
		}
		else {
			if (csv.indexOf(ABrowMSIE) >=0) {
				FBrow = "2";
			}
		}
		// Step V
		if ((FBrow=="2")) {
			bsv = usv.substring(v30,usv.length);
		}
		else {
			bsv = usv;
		}
		f = false;
		for (m = 0; m<=6; m++) {
			asv = AVers.charAt(m);
			dsv = asv + ".";
			if ((bsv.indexOf(dsv) >=0) && (f==false)) {
				f = true;
				FVers = asv;
			}
		}
	}
	lrv = FComp + FBrow + FVers + FPlat ;
	
	if (lrv.charAt(0)=="2" && lrv.charAt(1)=="2") {
	url1 = getWPI(lrv);
}
else {
	url1 = getOPI(lrv);
}
	
	return url1;
}