function IsAlfaNumericMail(PsCadena){
   var LsValue=PsCadena;
   var LcChar=null;
   var LsValidos='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890_@.-';
   for(i=0; i!=LsValue.length; i++) {
       LcChar=LsValue.substring(i,i+1)
       if (LsValidos.indexOf(LcChar) == '-1') {
           alert('Caracter no válido en la dirección de correo electrónico.');
           return(false);
       }
   }
 return(true);
}


function IsEmail(email){
   var arroba;
   var punto;
   var valor="";
   var espacio;
   var cont = 0;
   var caracter;
   
   var tam;
   var aux;
   
   valor = email;
   tam = valor.length;
   arroba = valor.indexOf('@');
   espacio = valor.indexOf(' ');
   punto = valor.substring(arroba,email.length);
   punto = valor.indexOf('.');
   if (arroba == '-1' || punto == '-1'){
       alert('Proporcione una dirección de correo electrónico válida');
       return false;
   }
for(var i = 1; i <= tam ; i+=1) {
   caracter = valor.substring(i,0);
   aux = 0;
   aux = caracter.indexOf('@',i - 1);
   if (aux > 0) {
       cont = cont + 1
   }
}
if (cont > 1){
   alert('Solo proporcione una dirección decorreo electrónico.');
   return false;
}
if (espacio >= 0){
   alert('No se permiten espacios en la dirección de correo electrónico.');
   return false;
}

if (!IsAlfaNumericMail(email)) {
   return false;
}
return true;
}

function IsBlank(strValor){
	strTmp=strValor;
	if (strTmp=="") 
		return true;
	else{
		for(i=0;i<=strTmp.length-1;i++){
			if (strTmp.charAt(i)!=" "){
				return false;
			}
		}
	}
	return true;
}


function IsValidUserName(PsCadena){
   var LsValue=PsCadena;
   var LcChar=null;
   var LsValidos='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890_-';
   for(i=0; i!=LsValue.length; i++) {
       LcChar=LsValue.substring(i,i+1)
       if (LsValidos.indexOf(LcChar) == '-1') {
           return(false);
       }
   }
 return(true);
}

function IsValid(){

	if(IsBlank(document.frmregusr.dUserName.value)){
			alert('Debe ingresar un nombre de usuario');
			document.frmregusr.dUserName.focus();
			return false;
	} else {
		if (!IsValidUserName(document.frmregusr.dUserName.value)){
			alert('El nombre de usuario es incorrecto');
			document.frmregusr.dUserName.focus();
			return false;			
			}
	}
		
	if(!IsBlank(document.frmregusr.dEmail.value)){
		if (!IsEmail(document.frmregusr.dEmail.value)){
			document.frmregusr.dEmail.focus();
			return false;
		}
	}
	if(IsBlank(document.frmregusr.dEmpresaName.value)){
			alert('Debe indicar la empresa a la que pertenece');
			return false;
		}
	document.frmregusr.submit();
}


function SearchTLN(){
	document.frmregusr.action ='search_transportline.asp';
	document.frmregusr.submit();
}