function checker(subForm,chkForm) {
	tmp1=""
	tmp=chkForm.CrdNum.value
	if (tmp.length!='14') {
	alert("Incorrect length - " +tmp.length+ " - re-enter card number")
	return}
	tmp1=tmp1+tmp.charAt(0)
	tmp1=tmp1+tmp.charAt(1)
	tmp1=tmp1+tmp.charAt(2)
	tmp1=tmp1+tmp.charAt(3)
	tmp1=tmp1+tmp.charAt(4)
  	if (tmp1=="21855") {	//West Hempstead
	window.location="http://www.heritagequestonline.com"
	}
	else {
	alert(tmp+" Not Authorized - Check Your Card Number")
	}
}