function NoVacio(Campo,Mensaje) {
	var Largo=Campo.value.length;
	var i;
	var Cuenta=0;
	if(Largo>4) {
		for (i=0;i<Largo;i++) {
			if (Campo.value.substring(i,i+1)!=' ') {
				Cuenta++;
			}
		}
	}
	Resultado=(Cuenta>3);
	if (!Resultado) alert(Mensaje);
	return Resultado;
}
function EsEMail(Campo,Mensaje) {
	var Resultado=false;
	var i;
	var Largo=Campo.value.length
	if (Largo>5) {
		for (i=0;i<Largo;i++) {
			if (Campo.value.substring(i,i+1)=='@') {
				Resultado=true;
				break;
			}
		}
		if (Resultado) {
			Resultado=false;
			for (i=0;i<Largo;i++) {
				if (Campo.value.substring(i,i+1)=='.') {
					Resultado=true;
					break;
				}
			}
				
		}
	};
	if (Resultado) {
		Resultado=(Campo.value.substring(0,1)!='@' && Campo.value.substring(0,1)!='.' && Campo.value.substring(Largo-1,Largo)!='@' && Campo.value.substring(Largo-1,Largo)!='.');
	}
	if (!Resultado) alert(Mensaje);
	return Resultado;
}