function sel(){l.focus();l.select();return false;}
function chk(){
if(n.value.length<2){alert('Please enter a contact name!');return false;}
else if(!emailCheck(e.value)){alert('Your email format appears to be wrong!');return false;}
else if(t.value.length<10){alert('Please enter a longer title of your web site!');return false;}
else if(w.value.indexOf('http://')==-1){alert('Please include http:// at the beginning of your website address!');return false;}    
else if(d.value.length<30){alert('Please enter a longer description of your web site!');return false;}
else if(r.value.indexOf('http://')==-1){alert('Please include http:// at the beginning of your reciprocal link!');return false;}
l.value='';return true;   
}
function checkEmail(s){if(emailCheck(s.value)) return true;else return false;}
function emailCheck(emailStr){
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){alert("Email address seems incorrect (check @ and .'s)");return false;}
if (matchArray[1].match(userPat)==null){alert("The username of the email address doesn't seem to be valid.");return false;}
var IPArray=matchArray[2].match(ipDomainPat)
if (IPArray!=null){for (var i=1;i<=4;i++){if (IPArray[i]>255){alert("Destination IP address is invalid!");return false;}}
return true
}
if(domainArray=matchArray[2].match(domainPat)==null){alert("The domain name doesn't seem to be valid.");return false;}
var atomPat=new RegExp(atom,"g");var domArr=matchArray[2].match(atomPat);var len=domArr.length;
if (domArr[domArr.length-1].length<2 || domArr[domArr.length-1].length>4){alert("The email address must end in a three/four-letter domain, or two letter country.");return false;}
if (len<2){alert("This address is missing a hostname!");return false;}
return true;
}