function aleatorio() {  
     return (Math.round( Math.random() * 10000 )+'');
  } 
  
  function VerificarValor(sCampo, sRegEx, sAviso)
  {
  	var re = new RegExp(sRegEx);
  	var sValor = $F(sCampo);
  	
  	if (!sValor.match(re)) {
	     alert(sAviso);
			 $(sCampo).activate();
  		 return false;
  	} else {
  	   return true;
  	}
  }

	function Loguin()
	{
		if (!VerificarValor("email", /^((([a-z]|[0-9]|!|#|$|%|&|'|\*|\+|\-|\/|=|\?|\^|_|`|\{|\||\}|~)+(\.([a-z]|[0-9]|!|#|$|%|&|'|\*|\+|\-|\/|=|\?|\^|_|`|\{|\||\}|~)+)*)@((((([a-z]|[0-9])([a-z]|[0-9]|\-){0,61}([a-z]|[0-9])\.))*([a-z]|[0-9])([a-z]|[0-9]|\-){0,61}([a-z]|[0-9])\.(af|ax|al|dz|as|ad|ao|ai|aq|ag|ar|am|aw|au|at|az|bs|bh|bd|bb|by|be|bz|bj|bm|bt|bo|ba|bw|bv|br|io|bn|bg|bf|bi|kh|cm|ca|cv|ky|cf|td|cl|cn|cx|cc|co|km|cg|cd|ck|cr|ci|hr|cu|cy|cz|dk|dj|dm|do|ec|eg|sv|gq|er|ee|et|fk|fo|fj|fi|fr|gf|pf|tf|ga|gm|ge|de|gh|gi|gr|gl|gd|gp|gu|gt| gg|gn|gw|gy|ht|hm|va|hn|hk|hu|is|in|id|ir|iq|ie|im|il|it|jm|jp|je|jo|kz|ke|ki|kp|kr|kw|kg|la|lv|lb|ls|lr|ly|li|lt|lu|mo|mk|mg|mw|my|mv|ml|mt|mh|mq|mr|mu|yt|mx|fm|md|mc|mn|ms|ma|mz|mm|na|nr|np|nl|an|nc|nz|ni|ne|ng|nu|nf|mp|no|om|pk|pw|ps|pa|pg|py|pe|ph|pn|pl|pt|pr|qa|re|ro|ru|rw|sh|kn|lc|pm|vc|ws|sm|st|sa|sn|cs|sc|sl|sg|sk|si|sb|so|za|gs|es|lk|sd|sr|sj|sz|se|ch|sy|tw|tj|tz|th|tl|tg|tk|to|tt|tn|tr|tm|tc|tv|ug|ua|ae|gb|us|um|uy|uz|vu|ve|vn|vg|vi|wf|eh|ye|zm|zw|com|edu|gov|int|mil|net|org|biz|info|name|pro|aero|coop|museum|arpa))|(((([0-9]){1,3}\.){3}([0-9]){1,3}))|(\[((([0-9]){1,3}\.){3}([0-9]){1,3})\])))$/, "Por favor, ingresa tu email")) return false;
		if (!VerificarValor('clave', /^([ \u00c0-\u01ffa-zA-Z0-9']){4,}$/, 'Por favor, ingresa una clave')) return false;

		URL = 'loguin.asp?'+$('form-loguin').serialize()+'&rnd='+aleatorio();

		$('progreso-login').update('<img src=imagenes/6-0.gif>');
		$('form-loguin').disable();
	  new Ajax.Request(URL, {
      onSuccess: function(transport) 
      {
       	 $('progreso-login').update('');
         scs = transport.responseText.extractScript(); 
         scs.evalScript(); 
      },
      onFailure: function(transport) 
      {
       	 $('progreso-login').update('');
		     $('form-loguin').enable();
         scs = transport.responseText.extractScript(); 
         scs.evalScript(); 
      }
    });
  }
  
	function AutoLoguin()
	{
		URL = 'loguin.asp?'+$('form-loguin').serialize()+'&rnd='+aleatorio();

		$('progreso-login').update('<img src=imagenes/6-0.gif>');
		$('form-loguin').disable();
	  new Ajax.Request(URL, {
      onSuccess: function(transport) 
      {
       	 $('progreso-login').update('');
         scs = transport.responseText.extractScript(); 
         scs.evalScript(); 
      },
      onFailure: function(transport) 
      {
       	 $('progreso-login').update('');
		 $('form-loguin').enable();
         scs = transport.responseText.extractScript(); 
         scs.evalScript(); 
      }
    });
  }
  
	function Registro()
	{
		if ($('campos-registro').getStyle('display')!='none') {
		if (!VerificarValor('nombre', /^([ \u00c0-\u01ffa-zA-Z']){3,}$/, 'Por favor, ingresa tu nombre')) return false;
		if (!VerificarValor('apellido', /^([ \u00c0-\u01ffa-zA-Z']){3,}$/, 'Por favor, ingresa tu apellido')) return false;
		if (!VerificarValor("e-mail", /^((([a-z]|[0-9]|!|#|$|%|&|'|\*|\+|\-|\/|=|\?|\^|_|`|\{|\||\}|~)+(\.([a-z]|[0-9]|!|#|$|%|&|'|\*|\+|\-|\/|=|\?|\^|_|`|\{|\||\}|~)+)*)@((((([a-z]|[0-9])([a-z]|[0-9]|\-){0,61}([a-z]|[0-9])\.))*([a-z]|[0-9])([a-z]|[0-9]|\-){0,61}([a-z]|[0-9])\.(af|ax|al|dz|as|ad|ao|ai|aq|ag|ar|am|aw|au|at|az|bs|bh|bd|bb|by|be|bz|bj|bm|bt|bo|ba|bw|bv|br|io|bn|bg|bf|bi|kh|cm|ca|cv|ky|cf|td|cl|cn|cx|cc|co|km|cg|cd|ck|cr|ci|hr|cu|cy|cz|dk|dj|dm|do|ec|eg|sv|gq|er|ee|et|fk|fo|fj|fi|fr|gf|pf|tf|ga|gm|ge|de|gh|gi|gr|gl|gd|gp|gu|gt| gg|gn|gw|gy|ht|hm|va|hn|hk|hu|is|in|id|ir|iq|ie|im|il|it|jm|jp|je|jo|kz|ke|ki|kp|kr|kw|kg|la|lv|lb|ls|lr|ly|li|lt|lu|mo|mk|mg|mw|my|mv|ml|mt|mh|mq|mr|mu|yt|mx|fm|md|mc|mn|ms|ma|mz|mm|na|nr|np|nl|an|nc|nz|ni|ne|ng|nu|nf|mp|no|om|pk|pw|ps|pa|pg|py|pe|ph|pn|pl|pt|pr|qa|re|ro|ru|rw|sh|kn|lc|pm|vc|ws|sm|st|sa|sn|cs|sc|sl|sg|sk|si|sb|so|za|gs|es|lk|sd|sr|sj|sz|se|ch|sy|tw|tj|tz|th|tl|tg|tk|to|tt|tn|tr|tm|tc|tv|ug|ua|ae|gb|us|um|uy|uz|vu|ve|vn|vg|vi|wf|eh|ye|zm|zw|com|edu|gov|int|mil|net|org|biz|info|name|pro|aero|coop|museum|arpa))|(((([0-9]){1,3}\.){3}([0-9]){1,3}))|(\[((([0-9]){1,3}\.){3}([0-9]){1,3})\])))$/, "Por favor, ingresa tu e-mail")) return false;
		if (!VerificarValor('contrasena', /^([ \u00c0-\u01ffa-zA-Z0-9']){4,}$/, 'Por favor, ingresa una nueva contraseña')) return false;
		if (!VerificarValor('sexo', /^(?:m|M|f|F)$/, 'Por favor, indica tu sexo')) return false;
		if ($('nacimiento')!=null) {
		   if (!VerificarValor('nacimiento', /(^((((0[1-9])|([1-2][0-9])|(3[0-1]))|([1-9]))\x2F(((0[1-9])|(1[0-2]))|([1-9]))\x2F(([0-9]{2})|(((19)|([2]([0]{1})))([0-9]{2}))))$)/, 'Por favor, indica tu fecha de nacimiento')) return false;
		}

		URL = 'registro.asp?'+$('form-registro').serialize();
		
		$('progreso-registro').update('<img src=imagenes/6-0.gif>');
		$('form-registro').disable();
		
	  new Ajax.Request(URL, {
      onSuccess: function(transport) 
      {
		     $('progreso-registro').update('');
		     $('form-registro').enable();
         scs = transport.responseText.extractScript(); 
         scs.evalScript(); 
         txt = transport.responseText.stripScript();
	       if (txt!="") alert(txt);
      },
      onFailure: function(transport) 
      {
		     $('progreso-registro').update('');
		     $('form-registro').enable();
         scs = transport.responseText.extractScript(); 
         scs.evalScript(); 
         txt = transport.responseText.stripScript();
	       if (txt!="") alert(txt);
      }
    });
    } else {
    	Effect.SlideDown('campos-registro');
    	Effect.SlideDown('advertencia');    	
    }
    
  }	

  function RecuperarClave() {
		if (!VerificarValor("email", /^((([a-z]|[0-9]|!|#|$|%|&|'|\*|\+|\-|\/|=|\?|\^|_|`|\{|\||\}|~)+(\.([a-z]|[0-9]|!|#|$|%|&|'|\*|\+|\-|\/|=|\?|\^|_|`|\{|\||\}|~)+)*)@((((([a-z]|[0-9])([a-z]|[0-9]|\-){0,61}([a-z]|[0-9])\.))*([a-z]|[0-9])([a-z]|[0-9]|\-){0,61}([a-z]|[0-9])\.(af|ax|al|dz|as|ad|ao|ai|aq|ag|ar|am|aw|au|at|az|bs|bh|bd|bb|by|be|bz|bj|bm|bt|bo|ba|bw|bv|br|io|bn|bg|bf|bi|kh|cm|ca|cv|ky|cf|td|cl|cn|cx|cc|co|km|cg|cd|ck|cr|ci|hr|cu|cy|cz|dk|dj|dm|do|ec|eg|sv|gq|er|ee|et|fk|fo|fj|fi|fr|gf|pf|tf|ga|gm|ge|de|gh|gi|gr|gl|gd|gp|gu|gt| gg|gn|gw|gy|ht|hm|va|hn|hk|hu|is|in|id|ir|iq|ie|im|il|it|jm|jp|je|jo|kz|ke|ki|kp|kr|kw|kg|la|lv|lb|ls|lr|ly|li|lt|lu|mo|mk|mg|mw|my|mv|ml|mt|mh|mq|mr|mu|yt|mx|fm|md|mc|mn|ms|ma|mz|mm|na|nr|np|nl|an|nc|nz|ni|ne|ng|nu|nf|mp|no|om|pk|pw|ps|pa|pg|py|pe|ph|pn|pl|pt|pr|qa|re|ro|ru|rw|sh|kn|lc|pm|vc|ws|sm|st|sa|sn|cs|sc|sl|sg|sk|si|sb|so|za|gs|es|lk|sd|sr|sj|sz|se|ch|sy|tw|tj|tz|th|tl|tg|tk|to|tt|tn|tr|tm|tc|tv|ug|ua|ae|gb|us|um|uy|uz|vu|ve|vn|vg|vi|wf|eh|ye|zm|zw|com|edu|gov|int|mil|net|org|biz|info|name|pro|aero|coop|museum|arpa))|(((([0-9]){1,3}\.){3}([0-9]){1,3}))|(\[((([0-9]){1,3}\.){3}([0-9]){1,3})\])))$/, "Por favor, ingresa tu email")) return false;

		 $('progreso-login').update('<img src=imagenes/6-0.gif>');

     cmd = 'enviar-clave.asp?'+$('form-loguin').serialize()+'&r='+Math.round(Math.random()*100000);
		 $('form-loguin').disable();
     new Ajax.Request(cmd, {
        onSuccess: function(transport) 
        {
		       $('progreso-login').update('');
		       $('form-loguin').enable();
           scs = transport.responseText.extractScript(); 
           scs.evalScript(); 
           txt = transport.responseText.stripScript();
		       if (txt!="") alert(txt);
        },
        onFailure: function(transport) 
        {
		       $('progreso-login').update('');
		       $('form-loguin').enable();
           scs = transport.responseText.extractScript(); 
           scs.evalScript(); 
           txt = transport.responseText.stripScript();
		       if (txt!="") alert(txt);
        }
   }); 
}