App_Code/ClsPaginas.vb

@@ -3514,7 +3514,7 @@ Public Class ClsPaginas
             End If
 
             'ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.SetAspSig, ASPSIG:=Request.Cookies[".ASPXSIG"].ToString())
-            ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarModulo, Nothing, -1, "", Request.Url.ToString())
+            ADSSession.ADSSessionConfig.SessionManager(ADSSession.OpcionSession.CambiarModulo, Nothing, -1, "", Request.Url.PathAndQuery.ToString())
             'If Me.Request.ServerVariables("http_user_agent").ToLower.Contains("safari") AndAlso Page.ClientTarget <> "uplevel" Then Page.ClientTarget = "uplevel" 'Código agregado para que muestre bién el menu, en chrome
         End If
     End Sub

Sistemas/SessionesActivas.aspx.vb

@@ -83,7 +83,6 @@ Partial Class SessionesActivas
                 row("RemoteIpAddres") = user.IpAddres
                 row("LastPostback") = user.LastPostback
                 row("Modulo") = user.Modulo
-                row("Modulo") = user.SessionID
                 dtF.Rows.Add(row.ItemArray())
             End If
         Next