var da = (document.all) ? 1 : 0;
var pr = (window.print) ? 1 : 0;
var mac = (navigator.userAgent.indexOf("Mac") != -1);
function printit() {
 if (pr) 
    window.print()
  else if (da && !mac) 
    vbPrintPage()
  else 
    alert('Sorry, your browser does not support this feature. Please print using the menu on your browser.');
}
if (da && !pr && !mac) with (document) {
  writeln('<OBJECT ID="WB" WIDTH="0" HEIGHT="0" CLASSID="clsid:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>');
  writeln('<' + 'SCRIPT LANGUAGE="VBScript">');
  writeln('Sub window_onunload');
  writeln('  On Error Resume Next');
  writeln('  Set WB = nothing');
  writeln('End Sub');
  writeln('Sub vbPrintPage');
  writeln(' OLECMDID_PRINT = 6');
  writeln(' OLECMDEXECOPT_DONTPROMPTUSER = 2');
  writeln(' OLECMDEXECOPT_PROMPTUSER = 1');
  writeln(' On Error Resume Next');
  writeln(' WB.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER');
  writeln('End Sub');
  writeln('<' + '/SCRIPT>');
}

//*****PLace Focus Advanced Search 3rd form*****
function placeFocus() {
if (document.forms.length > 0) {
var field = document.forms[2];
for (i = 0; i < field.length; i++) {
if ((field.elements[i].type == "text") || (field.elements[i].type == "textarea") || (field.elements[i].type.toString().charAt(0) == "s")) {
document.forms[2].elements[i].focus();
break;
         }
      }
   }
}

//*****current page*****
function extractPageName(hrefString)
{
	var hrefString = hrefString.split('#');
	var hrefString = hrefString[0].split('?');
	var arr = hrefString[0].split('/');
	return  (arr.length<2) ? hrefString : arr[arr.length-2].toLowerCase() + arr[arr.length-1].toLowerCase();               
}

function setActiveMenu(arr, crtPage)
{
	for (var i=0; i<arr.length; i++)
	{
		if(extractPageName(arr[i].href) == crtPage)
		{
			if (arr[i].parentNode.tagName != "DIV")
			{
				arr[i].className = "current";
				arr[i].parentNode.className = "current";
			}
		}
	}
}

function setPage(mnuname)
{
	hrefString = document.location.href ? document.location.href : document.location;

	if (document.getElementById("nav")!=null)
		setActiveMenu(document.getElementById("nav").getElementsByTagName("a"), extractPageName(hrefString));
}



function anchorChange(id){
location="#"+id;
}

function setColor(el, bg, Ftxt) {
	if (el.style) {
		el.style.backgroundColor = bg;
		el.style.color = Ftxt;
}}

function orgStyle(org){
	if(org.style){
		org.style.backgroundColor="#FFFFFF";
		org.style.color="#043717";
		org.style.borderColor="#FFFFFF #FFFFFF #003300 #FFFFFF";
}}

function checkAll() {	
	var bgBad = "#FDEEB0";
	var txtBad = "#580005";
	
//*****begin email check*****
	txt=self.document.forms[0].email.value;
	if (txt == "") {
		alert("Please enter your e-mail address");
		self.document.forms[0].email.focus();
        return (false);
	} 
	var badchars="<> ;,'!#$%^&*()+=/\\?";
	for (var i=0; i < txt.length; i++) {
		temp = "" +txt.substring(i, i+1);
		if (badchars.indexOf(temp) != -1) {
			alert("Your e-mail address contains illegal characters.\n\n\tPlease try again.");
			setColor(self.document.forms[0].email,bgBad,txtBad);
			self.document.forms[0].email.focus();
        	return (false);
		}
	}
	var arr;
	arr = txt.split('@');
		
	if (arr.length != 2) {
		alert("Your e-mail address must contain a single \"@\" sign.\n\n\tPlease try again.");
		setColor(self.document.forms[0].email,bgBad,txtBad);
		self.document.forms[0].email.focus();
        return (false);
	}
	if ((arr[0] == "") || (arr[1] == "")) {
		alert("Your e-mail address is incomplete.\n\n\tPlease try again.");
		setColor(self.document.forms[0].email,bgBad,txtBad);
		self.document.forms[0].email.focus();
        return (false);
	}
	if ((arr[1].charAt(0) == '.') || (arr[1].charAt(arr[1].length-1) == '.')) {
		alert("Your e-mail address is incomplete (i.e. no \"yourwebaddress\" before the dot).\n\n\tPlease try again.");
		setColor(self.document.forms[0].email,bgBad,txtBad);
		self.document.forms[0].email.focus();
        return (false);
	}	
	if ((arr[0].charAt(0) == '.') || (arr[0].charAt(arr[0].length-1) == '.')) {
		alert("Your e-mail address is incomplete (i.e. no \"com\" after the dot).\n\n\tPlease try again.");
		setColor(self.document.forms[0].email,bgBad,txtBad);
		self.document.forms[0].email.focus();
        return (false);
	}					
	if ((arr[1].indexOf('.') > arr[1].length-3) || (arr[1].indexOf('.') == -1)) {
		alert("Your e-mail address must contain an internet domain (i.e. \"yourwebaddress.com\").\n\n\tPlease try again.");
		setColor(self.document.forms[0].email,bgBad,txtBad);
		self.document.forms[0].email.focus();
        return (false);
	}
	if (txt.indexOf("..") > 0) {
		alert("You have entered an e-mail address containing two (2) dots in a row.\n\n\tPlease try again.");
		setColor(self.document.forms[0].email,bgBad,txtBad);
		self.document.forms[0].email.focus();
        return (false);
	}
	var tld;
	tld = arr[1].substring(arr[1].lastIndexOf('.'));
	
	if ((tld.length != 3) && (tld != '.com') && (tld != '.edu') && (tld != '.gov') && (tld != '.int') && (tld != '.mil') && (tld != '.org') && (tld != '.net') && (tld != '.info') && (tld != '.biz') && (tld != '.coop') && (tld != '.aero') && (tld !='.arpa') && (tld != '.museum') && (tld != '.name') && (tld != '.pro') && (tld != '.nato') && (tld != '.nom') && (tld != '.firm') && (tld != '.store') && (tld != '.web') && (tld != '.COM') && (tld != '.EDU') && (tld != '.GOV') && (tld != '.INT') && (tld != '.MIL') && (tld != '.ORG') && (tld != '.NET') && (tld != '.INFO') && (tld != '.BIZ') && (tld != '.COOP') && (tld != '.AERO') && (tld !='.ARPA') && (tld != '.MUSEUM') && (tld != '.NAME') && (tld != '.PRO') && (tld != '.NATO') && (tld != '.NOM') && (tld != '.FIRM') && (tld != '.STORE') && (tld != '.WEB')) {
		alert("You have entered an incorrect domain or country code.\n\n\tPlease try again.");
		setColor(self.document.forms[0].email,bgBad,txtBad);


		self.document.forms[0].email.focus();
        return (false);
	}
//*****end email check*****

    return (true);
}
