///////////////////////////////////////////////////
//   Funciónes de chequeo para formularios web.  //
///////////////////////////////////////////////////
function IsValidNumber(astrNumero) {  
  var lfstrCheckOK = "0123456789";
  var lfstrValueCheck;
  var i;
  var lfstrChar;  
  lfstrValueCheck = astrNumero.value;  
  for (i = 0; i < lfstrValueCheck.length; i++) {
    lfstrChar = lfstrValueCheck.charAt(i);
    if (lfstrCheckOK.indexOf(lfstrChar,0) == -1)
      return false;
  }
  return true; 
}

function IsValidTime(astrNumero) {  
  var lfstrCheckOK = "0123456789:";
  var lfstrValueCheck;
  var i;
  var lfstrChar;  
  lfstrValueCheck = astrNumero.value;  
  for (i = 0; i < lfstrValueCheck.length; i++) {
    lfstrChar = lfstrValueCheck.charAt(i);
    if (lfstrCheckOK.indexOf(lfstrChar,0) == -1)
      return false;
  }
  return true; 
}

function IsValidText(astrText) {  
  var lfstrCheckOK = "#$%^&*();:,<>/\@ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzƒŠŒŽšœžŸÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþ0123456789-. !?¿¡_,";
  var lfstrValueCheck;
  var i;
  var lfstrChar;  
  lfstrValueCheck = astrText.value;
  for (i = 0; i < lfstrValueCheck.length; i++) {
    lfstrChar = lfstrValueCheck.charAt(i);
    if (lfstrCheckOK.indexOf(lfstrChar,0) == -1)
      return false;
  }  
  return true;  
}

function IsValidTextArea(astrText) {  
  var lfstrCheckOK = "#$%^&*();:,<>/\@ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzƒŠŒŽšœžŸÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþ0123456789-. !?¿¡\n\r_";
  var lfstrValueCheck;
  var i;
  var lfstrChar;  
  lfstrValueCheck = astrText.value;
  for (i = 0;  i < lfstrValueCheck.length;  i++) {
    lfstrChar = lfstrValueCheck.charAt(i);
    if (lfstrCheckOK.indexOf(lfstrChar,0) == -1)
    	return false;  
  }  
  return true;  
}

function IsValidMail(parmail)
		{
		var	mail=parmail;
			if (mail != "")
			{
				if ( (mail.indexOf ('@',0) == -1 ) || (mail.indexOf (' ',0) != -1 ) || (mail.indexOf (';',0) != -1 ) 
				|| (mail.indexOf ('>',0) != -1 ) || (mail.indexOf ('|',0) != -1 ) || (mail.indexOf ('&',0) != -1 ) 
				|| (mail.indexOf (';',0) != -1 ) || (mail.indexOf (':',0) != -1 ) || (mail.indexOf ('!',0) != -1 ) 
				|| (mail.indexOf ('/',0) != -1 ) || (mail.indexOf ('>',0) != -1 ) || (mail.indexOf ('*',0) != -1 ) 
				|| (mail.indexOf ('"',0) != -1 ) || (mail.indexOf ('$',0) != -1 ) || (mail.indexOf ('`',0) != -1 ) 
|| ((mail.length - 1 )==mail.lastIndexOf('@')) || ((mail.length - 1) == mail.lastIndexOf('.')) || (mail.indexOf ('@',0) > mail.lastIndexOf('.'))
|| (mail.indexOf ('@',0) != mail.lastIndexOf('@'))
)
				{			
					return false;
				}
			}
			return true;		
}

function IsValidFile(astrText) {  
  var lfstrCheckOK = "/\ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzƒŠŒŽšœžŸÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþ0123456789-._";
  var lfstrValueCheck;
  var i;
  var lfstrChar;  
  lfstrValueCheck = astrText.value;
  for (i = 0;  i < lfstrValueCheck.length;  i++) {
    lfstrChar = lfstrValueCheck.charAt(i);
    if (lfstrCheckOK.indexOf(lfstrChar,0) == -1)
    	return false;  
  }  
  return true;  
}