function CheckForm(frm) {
// ==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==-==
// ==--         Programmer:  Javier Rosado                          --==
// ==--             e-mail:  jjrosado@gmail.com                     --==
// ==--   Not to be copied or modified without written permission   --==
// ==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--==--=
//Login Validation form
frm.lEmail.value = frm.lEmail.value.toLowerCase();
	if(frm.lEmail.value=="")
		{
			alert("¡ Por favor entre su correo electrónico !")
			frm.lEmail.focus()
			return false;
		}
		else
		{
			mail=frm.lEmail.value
			at_pos=mail.indexOf("@")
			dot_pos=mail.indexOf(".")
			if(at_pos<1 || dot_pos<1)
			{
				alert("La dirección de correo electrónico parece ser incorrecta, verifique el '@' y el '.'.")
				frm.lEmail.focus()
				return false;
			}
			else
			{
				mail=frm.lEmail.value
				condition="yes"
				var at_count=0
				var dot_count=0
				var temp=0
				for(var i=0;i<mail.length;i++)
				{
					if((mail.charCodeAt(i)>0 && mail.charCodeAt(i)<48)||(mail.charCodeAt(i)>57 && mail.charCodeAt(i)<65)||(mail.charCodeAt(i)>91 && mail.charCodeAt(i)<97)||mail.charCodeAt(i)>122)
					{
						if(mail.charAt(i)=="_"||mail.charAt(i)=="@"||mail.charAt(i)==".")
						{
								if(mail.charAt(i)=="@"){at_count++}else{dot_count++} // counts the no. of times @ and . appears in email
								if(dot_count>=1)
								{
									dot_pos=i
									if((dot_pos>at_pos) && temp==0)
									{
										pos=dot_pos-at_pos
										temp++
									}								
								}
						}
						else
						{
							condition="no"
							i=mail.length
						}
					}
				}
				if(condition=="no")
				{
					alert("La dirección de correo electrónico contiene espacios en blanco y/o caracteres inválidos.")
					frm.lEmail.focus()
					return false;
				}
				else
				{
					if(at_count>1)
					{
						alert("La dirección de correo electrónico contiene un '@' extra.")
						frm.lEmail.focus()
						return false;
					}
					else
					{
						if(pos<2)
						{
							alert("El dominio no es valido entre el '@' y el '.'")
							frm.lEmail.focus()
							return false;
							i=mail.length
						}
						else
						{	
							count=dot_pos+1
							domain=""
							for(count;count<mail.length;count++)
							{
								domain=domain+mail.charAt(count)		
							}
							dom=new Array("au","com","net","org","edu","in","pr","mil","gov","arpa","biz","aero","name","coop","info","pro","museum")
							error="yes"
							for(var k=0;k<dom.length;k++)
							{
								if(domain==dom[k])
								{
									k=dom.length
									error="no"
								}
							}
							if((error=="yes" && (domain.length>2)) || (domain.length<2))
							{
								alert("La dirección debe terminar con un dominio conocido o dos letras. Ej. com,edu,in etc.")
								frm.lEmail.focus()
								return false;
							}								
						}
					}
				}
			}
		}
	if(frm.lPassword.value == '' || stripWhiteSpace(frm.lPassword.value).length < 3) {
		alert("Contraseña invalida!"); 
		frm.lPassword.focus(); 
		return false;
	} else if (isAllNumeric(frm.lPassword.value)) {
		alert("La contraseña no puede ser numerica.");
		frm.lPassword.focus(); 
		return false;
	}
	return true;
}