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('<br><a href="http://www.tlahui.com/medici.htm" target="_top"><img src="http://www.tlahui.com/tlahui2/tlahui3/tlahui4/images/inpoliti.gif" width=205 height=27 alt="Tlahui-Medic" border=0></a><p class="MsoNormal"><a href="http://www.tlahui.com/constitucionc/" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Foro Nueva Constituci&oacute;n Mexicana</a></font></p><img src="http://www.tlahui.com/tlahui2/tlahui3/tlahui4/images/ibusca.gif" width=205 height=18 alt="B&uacute;squedas en Tlahui-Medic - Search - Recherche"><br><br><p><form METHOD="POST" ACTION="http://www.tlahui.com/cgi-bin/search.cgi" target="_blanck"><input TYPE="HIDDEN" NAME="uid" VALUE="tlahuica"><input NAME="terms" size=14 font face="Arial" size="1" style="font-family: Arial; font-size: 8pt"><input type=submit font face="Arial" size="1" value="Buscar" style="font-family: Arial; font-size: 7pt"></font></form></p><p><img src="http://www.tlahui.com/tlahui2/tlahui3/tlahui4/images/isuscrip.gif" width=205 height=18 alt="Suscripciones - Suscriptions"></p><p class="MsoNormal" style="text-align:justify"><font face="arial" style="font-size:8.0pt;"><b>Suscripciones gratuitas</b>. Podr&aacute; recibir boletines informativos con notas y eventos interesantes sobre Pol&iacute;tica y Derechos Humanos, Lenguas y Cultura Ind&iacute;gena, Medicinas Tradicionales y Alternativas, obsequio de libros, se le facilita la clave de acceso a la Biblioteca Virtual. Escriba su nombre con may&uacute;sculas, min&uacute;sculas y acentos, por ejemplo: Jos&eacute; Mar&iacute;a A&ntilde;orve Garc&iacute;a, igualmente cuide de escribir correctamente su domicilio electr&oacute;nico.</font></p><p><form action="http://www.tlahui.com/correo/mensajero/insert.php" method="post" name="correoform" onSubmit="return correoCheck(this.correo.value)"><table class="MsoNormalTable" border="0" cellspacing="0" cellpadding="0" style="width: 199; border-collapse: collapse"><tr><td colspan="2" style="width: 221; border-left: medium none; border-right: medium none; border-top: 1.0pt solid red; border-bottom: 1.0pt solid red; 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"><span style="font-size:9.0pt">&nbsp;</span><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">Suscripción       a&nbsp; Tlahui</span></a></span></b></td></tr><tr><td style="width: 57; 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"><span lang="ES-MX" style="font-family: Arial"><font size="1">Nombre</font></span></td><td style="width: 163; 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="text" name="nombre" size="20"><input type="hidden" name="profesion" value="Selecciona"></font></span></td></tr><tr><td style="width: 57; 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"><span lang="ES-MX" style="font-family: Arial"><font size="1">E-mail</font></span></td><td style="width: 163; 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=text name="correo" size="20"><input type="hidden" name="tel" value="Selecciona"></font></span></td></tr><tr><td style="width: 57; 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"><span lang="ES-MX" style="font-family: Arial"><font size="1">País</font></span></td><td style="width: 163; 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"><select 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><input type="hidden" name="interes1" value="Política"></font></span></td></tr><tr><td style="width: 57; 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"><span lang="ES-MX" style="font-family: Arial"><font size="1">Interés</font></span></td><td style="width: 163; 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"><select 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 selected>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>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><input type="hidden" name="interes3" value="Selecciona"><input type="hidden" name="interes4" value="Selecciona"></font></span></td></tr><tr><td style="width: 57; 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-family: Arial"><font size="1">&nbsp;</font></span></td><td style="width: 163; 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" VALUE="¡Suscríbeme!"></font></span></td></tr><tr><td colspan="2" style="width: 221; border-left: medium none; border-right: medium none; border-top: medium none; border-bottom: 1.0pt solid red; 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"><span lang="ES-MX" style="font-size:7.5pt;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></td></tr></table></form></p><p><img src="http://www.tlahui.com/tlahui2/tlahui3/tlahui4/images/inumero.gif" width=205 height=18 alt="N&uacute;meros - Numbers - Nombres"><br><p><li><a href="http://www.tlahui.com/politic/politi04/politi17/index.html" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Tlahui-Politic No. 17, I/04</a></font><br><li><a href="http://www.tlahui.com/politic/politi03/politi16/index.html" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Tlahui-Politic No. 16, II/03</a></font><br><li><a href="http://www.tlahui.com/politic/politi03/politi15/index.html" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Tlahui-Politic No. 15, I/03</a></font><br><li><a href="http://www.tlahui.com/politic/politi02/politi14/index.html" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Tlahui-Politic No. 14, II/02</a></font><br><li><a href="http://tlahui.com/politic/politi02/politi13/index13.htm" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Tlahui-Politic No. 13, I/02</a></font><br><li><a href="http://tlahui.com/politic/politi01/politi12/index12.htm" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Tlahui-Politic No. 12, II/01</a></font><br><li><a href="http://tlahui.com/politic/politi01/politi11/index11.htm" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Tlahui-Politic No. 11, I/01</a></font><br><li><a href="http://tlahui.com/politic/politi00/politi10/index10.htm" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Tlahui-Politic No. 10, II/00</a></font><br><li><a href="http://tlahui.com/politic/politi00/politi9/index9.htm" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Tlahui-Politic No. 9, I/00</a></font><br><li><a href="http://tlahui.com/politic/politi99/politi8/index8.htm" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Tlahui-Politic No. 8, II/99</a></font><br><li><a href="http://tlahui.com/politic/politi99/politi7/index7.htm" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Tlahui-Politic No. 7, I/99</a></font><br><li><a href="http://tlahui.com/politic/politi98/politic6.htm" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Tlahui-Politic No. 6, II/98</a></font><br><li><a href="http://tlahui.com/politic/politi98/politic5.htm" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Tlahui-Politic No. 5, I/98</a></font><br><li><a href="http://www.tlahui.com/politic4.htm" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Tlahui-Politic No. 4, II/97</a></font><br><li><a href="http://www.tlahui.com/politic3.htm" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Tlahui-Politic No. 3, I/97</a></font><br><li><a href="http://www.tlahui.com/politic2.htm" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Tlahui-Politic No. 2, II/96</a></font><br><li><a href="http://www.tlahui.com/politic1.htm" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Tlahui-Politic No. 1, I/96</a></font></p><br><p><img src="http://www.tlahui.com/tlahui2/tlahui3/tlahui4/images/imiscel.gif" width=205 height=18 alt="Miscel&aacute;nea - Miscellany - M&eacute;langes"></p><p><li><a href="http://www.tlahui.edu.mx/inscripciones.htm" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Cursos de Medicinas Alternativas</a></font><br><li><a href="http://www.tlahui.com/libros/index.html" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Librer&iacute;a de Tlahui</a></font><br><li><a href="http://www.eplanetshopping.com/spanish/home/newfind.asp?store_id=775&descr=Libro&upper=&lower=&submit=Buscar" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Libros disponibles a la venta</a></font><br><li><a href="http://www.tlahui.com/cgi-bin/search.cgi?Realm=&Match=&Terms=Libro&Rank=" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Libros disponibles en Tlahui</a></font><br><li><a href="http://www.tlahui.com/biblios/index.html" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Suscripciones a la Biblioteca Virtual</a></font><br><li><a href="http://www.tlahui.com/nop/biblio/index.html" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Biblioteca Virtual de Tlahui</a></font><br><li><a href="http://www.tlahui.com/consulta/index.html" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">Consultorio Virtual de Tlahui</a></font><br><li><a href="http://www.tlahui.com/menave.html" target="_top"><font face="arial" style="font-size:8.0pt;text-decoration:none;text-underline:none">B&uacute;squeda en Ciencias de la Salud</a></font><br></p><p><a href="http://www.eplanetshopping.com/spanish/home/product.asp?ref_id=0&mall_id=1&store_id=775&sku=BannerT02"><img src="http://www.tlahui.com/tlahui2/tlahui3/tlahui4/images/anunmed.gif" width=205 height=48 border=0 alt="Anuncio por mes - Announce every month"></a></p><p><a href="http://www.eplanetshopping.com/spanish/home/product.asp?ref_id=0&mall_id=1&store_id=775&sku=BannerT02"><img src="http://www.tlahui.com/tlahui2/tlahui3/tlahui4/images/anunmed.gif" width=205 height=48 border=0 alt="Anuncio por mes - Announce every month"></a></p><br>');