<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| _RemoveControl | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub RemoveControl () On Error Resume Next OraDatabase.Parameters.Add "OBJ_ID_LIST", Request("obj_id_list"), ORAPARM_INPUT, ORATYPE_VARCHAR2 objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Control.Remove_Control ( :OBJ_ID_LIST ); END;" '--- Log Action --- 'objEH.LogAction _ 'objAccessControl.UserId, _ 'enumAT_EVENT_COMMENT, _ '"Sub RemoveProductFromOs PROD_ID_LIST="& Request("prod_id_list") &", OS_ID="& Request("os_id") , _ 'SCRIPT_NAME, _ '"Removed Products from OS.", _ 'OraDatabase objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "OBJ_ID_LIST" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '**************************** M A I N ****************************** ' --- Form is Valid --- Call RemoveControl() If objEH.Finally Then Call OpenInWindow ( Request("rfile") &"?"& objPMod.ComposeURL() ) End If '********************************************************************** %> <% '------------ RUN AFTER CODE RUN -------------- '---------------------------------------------- %>