// Contact form verify 
// Copyright 1998-2004 Western Media Imaging

function validEmail(address) { // return TRUE if valid-safe email address
	var Ref = "0123456789abcdefghijklmnopqrstuvwxyz-_.";
	var RefIP = "0123456789.";
	var testAddress = address.toLowerCase();
	var sep = testAddress.indexOf("@");
	var after = testAddress.substring (sep+2,testAddress.length-1);
	if (sep <= 0)
		return (false);
	if (sep >= testAddress.length-3)
		return(false);
	for (Count=0; Count < sep; Count++){
		TempChar= testAddress.substring (Count, Count+1);
		if (Ref.indexOf (TempChar, 0)==-1){
			return(false);
		}
	}
	if ((testAddress.substring(sep+1,sep+2)=="[") && (testAddress.substring(testAddress.length-1,testAddress.length)=="]")){
		for (Count=sep+2; Count < testAddress.length-1; Count++){
			TempChar= testAddress.substring (Count, Count+1);
			if (RefIP.indexOf (TempChar, 0)==-1){
				return(false);
			}
		}
		if (after.indexOf(".") ==-1)
			return(false);
		return(true);
	}
	for (Count=sep+1; Count < testAddress.length; Count++){
		TempChar= testAddress.substring (Count, Count+1);
		if (Ref.indexOf (TempChar, 0)==-1){
			return(false);
		}
	}
	if (after.indexOf(".") ==-1)
		return(false);
return(true);
}

function vnsForm(form) {
	var mis="";
	if (!validEmail(form.addr.value))
		mis += "   - E-mail address not valid\n";
	if (form.subject.selectedIndex == 0)
		mis += "   - No subject selected\n";
	if (form.msg.value == "")
		mis += "   - No message content\n";
	if (form.msg.value.length >= 501)
		mis += "   - Message too long\n";
	if (mis != ""){
		alert("Your message has the following problem:\n"+mis+"this must be corrected before your message can be sent.");
		return (false);
	}
	form.submit();
	return (false);
}