function CheckEMail (email) {
	if (email.length>=5) {
		emaOK=true;
		amp=0;
		per=0;
		for (i=1;i<email.length-1;++i) {
			if (email.charAt(i)=="@") {amp=i;}
			if (email.charAt(i)==".") {per=i;}	
		}
		if (amp==0 || per==0 || per<amp) {emaOK=false;}
	} else {
		emaOK=false;
	}
	return emaOK;
}

function CheckZip (zip) {
	if (zip.length<5) {return false;}
	nc=0;
	for (i=0;i<zip.length;++i) {
		if (isNaN(zip.charAt(i))==false&&zip.charAt(i)!=" ") {
			nc=nc+1;
		}
	}
	if (nc==5||nc==9) {
		return true;
	} else {
		return false;
	}
}

function CheckCanZip (zip) {
	if (zip.length==0) {return false;}
    nc=0;
	letswitch=true;
	for (i=0;i<zip.length;++i) {
		if ((zip.charAt(i)>="0"&&zip.charAt(i)<="9")||(zip.charAt(i)>="a"&&zip.charAt(i)<="z")||(zip.charAt(i)>="A"&&zip.charAt(i)<="Z")) {
			if (!isNaN(zip.charAt(i))&&letswitch==true) {
				return false;
			} else if (isNaN(zip.charAt(i))&&letswitch==false) {
				return false;
			}
			nc=nc+1;
			letswitch=!letswitch;
		}		
	}
	if (nc==6) {
		return true;			
	} else {
		return false;
	}
}

function CheckPhone (phone) {
    if (phone.length<10) {return false;}
	nc=0;
	for (i=0;i<phone.length;++i) {
		if (isNaN(phone.charAt(i))==false&&phone.charAt(i)!=" ") {
			nc=nc+1;
		}
	}
	if (nc==10) {
		return true;
	} else {
		return false;
	}
}

function CheckNumber (num) {
    if (num.length==0) {return false;}
    if (isNaN(num)==true) {return false;}
    if (num.match(/ /g)!=null) {return false;}
    if (num<0) {return false;}
    if (num!=Math.round(num)) {return false;}
    return true;
}

function CheckFloat (num) {
    if (num.length==0) {return false;}
    if (isNaN(num)==true) {return false;}
    if (num.match(/ /g)!=null) {return false;}
    if (num<0) {return false;}
    return true;
}

function CheckCCNumber(cctyp, ccnum) {
    if (ccnum.length<13) {return false;}
    ccnumok=false;
    nc=0;
    for (i=0;i<ccnum.length;i++) {
		if (isNaN(ccnum.charAt(i))==false&&ccnum.charAt(i)!=" ") {
			nc=nc+1;
		}
	}
	switch(cctyp) {
	    case "V":
	            if (nc==13||nc==16) {ccnumok=true;}
	        break;
	    case "M":
	            if (nc==16) {ccnumok=true;}
	        break;
	    case "A":
	            if (nc==15) {ccnumok=true;}
	        break;
	    case "D":
	            if (nc==16) {ccnumok=true;}
	        break;
	}
    return ccnumok;
}

function CheckCCSecCode(cctyp, cccode) {
    if (cccode.length<3) {return false;}
    cccodeok=false;
    nc=0;
	for (i=0;i<cccode.length;i++) {
		if (isNaN(cccode.charAt(i))==false&&cccode.charAt(i)!=" ") {
			nc=nc+1;
		}
	}
	if (cccode.length!=nc) {return false;}
	switch(cctyp) {
	    case "V":
	            if (nc==3) {cccodeok=true;}
	        break;
	    case "M":
	            if (nc==3) {cccodeok=true;}	            
	        break;
	    case "A":
	            if (nc==4) {cccodeok=true;}
	        break;
	    case "D":
	            if (nc==3) {cccodeok=true;}
	        break;
	}
    return cccodeok;
}

function GlobalValidator(frm) {
	for (i=0;i<frm.elements.length;++i) {
		ctlname=frm.elements[i].name;		
		pfx=ctlname.substring(0,3);
		if (pfx=="txt") {
			v=frm.elements[i].value;
			re=/'/g;
			v=v.replace(re,"´");
			re=/&/g;
			v=v.replace(re,"and");
			re=/\\/g;
			v=v.replace(re,"-");
			frm.elements[i].value=v;
		}
		if (pfx=="htm") {
			v=frm.elements[i].value;
			re=/'/g;
			v=v.replace(re,"â");
			re=/&/g;
			v=v.replace(re,"ã");
			re=/\\/g;
			v=v.replace(re,"ä");
			frm.elements[i].value=v;
		}
	}
}