function emailCheck(emailStr)
{

/* The following variable tells the rest of the function whether or not
to verify that the address ends in a two-letter country or well-known
TLD.  1 means check it, 0 means don't. */

var checkTLD = 1;

/* The following is the list of known TLDs that an e-mail address must end with. */

var knownDomsPat = /^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum)$/;

/* The following pattern is used to check if the entered e-mail address
fits the user@domain format.  It also is used to separate the username
from the domain. */

var emailPat = /^(.+)@(.+)$/;

/* The following string represents the pattern for matching all special
characters.  We don't want to allow special characters in the address. 
These characters include ( ) < > @ , ; : \ " . [ ] */

var specialChars = "\\(\\)><@,;:\\\\\\\"\\.\\[\\]";

/* The following string represents the range of characters allowed in a 
username or domainname.  It really states which chars aren't allowed.*/

var validChars = "\[^\\s" + specialChars + "\]";

/* The following pattern applies if the "user" is a quoted string (in
which case, there are no rules about which characters are allowed
and which aren't; anything goes).  E.g. "jiminy cricket"@disney.com
is a legal e-mail address. */

var quotedUser = "(\"[^\"]*\")";

/* The following pattern applies for domains that are IP addresses,
rather than symbolic names.  E.g. joe@[123.124.233.4] is a legal
e-mail address. NOTE: The square brackets are required. */

var ipDomainPat = /^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/;

/* The following string represents an atom (basically a series of non-special characters.) */

var atom = validChars + '+';

/* The following string represents one word in the typical username.
For example, in john.doe@somewhere.com, john and doe are words.
Basically, a word is either an atom or quoted string. */

var word = "(" + atom + "|" + quotedUser + ")";

// The following pattern describes the structure of the user

var userPat = new RegExp("^" + word + "(\\." + word + ")*$");

/* The following pattern describes the structure of a normal symbolic
domain, as opposed to ipDomainPat, shown above. */

var domainPat = new RegExp("^" + atom + "(\\." + atom +")*$");

/* Finally, let's start trying to figure out if the supplied address is valid. */

/* Begin with the coarse pattern to simply break up user@domain into
different pieces that are easy to analyze. */

var matchArray = emailStr.match(emailPat);

if (matchArray == null)
{
	/* Too many/few @'s or something; basically, this address doesn't
	even fit the general mould of a valid e-mail address. */

	alert("Email address " + emailStr + " seems incorrect (check @ and .'s)");
	return false;
}

var user = matchArray[1];
var domain = matchArray[2];

// Start by checking that only basic ASCII characters are in the strings (0-127).

for (i = 0; i  <user.length; i++)
{
	if (user.charCodeAt(i) > 127)
	{
		alert("Email address " + emailStr + " contains invalid characters.");
		return false;
	}
}

for (i = 0; i < domain.length; i++)
{
	if (domain.charCodeAt(i) > 127)
	{
		alert("Email address " + emailStr + " contains invalid characters.");
		return false;
	}
}

// See if "user" is valid 

if (user.match(userPat) == null)
{
	// user is not valid

	alert("The username in " + emailStr + " doesn't seem to be valid.");
	return false;
}

/* if the e-mail address is at an IP address (as opposed to a symbolic
host name) make sure the IP address is valid. */

var IPArray = domain.match(ipDomainPat);

if (IPArray != null)
{
	// this is an IP address

	for (var i = 1; i <= 4; i++)
	{
		if (IPArray[i] > 255)
		{
			alert("Destination IP address is invalid in " + emailStr + ".");
			return false;
		}
	}
	
	return true;
}

// Domain is symbolic name. Check if it's valid.
 
var atomPat = new RegExp("^" + atom + "$");
var domArr = domain.split(".");
var len = domArr.length;

for (i = 0; i < len; i++)
{
	if (domArr[i].search(atomPat) == -1)
	{
		alert("The domain name does not seem to be valid in " + emailStr + ".");
		return false;
	}
}

/* domain name seems valid, but now make sure that it ends in a
known top-level domain (like com, edu, gov) or a two-letter word,
representing country (uk, nl), and that there's a hostname preceding 
the domain or country. */

if (checkTLD && domArr[domArr.length-1].length != 2 && domArr[domArr.length-1].search(knownDomsPat) == -1)
{
	alert("The address " + emailStr + " must end in a well-known domain or two letter " + "country.");
	return false;
}

// Make sure there's a host name preceding the domain.

if (len < 2)
{
	alert("Email address " + emailStr + " is missing a hostname!");
	return false;
}

// If we've gotten this far, everything's valid!
return true;
}

function trim(varStr) {
	return varStr.replace(/^\s+|\s+$/g,"");
}

function MouseHover(x) {
	if (typeof(x) == "undefined") {
		x = this;
	}
	
	x.oldClassName = x.className;
	x.className = x.className + "Hover";
}

function MouseOffHover(x) {
	if (typeof(x) == "undefined") {
		x = this;
	}
	
	x.className = x.oldClassName;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function dropDownSearchNav()
{
	var sfEls = document.getElementById("nav").getElementsByTagName("LI");
	for (var i=0; i<sfEls.length; i++) {
		sfEls[i].onmouseover=function() {
			this.className+=" sfhover";
		}
		sfEls[i].onmouseout=function() {
			//this.className=this.className.replace(new RegExp(" sfhover\\b"), "");
			this.className=this.className.replace(new RegExp("sfhover"), "");
		}
	}
}


/* Check for elements to attach drop down functions to */
function elementChecker()
{
	/* check for nav navigation */
	if (document.getElementById('nav') != null)
	{
		dropDownSearchNav();
	}

}

function document_onload()
{
    MM_preloadImages();
    elementChecker();
    Nifty("ul#insidemenu a","small transparent all");
    if(document.getElementById("txtLoadMessage") != null && document.getElementById("txtLoadMessage").value.length > 0){
       alert(document.getElementById("txtLoadMessage").value);
       document.getElementById("txtLoadMessage").value = "";
    }
}

function changeParentColor(p) {
	imgsrc = document.getElementById(p).getAttribute("rolloverImage");
	document.getElementById(p).src = imgsrc;
}

function changeParentColorBack(p) {
	imgsrc = document.getElementById(p).getAttribute("normalImage");
	document.getElementById(p).src = imgsrc;
}