// **************************************************
function ie_browser() {
	var n = (navigator.appName == "Netscape")
	var n4 = (document.layers) ? 1:0
	var ie = (navigator.appName == "Microsoft Internet Explorer")
	var ie4 = (document.all) ? 1:0
	var browserName = navigator.appName;
	var browserVer = parseInt(navigator.appVersion);

	return(ie);
}

// **************************************************
function show_age(str) {

	ie = ie_browser();
        bday = new Date(str);
	tday=new Date();

	by=bday.getYear();
	ty=tday.getYear();
	diff=ty-by;

	bm=bday.getMonth()+1;
	tm=tday.getMonth()+1;
	if(tm < bm) {
		diff--;
	} else if(tm == bm) {
		bd=bday.getDate();
		td=tday.getDate();
		if(td < bd) {
			diff--;
		}
	}

	if(ie) {
		diff = diff - 1900;
	}
	document.write(diff);
}

// **************************************************************************
function SetCookie (name,value,expires,path,domain,secure) {
  document.cookie = name + "=" + escape (value) +
    ((expires) ? "; expires=" + expires.toGMTString() : "") +
    ((path) ? "; path=" + path : "") +
    ((domain) ? "; domain=" + domain : "") +
    ((secure) ? "; secure" : "");
}

// **************************************************************************
function getCookieVal (offset) {
  var endstr = document.cookie.indexOf (";", offset);
  if (endstr == -1)
    endstr = document.cookie.length;
  return unescape(document.cookie.substring(offset, endstr));
}

// **************************************************************************
function GetCookie (name) {
  var arg = name + "=";
  var alen = arg.length;
  var clen = document.cookie.length;
  var i = 0;
  while (i < clen) {
    var j = i + alen;
    if (document.cookie.substring(i, j) == arg)
      return getCookieVal (j);
    i = document.cookie.indexOf(" ", i) + 1;
    if (i == 0) break; 
  }
  return null;
}

// **************************************************************************
function reportit(str) {
	SetCookie ("url_torn", "MISC_.");
	SetCookie ("site_torn", str);
	window.open("RPT_THIS.HTM", "misc");
}

var ms;
var ie4;
// **************************************************
function set_vars() {
	ms = navigator.appVersion.indexOf("MSIE")
	ie4 = (ms>0) && (parseInt(navigator.appVersion.substring(ms+5, ms+6)) >= 4)
}

// **************************************************
function show_pagemenu(link, string) {
	var str = "";

	str += '<TR><TD ALIGN=CENTER>';
	str += '<A HREF=' + link + " target=_top ";
	if(ie4) {
		str += 'style="text-decoration: none" ';
		str += 'dynamicanimation="fpAnimformatRolloverFP1" ';
		str += 'fprolloverstyle="';
		str += 'font-family: Comic Sans MS; ';
		str += 'font-size: 16pt; ';
		str += 'font-style: none; ';
		str += 'font-weight: bold';
		// str += '" ';
		str += '" onmouseover="rollIn(this)" ';
		str += 'onmouseout="rollOut(this)" ';
		str += 'language="Javascript1.2"';
	}
	str += '><div id=pagemenutext>' + string + '<div></A>';
	str += '</td></tr>';
// alert(str);

	document.write(str);
}

// **************************************************
function show_mainmenu(link, string) {
	var str = "";

	str += '<A HREF=' + link + " target=xsenmain ";
	if(ie4) {
		str += 'style="text-decoration: none" ';
		str += 'dynamicanimation="fpAnimformatRolloverFP1" ';
		str += 'fprolloverstyle="';
		str += 'font-style: none; ';
		str += 'font-family: Comic Sans MS; ';
		str += 'font-size: 12pt; ';
		str += 'font-weight: bold; ';
		// str += '" ';
		str += '" onmouseover="rollIn(this)" ';
		str += 'onmouseout="rollOut(this)" ';
		str += 'language="Javascript1.2"';
	}
	str += '><div id=mainmenutext>' + string + '<div></A><BR>';
// alert(str);

	document.write(str);
}

var NumInList;
var URL;
var Text;
var num;
// **************************************************
function init_list(n) {
	NumInList = n;
	num = 0;
	URL = new Array(NumInList);
	Text = new Array(NumInList);
}

// **************************************************
function load_list(link, string) {
	URL[num] = link;
	Text[num] = string;
	num++;
// alert("num = " + num + " | " + "URL[num] = " + URL[num] + " | " + "Text[num] = " + Text[num] + " | ");
}

// **************************************************
function display_list(NumColumns, NumInColumn, CSSTag) {
	var str = "";


	str += "<table cellspacing=5 cellpadding=5 border=0>";
	str += '<TR><TD VALIGN=TOP ALIGN=left>';

	for(i = 0; i < NumInList; i++) {

	if( ( i > 0) && (( i % NumInColumn ) == 0) ) {
		str += '</TD>';
		str += '<TD VALIGN=TOP ALIGN=left>';
	}
	str += '<A HREF=' + URL[i] + " target=_blank ";
	str += '><div id=' + CSSTag + '>' + Text[i] + '<div></A>';
// alert(str);
	}
	str += '</TD></TR>';
	str += "</table>";

	document.write(str);
}