<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| _DeleteDaemonInstruction | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub RemoveDaemonInstruction () On Error Resume Next If NOT DaemonInstructionInProgress(Request("inst_id")) Then objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN PK_BUILDAPI.del_daemon_inst("& Request("inst_id") & "); END;" objEH.CatchORA ( OraSession ) Else Call RaiseMsg(enum_MSG_ERROR, "Cannot delete an instruction that is currently being processed by a Daemon") End If End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '**************************** M A I N ****************************** ' --- Form is Valid --- Call RemoveDaemonInstruction() If objEH.Finally Then Call OpenInWindow ( "admin_daemon_instructions.asp" ) End If '********************************************************************** %> <% '------------ RUN AFTER CODE RUN -------------- '---------------------------------------------- '---------------------------------------------- Call Destroy_All_Objects %>