function isEmail (s)
{
    if (isWhitespace(s)) return false;

    var i = 1;
    var sLength = s.length;

    while ((i < sLength) && (s.charAt(i) != "@"))
    { i++
    }

   if ((i >= sLength) || (s.charAt(i) != "@"))  return false;
    else i += 2;

    while ((i < sLength) && (s.charAt(i) != "."))
    { i++
    }

    if ((i >= sLength - 1) || (s.charAt(i) != ".")) return false;
    else return true;
}
var dataOK=false



function numeric_check(p_val){
		var parm1 = p_val;
		for(i=0; i<parm1.length; i++){
			if (parm1.substring(i, i+1)<"0" || parm1.substring(i, i+1)>"9"){
				return false;
			}
		}
		return true;
	}

function isEmpty(s)
{   return ((s == null) || (s.length == 0))
}
function isWhitespace (s)

{   var i;
     var whitespace = " \t\n\r";
    if (isEmpty(s)) {return true;}
    for (i = 0; i < s.length; i++)
    {
        var c = s.charAt(i);
        // si el caracter en que estoy no aparece en whitespace,
        // entonces retornar falso
        if (whitespace.indexOf(c) == -1) return false;
    }
    return true;
}

var dataOK=false

function test()
{

	  if (document.forma.nomape.value.length == 0)
	  {
		alert("Llene el valor del campo: Nombres y Apellidos");
		document.forma.nomape.focus();
		return;
	  }
	  if (document.forma.dd.value.length == 0)
	  {
		alert("Llene el valor del campo: Dia");
		document.forma.dd.focus();
		return;
	  }
	  if (document.forma.mm.value.length == 0)
	  {
		alert("Llene el valor del campo: Mes");
		document.forma.mm.focus();
		return;
	  }
	  if (document.forma.yyyy.value.length == 0)
	  {
		alert("Llene el valor del campo: Año");
		document.forma.yyyy.focus();
		return;
	  }
	  if (document.forma.tfijo.value.length == 0)
	  {
		alert("Llene el valor del campo: Teléfono fijo");
		document.forma.tfijo.focus();
		return;
	  }
	  if (document.forma.tcelular.value.length == 0)
	  {
		alert("Llene el valor del campo: Teléfono celular");
		document.forma.tcelular.focus();
		return;
	  }
	  if (document.forma.email.value.length == 0)
	  {
		alert("Llene el valor del campo: Email");
		document.forma.email.focus();
		return;
	  }

	   //Verificamos direccion de correo
     if  (  ((document.forma.email.value != '') || (document.forma.email.length > 0 ))   )
     { //alert("Verifica direccion e_mail")
     mail=document.forma.email.value
     variable=isWhitespace(mail);
     if (variable  == false)
     { variable=isEmail(mail);
             if (variable == false)
             { alert("Debe ingresar una dirección de correo válida ")
             document.forma.email.focus();
             return;      }

     }

     }
	document.forma.submit();
}


function limpiar()
{
	document.forma.reset();
}