<%response.expires=0%> <% dim tabla function Ftotal(tabla) query = "select count(*) as total from " & tabla set rs=GetRs(query,con) total = 0 if not rs.eof then total = rs("total") end if Ftotal = total rs.close set rs=nothing end function %>

<% '***************************************************************************************** '*************************************MANTENEDOR****************************************** '***************************************************************************************** query = " select a.id_aplicacion, a.nombre, a.nombre_programa, a.menu, a.tipo_aplicacion, a.upload, a.accion, a.tabla, pa.permiso " &_ " from TE_aplicacion a, TE_perfil_aplicacion pa " &_ " where a.id_aplicacion = pa.id_aplicacion and pa.id_perfil = '" & trim(session("id_perfil")) & "' and a.menu = 'M' and pa.permiso <> 'NNNN' " &_ " order by a.id_aplicacion" set rsM = getrs(query,con) if not rsM.eof then do while not rsM.eof id_aplicacion = rsM("id_aplicacion") nombre = rsM("nombre") nombre_programa = rsM("nombre_programa") menu = rsM("menu") tipo_aplicacion = rsM("tipo_aplicacion") upload = rsM("upload") accion = rsM("accion") tabla = rsM("tabla") contador = contador + 1 if contador = 1 then%> <%end if%>

MANTENEDORES
<%end if%> <%if trim(tipo_aplicacion) = "T" then contador_titulo = contador_titulo + 1 if contador_titulo = 4 then contador_titulo = 1%>	<%end if%>  <%=ucase(nombre)%> <%if trim(tabla) <> "" then%>(<%=Ftotal(c_tabla & tabla)%>)<%end if%> <%end if%> <%if trim(tipo_aplicacion) = "P" then%> <%if trim(accion) = "I" then%> <%else if trim(upload) = "S" then xurl = "javascript:" & accion & "('" & nombre_programa & "','" & id_aplicacion & "');" else xurl = nombre_programa & "?accion=" & accion & "&id_aplicacion=" & id_aplicacion end if%>  <%=nombre%> <%end if%> <%end if rsM.movenext loop end if set rsM = nothing%> <%if contador > 1 then%>
SALIR