function verify() {
var themessage = "Los siguientes campos tuvieron errores:\n";
if (document.forma.nombre.value.length<3){
themessage = themessage + "El Nombre tiene menos de 3 caracteres\n";
}
if (document.forma.apellido.value.length<3) {
themessage = themessage + "El Apellido tiene menos de 3 caracteres\n";
}
if (document.forma.ciudad.value.length<3) {
themessage = themessage + "La Ciudad tiene menos de 3 caracteres\n";
}
var mensajemail=emailCheck (document.forma.email.value);
if (mensajemail.length>3) {
themessage = themessage + mensajemail+"\n";
}

if (document.forma.comentarios.value.length<5) {
themessage = themessage + "No ha colocado ningun mensaje\n";
}
//alert if fields are empty and cancel form submit
if (themessage == "Los siguientes campos tuvieron errores:\n") {
document.forma.submit();
}
else {
alert(themessage);
return false;
   }
}

function emailCheck (emailStr) {

var emailPat=/^(.+)@(.+)$/
var specialChars="\\(\\)<>@,;:\\\\\\\"\\.\\[\\]"
var validChars="\[^\\s" + specialChars + "\]"
var quotedUser="(\"[^\"]*\")"
var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/
var atom=validChars + '+'
var word="(" + atom + "|" + quotedUser + ")"
var userPat=new RegExp("^" + word + "(\\." + word + ")*$")
var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$")


var matchArray=emailStr.match(emailPat)
if (matchArray==null) {
	return "La direccion de e-mail parece incorrecta, (revisar @ y los puntos)"
}
var user=matchArray[1]
var domain=matchArray[2]

if (user.match(userPat)==null) {
    // user is not valid
    return "El nombre del Usuario no parece valido, favor revisar."
}

var IPArray=domain.match(ipDomainPat)
if (IPArray!=null) {
	  for (var i=1;i<=4;i++) {
	    if (IPArray[i]>255) {
			return "El IP no parece ser valido, favor revisar!"
	    }
    }
    return "si"
}

// Domain is symbolic name
var domainArray=domain.match(domainPat)
if (domainArray==null) {
    return "El nombre del Dominio no parece ser valido, favor revisar."
}

var atomPat=new RegExp(atom,"g")
var domArr=domain.match(atomPat)
var len=domArr.length
if (domArr[domArr.length-1].length<2 || 
    domArr[domArr.length-1].length>3) {
   // the address must end in a two letter or three letter word.
   return "La direccion debe terminar en un Dominio de 3 letras o en 2 letras de Pais."
}

if (len<2) {
   return "A esta Direccion le hace falta el nombre del Servidor!"
}

return "si";
}
//  End -->