// Check email.. for @ and . kent modified 7/18/2001 to allow for blanks
function validEmail(theemail,fieldLabel,noBlank,showalert){
	var email = theemail.value;
	invalidChars =" /:,;"
	var errmsg = "";
	var bademail = false;
	atPos = email.indexOf("@", 1)
	periodPos = email.indexOf(".", atPos)
	
    // if email is blank and no blanks 
    if ((email == "")&&(noBlank == true)){
		errmsg = fieldLabel + " cannot be blank.\n";
		if (showalert == true){
			alert(errmsg);
		}
		else{
			return errmsg;
		}
	}
	// if the email is not blank 
	if(email.length){
		for (i=0; i<invalidChars.length; i++){
			badChar = invalidChars.charAt(i)
			if (email.indexOf(badChar,0) > -1){
				bademail = true;
				errmsg = " contains illegal characters\n";
			}
		}
		if (atPos == -1){
			bademail = true;
		}
		if (email.indexOf("@", atPos+1) > -1) {
			bademail = true;
		}
		if (periodPos == -1){
			bademail = true;
		}
		if (periodPos+3 > email.length) {
			bademail = true;
		}
		// if the email is bad
		if (bademail == true){
			errmsg = fieldLabel + " invalid \n";
			if (showalert == true){
				alert(errmsg);
			}
		}
	} // for email.length 
	return errmsg;
}