<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wGrantRole | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim parApp_id Dim rsQry Dim objFormCollector '------------ CONSTANTS DECLARATION ----------- Const LIMG_ROLE = "" '------------ VARIABLE INIT ------------------- Set objFormCollector = CreateObject("Scripting.Dictionary") parApp_id = Request("app_id") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub GrantRole () On Error Resume Next OraDatabase.Parameters.Add "ROLE_ID_LIST", Request("role_id_list"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "USER_ID", Request("user_id"), ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Role.Grant_Role ( :ROLE_ID_LIST, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "ROLE_ID_LIST" OraDatabase.Parameters.Remove "USER_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- ' --- Get Form details from DB (for edit forms only) --- '------------------------------------------------------- ' --- Load Validation Rules --- ' --- Enter Form Validation Rule Changes here... ---- '---------------------------------------------------- If CBool(Request("action")) Then If objForm.IsValidOnPostBack Then ' --- Form is Valid --- Call GrantRole() If objEH.Finally Then Call OpenInParentWindow ( Request("rfile") &"?"& objPMod.ComposeURL() ) Call CloseWindow() End If End If End If '---------------------------------------------- %> <%=objPMod.ComposeHiddenTags()%>

Grant Role Select Role from the list and click "Grant".

<%If NOT objEH.Finally Then%> <%End If%> <%objEH.DisplayMessage()%> <% OraDatabase.Parameters.Add "USER_ID", Request("user_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "APP_ID", parApp_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("GetUserRoleList.sql"), ORADYN_DEFAULT ) OraDatabase.Parameters.Remove "APP_ID" OraDatabase.Parameters.Remove "USER_ID" While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> <%rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%> <%End If%> <% WEnd %> Role Description "> <%=LIMG_ROLE & rsQry("role_name")%> <%=rsQry("comments")%>

<% '------------ RUN AFTER PAGE RENDER ----------- Set objFormCollector = Nothing '---------------------------------------------- %>