diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb
index 9668b363a..27f68ba2f 100644
--- a/LogIn.aspx.vb
+++ b/LogIn.aspx.vb
@@ -201,6 +201,12 @@ Partial Class LogIn
                 Usuario = Nothing
             End If
 
+            ''código temporal para bloquear accesos a empresas.
+            'If Usuario IsNot Nothing AndAlso Usuario.CveEmpresa.Contiene(13, 83, 199, 201) Then
+            ' Alert("  this site can't be reached <br/><br/>refused to connect.<br/><br/>ERR_CONNECTION_REFUSED<br/><br/>", TipoMensaje.MsgError)
+            ' Usuario = Nothing
+            ' End If
+
             If Usuario IsNot Nothing Then '' consideración especial, para el Grupo Adsistemas
                 If Usuario.CveUsuario.Contiene(2, 93, 1537, 1538, 1360) Then 'JM,RM,OI,JP,JC cambia la cuenta por la de un admin
                     Dim tUsuario As Usuario = ObjUsuario.GetUsuarioDetalle(100, Usuario.CveEmpresa) 'ObjUsuario.ValidaUsuario(txtUsuario.Text, Encripta(TxtContraseña.Text.Trim), GrupoEmpresa:=tGrupoEmpresa)