function validateForm() {
	lErr=new Array(true);

	lErr=validateEmail(lErr, document.formUnsub.email.value);
	if (lErr[0] == true) {
		return true;
	}
	else {
		error="The following error(s) occurred:\n";
		for (i=1; i < lErr.length; i++) {
			error+="=> " + lErr[i] + "\n";
		}
		alert(error);
		return false;
	}
}


function validateEmail(lErr, addr) {
	var invalidChars = '\/\'\\ ";:?!()[]\{\}^|';

	if (addr == '') {
		lErr[0]=false;
		lErr.push('Email address is mandatory');
		return lErr;
	}
	if (addr.len > 50) {
		lErr[0]=false;
		lErr.push('Email address must be less than 50 characters');
		return lErr;
	}
	for (i=0; i < invalidChars.length; i++) {
		if (addr.indexOf(invalidChars.charAt(i),0) > -1) {
			lErr[0]=false;
			lErr.push('Email address contains invalid characters');
			return lErr;
		}
	}
	for (i=0; i < addr.length; i++) {
		if (addr.charCodeAt(i) > 127) {
			lErr[0]=false;
			lErr.push('Email address contains non-ascii characters');
			return lErr;
		}
	}

	var atPos = addr.indexOf('@', 0);
	if (atPos == -1) {
		lErr[0]=false;
		lErr.push('Email address must contain an @');
		return lErr;
	}
	if (atPos == 0) {
		lErr[0]=false;
		lErr.push('Email address must not start with @');
		return lErr;
	}
	if (addr.indexOf('@', atPos + 1) > - 1) {
		lErr[0]=false;
		lErr.push('Email address must contain only one @');
		return lErr;
	}
	if (addr.indexOf('.', atPos) == -1) {
		lErr[0]=false;
		lErr.push('Email address must contain a period in the domain');
		return lErr;
	}
	if (addr.indexOf('@.', 0) != -1) {
		lErr[0]=false;
		lErr.push('Period must not immediately follow @ in email address');
		return lErr;
	}
	if (addr.indexOf('.@', 0) != -1){
		lErr[0]=false;
		lErr.push('Period must not immediately precede @ in email address');
		return lErr;
	}
	if (addr.indexOf('..', 0) != -1) {
		lErr[0]=false;
		lErr.push('Two periods must not be adjacent in email address');
		return lErr;
	}

	var suffix=addr.substring(addr.lastIndexOf('.') + 1);
	if (suffix.length != 2 && suffix != 'com' && suffix != 'net' && suffix != 'org' && suffix != 'edu' && suffix != 'int' && suffix != 'mil' && suffix != 'gov' & suffix != 'arpa' && suffix != 'biz' && suffix != 'aero' && suffix != 'name' && suffix != 'coop' && suffix != 'info' && suffix != 'pro' && suffix != 'museum') {
		lErr[0]=false;
		lErr.push('Invalid primary domain in email address');
		return lErr;
	}

	return lErr;
}