<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wAddToApplication | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim objFormCollector '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub AddToApplication () On Error Resume Next OraDatabase.Parameters.Add "USER_ID_LIST", Request("user_id"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "APP_ID", Request("new_app_id"), ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL "BEGIN pk_User.Add_Application_User ( :USER_ID_LIST, :APP_ID, NULL ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "USER_ID_LIST" OraDatabase.Parameters.Remove "APP_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- Sub DisplayApplicationCombo() Dim rsQry, sqlStr OraDatabase.Parameters.Add "USER_ID", Request("user_id"), ORAPARM_INPUT, ORATYPE_NUMBER sqlStr = "SELECT app_id, application_name FROM applications WHERE app_id NOT IN " &_ "(SELECT app_id FROM user_applications WHERE user_id = :USER_ID)" Set rsQry = OraDatabase.DbCreateDynaset( sqlStr, cint(0)) If rsQry.BOF OR rsQry.EOF Then Response.write "No Applications Available"& VBNewLine Else Response.write ""& rsQry("application_name") &""& VBNewLine rsQry.MoveNext End If While ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Response.write ""& rsQry("application_name") &""& VBNewLine rsQry.MoveNext WEnd ' Clean up rsQry.Close() Set rsQry = nothing OraDatabase.Parameters.Remove "USER_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- Call GetUserDetails ( parUser_id, objUserCollector ) If Request("action") <> "" AND Request("new_app_id") <> "-1" Then Call AddToApplication() If objEH.Finally Then Call OpenInParentWindow ( Request("rfile") &"?"& objPMod.ComposeURLWith("user_id,tree") ) Call CloseWindow() End If End If '---------------------------------------------- %> <%=objPMod.ComposeHiddenTags()%>

Add Application User Select application name.

<%If NOT objEH.Finally Then%> <%End If%>   <%objEH.DisplayMessage()%> Add <%=objUserCollector("full_name")%> to Application: Application Name <%Call DisplayApplicationCombo()%>

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