Deployment Manager

<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| MEMBERS | '| MY ROLES | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim rsTemp '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- %> Deployment Manager - My Roles

<%Call Member_Menu( "my_roles" )%>

Exit

My Roles

You own the following roles:

<% OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "APP_ID", APPLICATION_ID, ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UserRoles.sql"), cint(0)) OraDatabase.Parameters.Remove "USER_ID" OraDatabase.Parameters.Remove "APP_ID" While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) %> <%rsTemp.MoveNext WEnd rsTemp.Close() Set rsTemp = nothing %>

Role Name	Description
<%=rsTemp("role_name")%>	<%=rsTemp("comments")%>

<% Call Destroy_All_Objects %>