<%@ Language=JavaScript CODEPAGE="1252"%> Máster Porcino [Inicio] <% ValidarSesion("documenta.asp"); dbs=new ActiveXObject("ADODB.Connection"); dbs.Open("MasterPorcino"); %> <% titulo = "DOCUMENTACIÓN" %>
<% =titulo %> Usuario:<% =Session("Usuario") %>
Desconectar
<% var strSQL; var rstDatos = Server.CreateObject("ADODB.Recordset"); strSQL = "SELECT Modulos.* " + " FROM Modulos INNER JOIN Permisos ON Permisos.CodModulo = Modulos.Codigo " + " WHERE Permisos.CodUsuario = '" + Session("Usuario") + "'" + " AND (FechaBaja is null OR FechaBaja >= '" + ValorFSQL(new Date()) + "') " + " AND (FechaAlta is null OR FechaAlta <= '" + ValorFSQL(new Date()) + "') " + " ORDER BY Modulos.Codigo" rstDatos.Open(strSQL, dbs, adOpenForwardOnly); if (!rstDatos.EOF) { %>

Dosieres electrónicos:

<% if (rstDatos("Codigo") == 0) { rstDatos.Close(); strSQL = "SELECT * FROM Modulos WHERE Codigo > 0 ORDER BY Codigo"; rstDatos.Open(strSQL, dbs, adOpenForwardOnly); } intCont = 1; while (!rstDatos.EOF) { %> <% intCont++; rstDatos.MoveNext(); } rstDatos.Close(); %>
" target="_self"> MÓDULO <% =rstDatos("Codigo") %>.- <% =new String(rstDatos("Nombre")).toUpperCase() %>
<% } else { %>

No tiene acceso a ningún módulo del Màster

<% } %> <% if (TipoUsuario(Session("Usuario")) == "A") { %>

Administración:

Lista de usuarios
Lista de permisos
<% } else { %>

 

 

<% } %>