// Statistik-File
// (c) 2002 Ing. Christian Groesswang
// Version 30.05.2003, wt

// parameter abfragen
var lScreen=screen.width+'x'+screen.height+'x'+screen.colorDepth;
var lHost=location.host;
var lPage=location.pathname;
var lParams=escape(location.search);
var lReferrer=escape(document.referrer);
var lScript='stat.php';

if (window.name!='')
{
	lReferrer=escape(top.document.referrer);
}

// Hilfsfunctionen
function FlashInstalled()
{
	result = 0;

	if (navigator.mimeTypes && navigator.mimeTypes["application/x-shockwave-flash"])
	{
		if (navigator.mimeTypes["application/x-shockwave-flash"].enabledPlugin)
		{
			result=1;
		}
		else
		{
			result=0;
		}
	}
	else if (document.all && (navigator.appVersion.indexOf("Mac")==-1))
	{
		// IE Windows only -- check for ActiveX control, have to hide code in eval from Netscape (doesn't like try)
		eval ('try {var xObj = new ActiveXObject("ShockwaveFlash.ShockwaveFlash");if (xObj)	result = 1; xObj = null;	} catch (e)	{}');
	}
	return result;
}

function writeStat(pCode, pSubCode)
{
	//Timestamp für Browsercache
	var oTime = new Date();
	timestamp = oTime.getTime();
	
	if (!pSubCode) pSubCode=''
	// img-Tag fuer Auswertung schreiben
	var lOptions = "js=1&client="+pCode+"&sub="+pSubCode+"&scr="+lScreen+"&host="+lHost+"&page="+lPage+"&from="+lReferrer+"&flash="+FlashInstalled()+"&params="+lParams+"&ts="+timestamp;
	var lImg = '<img src="'+lScript+'?' + lOptions + '" width="0" height="0">';
	//alert(lImg);
	document.write(lImg);
}
//http://www.seat.at/stat.php&js=1&client=wteufl&sub=tester&scr=1024x768x32&host=www.x.at&page=/mySQL/php_stat/aufruf.htm&from=www.a.at&flash=1&params=

function showStat()
{
	// Ergebnis der Auswertung anzeigen
	document.writeln('Aufloesung:'+lScreen+'<br>');
	document.writeln('Host:'+lHost+'<br>');
	document.writeln('Page:'+lPage+'<br>');
	document.writeln('Params:'+lParams+'<br>');
	document.writeln('Referrer:'+lReferrer+'<br>');
	document.writeln('Flash:'+FlashInstalled()+'<br>');

	document.writeln(''+'<br>');
}