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('<p><a href="http://www.tlahui.com/medici.htm" target="_top"><img src="http://www.tlahui.com/tlahui2/tlahui3/tlahui4/images/imedic.gif" width=160 height=27 alt="Tlahui-Medic" border="0"></a></p><p><a href="http://www.tlahui.com/nave3.htm" target="_top"><img src="http://www.tlahui.com/tlahui2/tlahui3/tlahui4/images/ibusca.gif" width=160 height=18 alt="B&uacute;squedas en Tlahui-Medic - Search - Recherche" border="0"></a></p><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=16 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><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: 160; border-collapse: collapse"><tr><td style="width: 160; 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: 8.0pt;font-family:Arial;color:white"><span style="color: white; text-decoration: none">Suscripción Gratuita</span></span></b></td></tr><tr><td style="width: 160; 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><span lang="ES-MX" style="font-family: Arial"><font size="1">Nombre<br /></font></span><input type="text" name="nombre" font face="Arial" style="font-family: Arial; font-size: 8pt" size="22"><input type="hidden" name="profesion" value="Selecciona"><br /><span lang="ES-MX" style="font-family: Arial"><font size="1">Correo<br /></font></span><input type=text name="correo" font face="Arial" style="font-family: Arial; font-size: 8pt" size="22"><input type="hidden" name="tel" value="Selecciona"><br /><span lang="ES-MX" style="font-family: Arial"><font size="1">País<br /></font></span><select font face="Arial" style="font-family: Arial; font-size: 8pt" 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><br /><input type="hidden" name="interes1" value="Medicinas"><span lang="ES-MX" style="font-family: Arial"><font size="1">Interés<br /></font></span><span lang="ES-MX" style="font-family: Arial"><font size="1"><select font face="Arial" style="font-family: Arial; font-size: 8pt" 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><input type="hidden" name="interes3" value="Selecciona"><input type="hidden" name="interes4" value="Selecciona"><br /><br /></font></span><input TYPE="submit" font face="Arial" style="font-family: Arial; font-size: 8pt" VALUE="¡Suscríbeme!"><br /><span lang="ES-MX" style="font-family: Arial"><font size="1"><hr color="#ff0000"></font></span></td></tr></table></form></p><p><a href="http://www.tlahui.com/comer.htm" target="_top"><img src="http://www.tlahui.com/tlahui2/tlahui3/tlahui4/images/imiscel.gif" width=160 height=18 alt="Miscel&aacute;nea - Miscellany - M&eacute;langes" border="0"></p><p><font face="arial" style="font-size:8.0pt"><li><a href="http://www.tlahui.edu.mx/inscripciones.htm" target="_top">Cursos en medicinas</a></li><li><a href="http://www.tlahui.com/libros/tratadomtmx.htm" target="_top">Tratado de Medicina</a></li><li><a href="http://www.tlahui.com/libros/index.html" target="_top">Librer&iacute;a Virtual</a></li></font></p>');


 

