<!--
var strToDo, timer
var nHassle =0;
var nmaxHassle =1
var cTimeJnr ="h";
var block =false
//***
function checkform(pObj, pInitval){
//CHECKS MINUMUM FIELDS HAVE BEEN COMPLETED
	with (document.myform ){
		if (fldsname.value.length ==0 ){ alert('Surname is required'); fldsname.focus(); return false;}
		var contact =fldemail.value +fldphone.value +fldadr1.value;
		if (contact.length ==0){alert('You must supply some contact details!'); fldemail.focus(); return false;}
		if (fldmessage.value.length ==0){alert('Inquiry message please.'); fldmessage.focus(); return false;}
	}
	return true;
}		//clear
//***
function clr(pObj, pInitval){
//CLEARS TEXT FIELD IF UNCHANGED
	if (pObj.value ==pInitval) {pObj.value =""}
}		//clear
//***
function isNum(pObj){
//checks if numeric
//	if ( pObj.value ==''){warn(pObj,'Empty field not allowed.'); return false;}
	var tempval =Math.round(pObj.value)
	if ( isNaN( tempval)){ fail(pObj, 'Contains non numeric characters.')}
}		//isNu
//***
function isEml(pObj){
//checks if email
	if (pObj.value.length ==0){fail(pObj, "Email blank!"); return false;}
	if(pObj.value.indexOf("@") !="-1" &&
		pObj.value.indexOf(".") !="-1" &&
		pObj.value !="")
	return true;
	else {fail( pObj, 'not a valid email.');}
}		//isEml
//***
function isnNull(pObj){
//checks if email
	if (pObj.value.length ==0){warn(pObj, "Field empty!")}
	return true;
}		//isnNull
//***
function isnnNull(pObj){
//checks if email
	if (pObj.value.length ==0){fail(pObj, "Field empty!")}
	return true;
}		//isnNull
//***
function isPh(pObj){
//checks if Phone
	if ( pObj.value.length ==0){warn(pObj,'Phone number blank!'); return false;}
	
	var strPhone =pObj.value;
	for (var i =0; i<strPhone.length; i++){
		if ( isNaN( parseInt(strPhone.charAt(i))) ){
			switch (strPhone.charAt(i)){
				case "(" : continue;
				case " " : continue;
				case ")" : continue;
				case "-" : continue;
				default :fail(pObj, "Phone contains an invalid phone character : '" +strPhone.charAt(i) +"'") ;return false;
			}
		}
	}
	if ( pObj.value.length <=6){warn(pObj,'Phone only '+ pObj.value.length +' characters??'); return false;}
}		//isPh
//***
function removeZeros(pStr){
	var sNew
	if (pStr.charAt(0) =="0") {sNew =removeZeros( pStr.substring(1)); }
	else { return pStr;}
	return sNew;
}
//***
function fail(pObj, msg){
	if (nHassle <=nmaxHassle) {
		block =true;
		alert('Please correct : \n' + msg);
		nHassle = nHassle +1;
		pObj.focus();
		}
	else {nHassle =0; block =false;}
}
//***
function warn(pObj, msg){
	if (! block){
	alert('Note : ' + msg);
//	pObj.focus();
	}
}
//***
function setDate(){//SETS DATE INTO TEXT BOX
	with (document.frmDate){
	var sDate =seldd.value +"-"+selmm.value +"-"+txtyy.value;	
	}
	eval("frmCoronation." +strDateObj +".value ='" +sDate +"'");
//alert(sDate);
	lyrDate.style.visibility ='hidden';
}		//set date
// -->