/*
	(C) Global Red S.L 	[27 Oct 2000]
	http://www.globalred.com
	info@globalred.com
	Autor: Abraham Pazos
	Validate() V1.0
*/
function Validate (form,Data) { if (Data != ''){
re = /[|]/
Parts = Data.split(re)

var Z='',N,Campo=0,M,P,L,V,E=0,Err,Sel

for(N=0;N<Parts.length;N++){switch(Parts[N].charAt(0)){
case '+': Sel=0;Campo=form[Parts[N].substr(1)]; break
case '*': Sel=1;Campo=form[Parts[N].substr(1)]; break
case '#': Err=Parts[N].substr(1); break
default:
M=Parts[N].substr(0,3);P=Parts[N].substr(3)
L=Campo.value.length;V=Campo.value
switch(M)
{
case 'req': if(L<1) {E=1} break
case 'ln=':	if(L!=P && L){E=1}	break
case 'ln<':	if(L>P) {E=1}	break
case 'ln>':	if(L<P && L) {E=1}	break
case 'num':	re=/^[0-9]*$/g;	if(!re.test(Campo.value)){E=1} break
case 'aph':	re=/^[A-Za-z]*$/g; if(!re.test(V)){E=1}	break
case 'txt':	re=/^[A-Za-z ñÑáÁéÉíÍóÓúÚàÀ]*$/g; if(!re.test(V)){E=1} break
case 'rx=':	if(L){re=new RegExp(P,'g'); if(!re.test(V)){E=1}} break
case 'ch=':	re=new RegExp('^['+P+']*$','g'); if(!re.test(V)){E=1}	break
case 'eml': if(L){re=/^[A-Za-z0-9._\-]+@[A-Za-z0-9._\-]+\.[A-Za-z0-9._\-]+$/g; if(!re.test(V)){E=1}} break
case 'url':	if(L){re=/^http:\/\/[A-Za-z0-9._\-/]+\.[+A-Za-z0-9._\-/]+$/g; if(!re.test(V)){E=1}} break
case 'vl>':	if(L){if(parseInt(V)<=P){E=1}} break
case 'vl<':	if(L){if(parseInt(V)>=P){E=1}} break
case 'fn=': E=eval(P+"('"+V+"')"); break
case 'eq=': if(V!=form[P].value) {E=1} break
case 'tel':
	if(L){
		re=/[^0-9+()]/g; Campo.value=V.replace(re,'')
		if(L<4){E=1}
		if(L==9){Campo.value='('+V.substr(0,3)+')'+V.substr(3,6)}
	}	break
case 'dte':
	if(L){
		var dia=0,mes=0,ano=0
		re=/(\d*)\D*(\d*)\D*(\d*)/g; Z=re.exec(V); dia=parseInt(Z[1]); mes=parseInt(Z[2]); ano=parseInt(Z[3]);
		if(ano<100){ano+=1900}
		if(dia>0&&dia<32&&mes>0&&mes<13&&ano>1880&&ano<2020) {Campo.value=(dia<10?'0':'')+dia+'/'+(mes<10?'0':'')+mes+'/'+ano}
		else{E=1}
	}	break
}

if(E) {alert(Err);if(Sel){Campo.select();}Campo.focus();return false;}

}}
}
return true
}