<!--
function pamCheckAllEmpty(arrChk,strError) {
	var blnOk = 0;
	for (var i = 0; i<arrChk.length; i++) {
		if (eval("document.forms[0]." + arrChk[i] + ".value") == "") {
			blnOk = -1;
			break;
		}
	}
	return blnOk;
}

function pamCheckEmail(strEmail) {

	// return either "" if invalid, or the email address all in little letters
	var strReturn = "";

	// check not empty
	var intLen = strEmail.length;
	if (intLen == 0) {
		strReturn = "Blank email address";
	} else {
	
		// check '@ sign
		var intOffA = strEmail.indexOf("@");
		if (intOffA == intLen-1 || intOffA <= 0) {
			strReturn = "Incorrect email address - invalid/missing '@'";
		} else {
			// check full-stop
			var intOffP = strEmail.indexOf(".",intOffA+1);
			if (intOffP == -1 || intOffP == intLen-1) {
				strReturn = "Incorrect email address - '" + strEmail.substring(intOffA+1,intLen) + "' is an invalid domain";
			} else {
				// check ASCII codes 97->122, 48->57, 64 or 95 OR 46
				strEmail = strEmail.toLowerCase();
				for (var i=0; i<intLen; i++) {
					var intAscii = strEmail.charCodeAt(i);
					if (intAscii == 32) {
						strReturn = "Incorrect email address - spaces are not allowed";
					} else {
						if ((intAscii < 48 && intAscii != 45 && intAscii != 46) || (intAscii > 122) || (intAscii > 57 && intAscii < 97 && intAscii != 64 && intAscii != 95)) {
							strReturn = "Incorrect email address - '" + strEmail.charAt(i) + "' is an invalid character";
							break;
						}
					}
				}
			}
		}
	}
	return strReturn;	
}
-->