<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| _RemoveApplicationUser | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub RemoveApplicationUser () On Error Resume Next OraDatabase.Parameters.Add "USER_ID_LIST", Request("user_id_list"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "APP_ID", Request("app_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "INCLUDE_ALL", Request("everyone"), ORAPARM_INPUT, ORATYPE_CHAR objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL "BEGIN pk_User.Remove_Application_User ( :USER_ID_LIST, :APP_ID, :INCLUDE_ALL ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "USER_ID_LIST" OraDatabase.Parameters.Remove "INCLUDE_ALL" OraDatabase.Parameters.Remove "APP_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '**************************** M A I N ****************************** ' --- Form is Valid --- Call RemoveApplicationUser() If objEH.Finally Then If Request("rfile") = "User_Applications.asp" Then Call OpenInWindow ( Request("rfile") &"?"& objPMod.ComposeURLWith("user_id,tree") ) Else Call OpenInWindow ( Request("rfile") &"?"& objPMod.ComposeURL() ) End If End If '********************************************************************** %> <% '------------ RUN AFTER CODE RUN -------------- '---------------------------------------------- %>