function v_peName(pe_name, alerttxt){
	with(pe_name){
		if(value==""){
			alert(alerttxt);
			return false;
		} else {
			return true;	
		}
	}
}

function v_peDir(pe_dir, alerttxt){
	with(pe_dir){
		if(value==""){
			alert(alerttxt);
			return false;
		} else {
			return true;	
		}
	}
}

function v_peCiud(pe_ciud, alerttxt){
	with(pe_ciud){
		if(value==""){
			alert(alerttxt);
			return false;
		} else {
			return true;	
		}
	}
}

function v_peEdo(pe_edo, alerttxt){
	with(pe_edo){
		if(value==""){
			alert(alerttxt);
			return false;
		} else {
			return true;	
		}
	}
}

function v_peCP(pe_cp, alerttxt){
	with(pe_cp){
		if(value==""){
			alert(alerttxt);
			return false;
		} else {
			return true;	
		}
	}
}

function v_coName(co_name, alerttxt){
	with(co_name){
		if(value==""){
			alert(alerttxt);
			return false;
		} else {
			return true;	
		}
	}
}

function v_coTel(co_tel, alerttxt){
	with(co_tel){
		if(value==""){
			alert(alerttxt);
			return false;
		} else {
			return true;	
		}
	}
}

function v_coMail(co_mail, alerttxt){
	with(pco_mail){
		if(value==""){
			alert(alerttxt);
			return false;
		} else {
			return true;	
		}
	}
}

function v_coMail2(co_mail, alerttxt){
	with(pco_mail){
		if(value!=""){
			apos=value.indexOf("@");
			dotpos=value.lastIndexOf(".");
			if (apos<1||dotpos-apos<2){
				alert(alerttxt);
				return false;
			} else {
				return true;	
			}
		}
	}
}

function v_form(cont_form){
	with(cont_form){
		if(v_peName(pe_name, "El campo de Nombre de la compañía no puede ir vacío.")==false){
		pe_name.focus(); return false;	
		}
		if(v_peDire(pe_dir, "El campo de Dirección no puede ir vacío.")==false){
		pe_dir.focus(); return false;	
		}
		if(v_peCiud(pe_ciud, "El campo de Ciudad no puede ir vacío.")==false){
		pe_ciud.focus(); return false;	
		}
		if(v_peEdo(pe_edo, "El campo de Estado no puede ir vacío.")==false){
		pe_edo.focus(); return false;	
		}
		if(v_peCP(pe_cpe, "El campo de Código Postal no puede ir vacío.")==false){
		pe_cp.focus(); return false;	
		}
		if(v_coName(co_name, "El campo de Nombre del contacto no puede ir vacío.")==false){
		co_name.focus(); return false;	
		}
		if(v_coTel(co_name, "El campo de Teléfono no puede ir vacío.")==false){
		co_tel.focus(); return false;	
		}
		if(v_coMail(co_mail, "El campo de E-mail no puede ir vacío.")==false){
		co_mail.focus(); return false;	
		}
		if(v_coMail2(co_mail, "Dirección de correo no válida.")==false){
		co_mail.focus(); return false;	
		}
	}
}