// Email Validation. Written by PerlScriptsJavaScripts.com

function check_email(e) {
  ok = "1234567890qwertyuiop[]asdfghjklzxcvbnm.@-_QWERTYUIOPASDFGHJKLZXCVBNM";

  for(i=0; i < e.length ;i++){
    if(ok.indexOf(e.charAt(i))<0){ 
	  return (false);
	}	
  } 


  re = /(@.*@)|(\.\.)|(^\.)|(^@)|(@$)|(\.$)|(@\.)/;
  re_two = /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$/;
  erg=!re.test(e)&&re_two.test(e);
  if (!erg) {
	  return false;
  }
	  
  return true;
}

function check_mailform(f) { // f is the form (passed using the this keyword)
  okay=true;
  
  //Absender 
  if (f.absender.value.length < 1) {
  	 alert("Bitte gib deinen Namen an.");
	 f.absender.focus();
	 return false;  
  }
  
  //Email
  if(!check_email(f.emailaddr.value)){
  	 alert("Bitte gib eine gültige Emailadresse an.");
	 f.emailaddr.focus();
	 return false;
  }
  
  //Nachricht
  if (f.nachricht.value.length<1) {
  	 alert("Du hast keine Nachricht eingegeben.");
	 f.nachricht.focus();
	 return false;  
  }
  return okay;
}