function validar_form(frm)
{
var rchecked = false; 
for (c=0; c<frm.tipo_cliente.length; c++)
	if (frm.tipo_cliente[c].checked)
		rchecked = true; 


if (frm.nempresa.value=="")
	return frm_error("un Nombre de empresa",frm.nempresa);

if (frm.pcontacto.value=="")
	return frm_error("una Persona de contacto",frm.pcontacto);

if (frm.pweb.value=="")
	return frm_error("una Página web",frm.pweb);

if (frm.econtacto.value=="")
	return frm_error("un Email de contacto",frm.econtacto);

if (!validEmail(frm.econtacto,"email",true))
	return false;

if (frm.vemails.selectedIndex<=0)
	return frm_error("una cantidad de emails");

if (frm.mensaje.value=="")
	return frm_error("un mensaje dando detalles adicionales",frm.mensaje);

return true;
}

function frm_error(txt,frm_fld)
{
alert("Debe introducir "+txt+" válido.");

if (frm_fld)
	frm_fld.focus();

return false;
}

function validEmail(formField,fieldLabel)
{
	var result = true;
	
	if (result && ((formField.value.length < 3) || !isEmailAddr(formField.value)) )
	{
		alert("La dirección de email no es correcta. Debe de ser del tipo: usuario@dominio.com");
		formField.focus();
		result = false;
	}
   
  return result;

}

function isEmailAddr(email)
{
  var result = false;
  var theStr = new String(email);
  var index = theStr.indexOf("@");
  if (index > 0)
  {
    var pindex = theStr.indexOf(".",index);
    if ((pindex > index+1) && (theStr.length > pindex+1))
	result = true;
  }
  return result;
}