// valemail.js
function rtrim(str) {
var i;
var index=str.length-1;
for(i=index;i>=0;i--) {if (str.charAt(i)!=" ") break;}
index=i+1;
return str.substring(0,index);   
}
function ltrim(str) {
var i;
var strlen=str.length;
var tstlen=strlen-1;
for(i=0;i<strlen;i++) {if (str.charAt(i)!=" ") break;}
return str.substring(i,strlen);
}
function validEmailAddr(eFld) {
var eVl=eFld.value;
eVl=rtrim(eVl);
eVl=ltrim(eVl);   
var vEml=true;
var first_at=eVl.indexOf("@");
var last_at=eVl.lastIndexOf("@");
var last_dot=eVl.lastIndexOf(".");
var at_dot=eVl.indexOf("@.");
var dot_at=eVl.indexOf(".@");
var tc;
var temp_val;   
if (eVl=="") {
 alert("You must enter in the e-mail address before submitting.");
 eFld.focus();
 return false;
}   
if (eVl.length<5) vEml=false; 
if (first_at<0) vEml=false;
if (last_dot<0) vEml=false;   
if (at_dot>=0) vEml=false;
if (dot_at>=0) vEml=false;
if (eVl.indexOf("#@")>=0) vEml=false;
if (eVl.indexOf("@#")>=0) vEml=false;
if (eVl.indexOf("&@")>=0) vEml=false;
if (eVl.indexOf("@&")>=0) vEml=false;
if (first_at!=last_at) vEml=false;
if (eVl.length-last_dot>4) {
 var ts=eVl.substring(last_dot+1);
 if (!(ts=="aero"||ts=="coop"||ts=="museum"||ts=="name"||ts=="info"))
  vEml=false;
}
for (i=0;i<eVl.length;i++) {
 tc=eVl.charAt(i);
 if ((tc.toLowerCase()>="a"&&tc.toLowerCase()<="z")||
 (tc >="0"&&tc<="9")||tc =="_"||tc =="."||tc=="@"||tc=="-"||tc=="#"||
  tc=="&") ;
 else {vEml=false;}
}   
   
if (!vEml) {
alert("You must enter in a valid e-mail address.");
eFld.focus(); 
eFld.select();
return false;
}
}