function jsControlEmail(formulario, campo, mensaje, permitirVacio){var cadenaEntrada = formulario.elements[campo].value;var correcto, k, punto, extension, puntoSiguiente, arroba;var camposLimite6 = new Array (1);var logitudLimite6 = new Array (1);var longitud;var email = "!#$%&^-_~*+-/0123456789<=>?@.QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm";longitud = cadenaEntrada.length;if (!permitirVacio){camposLimite6[0] = campo;logitudLimite6[0] = 6;if (!jsMinimaLongitudVariable(formulario, camposLimite6, logitudLimite6, mensaje))return(false);}else{if (longitud == 0) return true}if (!jsControlCaracteres(formulario, campo, email, mensaje))return(false);if (cadenaEntrada.charAt(0) == '.'){alert(mensaje);formulario.elements[campo].focus();return(false);}k = jsCadenaAlReves(cadenaEntrada);punto = k.indexOf('.',0);extension = punto;if ((punto < 2) || (punto > 4)){alert(mensaje);formulario.elements[campo].focus();return(false);}puntoSiguiente = k.indexOf('.', punto+1);while (puntoSiguiente != -1){if ((puntoSiguiente-punto) < 2){alert(mensaje);formulario.elements[campo].focus();return(false);}else {punto = puntoSiguiente;puntoSiguiente = k.indexOf('.', punto+1);}}posArroba = k.indexOf('@',0);if ((posArroba < 1) || (posArroba == (longitud-1))){alert(mensaje);formulario.elements[campo].focus();return(false);}if (posArroba < (extension + 1)){alert(mensaje);formulario.elements[campo].focus();return(false);}punto = k.indexOf('.',posArroba+1);if (((k.charAt(posArroba +1)) == '.') || ((k.charAt(posArroba-1)) == '.')){alert(mensaje);formulario.elements[campo].focus();return(false);}posArroba = k.indexOf('@',posArroba+1);if (posArroba != -1){alert(mensaje);formulario.elements[campo].focus();return(false);}return(true)}