function DoError(theError, theObject)
{ alert("Please "+theError); theObject.focus(); };

function DoErrorT(theError, theObject)
{ DoError(theError, theObject); theObject.select(); };

function echeck(str)
{
	var at="@"
	var dot="."
	var lat=str.indexOf(at)
	var lstr=str.length
	var ldot=str.indexOf(dot)
	if (str.indexOf(at)==-1)
		{ return false }
	if (str.indexOf(at)==-1 || str.indexOf(at)==0 || str.indexOf(at)==lstr)
		{ return false }
	if (str.indexOf(dot)==-1 || str.indexOf(dot)==0 || str.indexOf(dot)==lstr)
		{ return false }
	if (str.indexOf(at,(lat+1))!=-1)
		{ return false }
	if (str.substring(lat-1,lat)==dot || str.substring(lat+1,lat+2)==dot)
		{ return false }
	if (str.indexOf(dot,(lat+2))==-1)
		{ return false }
	if (str.indexOf(" ")!=-1)
		{ return false }
	return true;
};

function emailCheck (emailStr)
{
	var checkTLD=1;
	var knownDomsPat=/^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum)$/;
	var emailPat=/^(.+)@(.+)$/;
	var specialChars="\\(\\)><@,;:\\\\\\\"\\.\\[\\]";
	var validChars="\[^\\s" + specialChars + "\]";
	var quotedUser="(\"[^\"]*\")";
	var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/;
	var atom=validChars + '+';
	var word="(" + atom + "|" + quotedUser + ")";
	var userPat=new RegExp("^" + word + "(\\." + word + ")*$");
	var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$");
	var matchArray=emailStr.match(emailPat);
	if (matchArray==null)
		{ return false; }
	var user=matchArray[1];
	var domain=matchArray[2];
	if (emailStr == "ina") return true;
	for (i=0; i<user.length; i++)
	{
		if (user.charCodeAt(i)>127)
			{ return false; }
	}
	for (i=0; i<domain.length; i++)
	{
		if (domain.charCodeAt(i)>127)
			{ return false; }
	}
	if (user.match(userPat)==null)
		{ return false; }
	var IPArray=domain.match(ipDomainPat);
	if (IPArray!=null)
	{
		for (var i=1;i<=4;i++)
		{
			if (IPArray[i]>255)
				{ return false; }
		}
		return true;
	}
	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)
			{ return false; }
	}
	if (checkTLD && domArr[domArr.length-1].length!=2
		&& domArr[domArr.length-1].search(knownDomsPat)==-1)
		{ return false; }
	if (len<2)
		{ return false; }
	return true;
};

function ValidateFormData(form)
{
	if (!emailCheck (form.f_email.value))
	{
		DoErrorT("make sure the email address is correct.", form.f_email);
		return false;
	}
	form.submit;
};