function correoCheck (correoStr) {

var checkTLD=1;
var knownDomsPat=/^(com|net|org|edu|int|mil|gov|arpa|biz|aero|name|coop|info|pro|museum)$/;
var correoPat=/^(.+)@(.+)$/;
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=correoStr.match(correoPat);

if (matchArray==null) {
alert("Parece que escribió incorrectamente su correo, cheque si no falta el nombre del usuario, la @ o igual si no hay espacios dentro del domicilio.");
return false;
}
var user=matchArray[1];
var domain=matchArray[2];

for (i=0; i<user.length; i++) {
if (user.charCodeAt(i)>127) {
alert("El nombre del usuario contiene caracteres inválidos.");
return false;
   }
}
for (i=0; i<domain.length; i++) {
if (domain.charCodeAt(i)>127) {
alert("El nombre de dominio contiene caracteres inválidos.");
return false;
   }
}

// See if "user" is valid 

if (user.match(userPat)==null) {

// user is not valid

alert("El nombre del usuario parece no ser válido, cheque su escritura o si no hay algún espacio entre caracteres.");
return false;
}


var IPArray=domain.match(ipDomainPat);
if (IPArray!=null) {

for (var i=1;i<=4;i++) {
if (IPArray[i]>255) {
alert("¡El domicilio de la IP de destino es inválido!");
return false;
   }
}
return true;
}
 
var atomPat=new RegExp("^" + atom + "$");
var domArr=domain.split(".");
var len=domArr.length;
for (i=0;i<len;i++) {
if (domArr[i].search(atomPat)==-1) {
alert("El Nombre del Dominio no parece ser válido, cheque su escritura o si no hay algún espacio entre caracteres.");
return false;
   }
}


if (checkTLD && domArr[domArr.length-1].length!=2 && 
domArr[domArr.length-1].search(knownDomsPat)==-1) {
alert("La dirección debe terminar con las tres letras de un dominicio conocido (com, net, edu, etc.) o con las dos letras del país (mx, cl, ar, etc.).");
return false;
}


if (len<2) {
alert("¡En esta dirección está faltando el hostname!");
return false;
}

return true;
}

document.writeln('<form action="http://www.tlahui.com/correo/mensajero/insert.php" method="post" name="correoform" onSubmit="return correoCheck(this.correo.value)"><table class="MsoTableGrid" border="1" cellspacing="0" cellpadding="0" style="border-collapse: collapse; border: medium none; background: white"><tr style="height: 192.35pt"><td width="343" valign="top" style="width: 257.4pt; height: 192.35pt; border: 1.0pt solid #99CCFF; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm"><center><span lang="ES-MX"><a href="http://www.tlahui.com/"><img src="http://www.tlahui.com/tlahui2/tlahui3/tlahui4/images/mensajerom.gif" border="0" hspace="6" vspace="6" width="191" height="28" alt="Revista Tlahui"></a></span></center><div align="center"><table class="MsoTableGrid" border="1" cellspacing="0" cellpadding="0" style="border-collapse: collapse; border: medium none"><tr><td width="328" colspan="2" valign="top" style="width: 245.85pt; border: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #CC3300"><p class="MsoNormal" align="center" style="text-align:center"><b><span lang="ES-MX" style="font-size:11.0pt;    font-family:Arial;color:white"><a href="http://www.tlahui.com/" style="color: blue; text-decoration: underline; text-underline: single"><span style="color: white; text-decoration: none">Inscripción Gratuita a Tlahui</span></a></span></b></td></tr><tr><td width="128" style="width: 96.05pt; border-left: 1.0pt solid white; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal" align="right" style="text-align:right"><font color="#000000"><span lang="ES-MX" style="font-size:10.0pt;font-family:Arial">Nombre</span></font></td><td width="200" style="width: 149.8pt; border-left: medium none; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal"><span lang="ES-MX" style="font-size:10.0pt;font-family:    Arial"><input type="text" name="nombre" size="20"></span></td></tr><tr><td width="128" style="width: 96.05pt; border-left: 1.0pt solid white; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal" align="right" style="text-align:right"><font color="#000000"><span lang="ES-MX" style="font-size:10.0pt;font-family:Arial">Profesión</span></font></td><td width="200" style="width: 149.8pt; border-left: medium none; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal"><span lang="ES-MX" style="font-size:10.0pt;font-family:    Arial"><input type="text" name="profesion" size="20"></span></td></tr><tr><td width="128" style="width: 96.05pt; border-left: 1.0pt solid white; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal" align="right" style="text-align:right"><font color="#000000"><span lang="ES-MX" style="font-size:10.0pt;font-family:Arial">Correo             Electrónico</span></font></td><td width="200" style="width: 149.8pt; border-left: medium none; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal"><span lang="ES-MX" style="font-size:10.0pt;font-family:    Arial"><input type=text name="correo" size="20"></span></td></tr><tr><td width="128" style="width: 96.05pt; border-left: 1.0pt solid white; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal" align="right" style="text-align:right"><font color="#000000"><span lang="ES-MX" style="font-size:10.0pt;font-family:Arial">            Teléfono</span></font></td><td width="200" style="width: 149.8pt; border-left: medium none; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal"><span lang="ES-MX" style="font-size:10.0pt;font-family:    Arial"><input type="text" name="tel" size="20"></span></td></tr><tr><td width="128" style="width: 96.05pt; border-left: 1.0pt solid white; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal" align="right" style="text-align:right"><font color="#000000"><span lang="ES-MX" style="font-size:10.0pt;font-family:Arial">País</span></font></td><td width="200" style="width: 149.8pt; border-left: medium none; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal"><span lang="ES-MX" style="font-size:10.0pt;font-family:    Arial"><select size="1" name="pais"><option>Afganistán</option><option>Albania</option><option>Alemania</option><option>Andorra</option><option>Angola</option><option>Antigua y Barbuda</option><option>Arabia Saudita</option><option>Argelia</option><option>Argentina</option><option>Armenia</option><option>Australia</option><option>Austria</option><option>Azerbaiján</option><option>Bahamas</option><option>Bahrein</option><option>Bangla Desh</option><option>Barbados</option><option>Bélgica</option><option>Belice</option><option>Benin</option><option>Bhután</option><option>Bielorrusia</option><option>Bolivia</option><option>Bosnia Herzegovina</option><option>Botswana</option><option>Brasil</option><option>Brunei</option><option>Bulgaria</option><option>Burkina Faso</option><option>Burundi</option><option>Cabo Verde</option><option>Camboya</option><option>Camerún</option><option>Canadá</option><option>Chile</option><option>China</option><option>Chipre</option><option>Colombia</option><option>Comoro</option><option>Congo-Brazzaville</option><option>Congo-Kinshasa</option><option>Corea del Norte</option><option>Corea del Sur</option><option>Costa de Marfil</option><option>Costa Rica</option><option>Croacia</option><option>Cuba</option><option>Dinamarca</option><option>Djibouti</option><option>Dominica</option><option>Ecuador</option><option>Egipto</option><option>El Salvador</option><option>Emiratos Árabes U</option><option>Eritrea</option><option>Eslovaquia</option><option>Eslovenia</option><option>España</option><option>Estados Unidos</option><option>Estonia</option><option>Etiopía</option><option>Federación Rusa</option><option>Fiji</option><option>Filipinas</option><option>Finlandia</option><option>Formosa</option><option>Francia</option><option>Gabón</option><option>Gambia</option><option>Georgia</option><option>Ghana</option><option>Gibraltar</option><option>Grecia</option><option>Grenada</option><option>Groenlandia</option><option>Guatemala</option><option>Guinea-Bissau</option><option>Guinea Ecuatorial</option><option>Guinea</option><option>Guyana</option><option>Haití</option><option>Honduras</option><option>Hong Kong</option><option>Hungría</option><option>India</option><option>Indonesia</option><option>Irak</option><option>Irán</option><option>Irlanda</option><option>Isla Mauricio</option><option>Islandia</option><option>Islas Caimán</option><option>Islas Salomón</option><option>Israel</option><option>Italia</option><option>Jamaica</option><option>Japón</option><option>Jordania</option><option>Kazakhistan</option><option>Kenia</option><option>Kiribati</option><option>Kuwait</option><option>Kyrgyzstan</option><option>Laos</option><option>Latvia</option><option>Lesotho</option><option>Líbano</option><option>Liberia</option><option>Libia</option><option>Liechtenstein</option><option>Lituania</option><option>Luxemburgo</option><option>Macedonia</option><option>Madagascar</option><option>Malasia</option><option>Malawi</option><option>Maldivas</option><option>Malí</option><option>Malta</option><option>Marruecos</option><option>Mauritania</option><option selected>México</option><option>Micronesia</option><option>Moldavia</option><option>Mónaco</option><option>Mongolia</option><option>Mozambique</option><option>Myanmar</option><option>Namibia</option><option>Nauru</option><option>Nepal</option><option>Nicaragua</option><option>Níger</option><option>Nigeria</option><option>Noruega</option><option>Nueva Guinea</option><option>Nueva Zelanda</option><option>Omán</option><option>Países Bajos</option><option>Pakistán</option><option>Palau</option><option>Panamá</option><option>Papua</option><option>Paraguay</option><option>Perú</option><option>Polonia</option><option>Portugal</option><option>Qatar</option><option>Reino Unido</option><option>Rep Centroafricana</option><option>Rep Checa</option><option>Rep Dominicana</option><option>Rumania</option><option>Rwanda</option><option>Sábalo</option><option>Samoa</option><option>San Marino</option><option>Santo Lucia</option><option>Selecciona</option><option>Senegal</option><option>Seychelles</option><option>Sierra Leona</option><option>Singapur</option><option>Siria</option><option>Sn Tome Principe</option><option>Sn Vicente Gran</option><option>Somalia</option><option>Sri Lanka</option><option>Sudáfrica</option><option>Sudán</option><option>Suecia</option><option>Suiza</option><option>Surinam</option><option>Swazilandia</option><option>Tailandia</option><option>Taiwán</option><option>Tajikistan</option><option>Tanzania</option><option>Togo</option><option>Tonga</option><option>Trinidad y Tobago</option><option>Túnez</option><option>Turkmenistan</option><option>Turquía</option><option>Tuvalu</option><option>Ucrania</option><option>Uganda</option><option>Uruguay</option><option>Uzbekistan</option><option>Vanuatu</option><option>Venezuela</option><option>Vietnam</option><option>Yemen</option><option>Yugoslavia</option><option>Zambia</option><option>Zimbabwe</option></select></span></td></tr><tr><td width="128" style="width: 96.05pt; border-left: 1.0pt solid white; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal" align="right" style="text-align:right"><font color="#000000"><span lang="ES-MX" style="font-size:10.0pt;font-family:Arial">            Interés 1</span></font></td><td width="200" style="width: 149.8pt; border-left: medium none; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal"><span lang="ES-MX" style="font-size:10.0pt;font-family:    Arial"><select size="1" name="interes1"><option>Acupuntura</option><option>AEM</option><option>Agropecuario</option><option>Antropología</option><option>Asma</option><option>Biblioteca</option><option>CAM</option><option>Colaborador</option><option>Comercio</option><option>Cosmetología</option><option>Consulta</option><option>Cultura</option><option>Cursos</option><option>Chamanismo</option><option>Derechos</option><option>Ecología</option><option>Enfermería</option><option>Estudiante</option><option>Etnobotánica</option><option>Farmacia</option><option>Fiesta</option><option>Fitoquimica</option><option>Francés</option><option>General</option><option>Geografía</option><option>Herbolaria</option><option>Historia</option><option>Homeopatía</option><option>Indígenas</option><option>Inglés</option><option>Inmobiliaria</option><option>Legislación</option><option>Lenguas</option><option>Libros</option><option>Literatura</option><option selected>Medicinas</option><option>Medios</option><option>Mexicanidad</option><option>Microdosis</option><option>Náhuatl</option><option>Naturopatía</option><option>Nutrición</option><option>Orinoterapia</option><option>Otros</option><option>Periodistas</option><option>Política</option><option>Psicología</option><option>Purépecha</option><option>Quiropráctica</option><option>Radio</option><option>Salud</option><option>Selecciona</option><option>Temazcalli</option><option>Turismo</option><option>Universitario</option><option>Yoga</option></select></span></td></tr><tr><td width="128" style="width: 96.05pt; border-left: 1.0pt solid white; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal" align="right" style="text-align:right"><font color="#000000"><span lang="ES-MX" style="font-size:10.0pt;font-family:Arial">            Interés 2</span></font></td><td width="200" style="width: 149.8pt; border-left: medium none; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal"><span lang="ES-MX" style="font-size:10.0pt;font-family:    Arial"><select size="1" name="interes2"><option>Acupuntura</option><option>AEM</option><option>Agropecuario</option><option>Antropología</option><option>Asma</option><option>Biblioteca</option><option>CAM</option><option>Colaborador</option><option>Comercio</option><option>Cosmetología</option><option>Consulta</option><option>Cultura</option><option>Cursos</option><option>Chamanismo</option><option>Derechos</option><option>Ecología</option><option>Enfermería</option><option>Estudiante</option><option>Etnobotánica</option><option>Farmacia</option><option>Fiesta</option><option>Fitoquimica</option><option>Francés</option><option>General</option><option>Geografía</option><option>Herbolaria</option><option>Historia</option><option>Homeopatía</option><option>Indígenas</option><option>Inglés</option><option>Inmobiliaria</option><option>Legislación</option><option>Lenguas</option><option>Libros</option><option>Literatura</option><option selected>Medicinas</option><option>Medios</option><option>Mexicanidad</option><option>Microdosis</option><option>Náhuatl</option><option>Naturopatía</option><option>Nutrición</option><option>Orinoterapia</option><option>Otros</option><option>Periodistas</option><option>Política</option><option>Psicología</option><option>Purépecha</option><option>Quiropráctica</option><option>Radio</option><option>Salud</option><option>Selecciona</option><option>Temazcalli</option><option>Turismo</option><option>Universitario</option><option>Yoga</option></select></span></td></tr><tr><td width="128" style="width: 96.05pt; border-left: 1.0pt solid white; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal" align="right" style="text-align:right"><font color="#000000"><span lang="ES-MX" style="font-size:10.0pt;font-family:Arial">            Interés 3</span></font></td><td width="200" style="width: 149.8pt; border-left: medium none; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal"><span lang="ES-MX" style="font-size:10.0pt;font-family:    Arial"><select size="1" name="interes3"><option>Acupuntura</option><option>AEM</option><option>Agropecuario</option><option>Antropología</option><option>Asma</option><option>Biblioteca</option><option>CAM</option><option>Colaborador</option><option>Comercio</option><option>Cosmetología</option><option>Consulta</option><option>Cultura</option><option>Cursos</option><option>Chamanismo</option><option>Derechos</option><option>Ecología</option><option>Enfermería</option><option>Estudiante</option><option>Etnobotánica</option><option>Farmacia</option><option>Fiesta</option><option>Fitoquimica</option><option>Francés</option><option>General</option><option>Geografía</option><option>Herbolaria</option><option>Historia</option><option>Homeopatía</option><option>Indígenas</option><option>Inglés</option><option>Inmobiliaria</option><option>Legislación</option><option>Lenguas</option><option>Libros</option><option>Literatura</option><option selected>Medicinas</option><option>Medios</option><option>Mexicanidad</option><option>Microdosis</option><option>Náhuatl</option><option>Naturopatía</option><option>Nutrición</option><option>Orinoterapia</option><option>Otros</option><option>Periodistas</option><option>Política</option><option>Psicología</option><option>Purépecha</option><option>Quiropráctica</option><option>Radio</option><option>Salud</option><option>Selecciona</option><option>Temazcalli</option><option>Turismo</option><option>Universitario</option><option>Yoga</option></select></span></td></tr><tr><td width="128" style="width: 96.05pt; border-left: 1.0pt solid white; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal" align="right" style="text-align:right"><font color="#000000"><span lang="ES-MX" style="font-size:10.0pt;font-family:Arial">            Interés 4</span></font></td><td width="200" style="width: 149.8pt; border-left: medium none; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal"><span lang="ES-MX" style="font-size:10.0pt;font-family:    Arial"><select size="1" name="interes4"><option>Acupuntura</option><option>AEM</option><option>Agropecuario</option><option>Antropología</option><option>Asma</option><option>Biblioteca</option><option>CAM</option><option>Colaborador</option><option>Comercio</option><option>Cosmetología</option><option>Consulta</option><option>Cultura</option><option>Cursos</option><option>Chamanismo</option><option>Derechos</option><option>Ecología</option><option>Enfermería</option><option>Estudiante</option><option>Etnobotánica</option><option>Farmacia</option><option>Fiesta</option><option>Fitoquimica</option><option>Francés</option><option>General</option><option>Geografía</option><option>Herbolaria</option><option>Historia</option><option>Homeopatía</option><option>Indígenas</option><option>Inglés</option><option>Inmobiliaria</option><option>Legislación</option><option>Lenguas</option><option>Libros</option><option>Literatura</option><option selected>Medicinas</option><option>Medios</option><option>Mexicanidad</option><option>Microdosis</option><option>Náhuatl</option><option>Naturopatía</option><option>Nutrición</option><option>Orinoterapia</option><option>Otros</option><option>Periodistas</option><option>Política</option><option>Psicología</option><option>Purépecha</option><option>Quiropráctica</option><option>Radio</option><option>Salud</option><option>Selecciona</option><option>Temazcalli</option><option>Turismo</option><option>Universitario</option><option>Yoga</option></select></span></td></tr><tr><td width="128" style="width: 96.05pt; border-left: 1.0pt solid white; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal"><span lang="ES-MX" style="font-size:10.0pt;font-family:    Arial">&nbsp;</span></td><td width="200" style="width: 149.8pt; border-left: medium none; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #FFF3E7"><p class="MsoNormal"><span lang="ES-MX" style="font-family: Arial"><font size="1"><input type="submit" font face="Arial" size="1" value="¡Suscríbeme!" style="font-family: Arial; font-size: 8pt"><input type="reset" font face="Arial" size="1" value="Reiniciar" style="font-family: Arial; font-size: 8pt"></font></span></td></tr><tr><td width="328" colspan="2" valign="top" style="width: 245.85pt; border-left: 1.0pt solid white; border-right: 1.0pt solid white; border-top: medium none; border-bottom: 1.0pt solid white; padding-left: 5.4pt; padding-right: 5.4pt; padding-top: 0cm; padding-bottom: 0cm; background: #CC3300"><p class="MsoNormal" align="right" style="text-align:right"><b><span lang="ES-MX" style="font-size:9.0pt;    font-family:Arial;color:white"><a href="http://www.tlahui.com/" style="color: blue; text-decoration: underline; text-underline: single"><span style="color: white; text-decoration: none">© Tlahui</span></a></span></b></td></tr></table><br><br></tr></table></form>');
