function testmail(form) {
	// This script function copyright 1997, Tom Negrino and Dori Smith.
		Ctrl = form.mail
		invalidChars = " /:,;"

		// Null field entry
		if (Ctrl.value == "") {
			validatePrompt (Ctrl, "Empty Email field.  Email is required.")
			return false
		}

		// Invalid charater check
		for (i=0; i<invalidChars.length; i++) {
			badChar = invalidChars.charAt(i)
			if (Ctrl.value.indexOf(badChar,0) != -1) {
			validatePrompt (Ctrl, "Invalid character in Email field.")
				return false
			}
		}

		// Does it contain "@" character?
		atPos = Ctrl.value.indexOf("@",1)
		if (atPos == -1) {
			validatePrompt (Ctrl, "Email must contain an '@' character.")
			return false
		}

		// Does it contain multiple "@" characters?
		if (Ctrl.value.indexOf("@",atPos+1) != -1) {
			validatePrompt (Ctrl, "Email must contain one '@' character.")
			return false
		}

		// Is there a "." after the "@" character?
		periodPos = Ctrl.value.indexOf(".",atPos)
		if (periodPos == -1) {
			validatePrompt (Ctrl, "Invalid Email: No '.' after '@'")
			return false
		}

		// Minumum of two characters after the "@" character?
		if (periodPos+3 > Ctrl.value.length)	{
			validatePrompt (Ctrl, "Invalid Email.  Please check domain name.")
			return false
		}
		return true
	}

	function validatePrompt(Ctrl, PromptStr) {
		alert (PromptStr)
		Ctrl.focus();
		Ctrl.select();
		return;
	}