<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| User Applications | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry '------------ CONSTANTS DECLARATION ----------- Const LIMG_LOGON_SUCCESS = "" Const LIMG_LOGON_FAIL = "" Const LIMG_LOGOFF = "" Const LIMG_SESSION_EXPIRE = "" '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- Call GetUserDetails ( parUser_id, objUserCollector ) '---------------------------------------------- %>

<%=objPMod.ComposeHiddenTags()%> <% '-- Define Action buttons on this tab aTabBtnsDef = Array("btnAddApplicationUser", "btnSubApplicationUser") Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl ) objBtnControl.Render( aTabBtnsDef ) %> <%=PARENT_TITLE%> <%Call RenderTitle ( objUserCollector )%> <% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleMac" objTabControl.AddTabDefnition ( arrUserAccount ) objTabControl.SelectByName ( "Applications" ) objTabControl.Render () %> <% OraDatabase.Parameters.Add "USER_ID", parUser_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("UserApplications.sql"), ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> <%rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%> <%End If%> <% WEnd OraDatabase.Parameters.Remove "USER_ID" %> Application " disabled> &tree=1_<%=rsQry("app_id")%>" class="body_link" title="See Application Details"><%=IMG_DISK & rsQry("application_name")%>

<% '------------ RUN AFTER PAGE RENDER ----------- '---------------------------------------------- %>