<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| _SetBaseConf | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub SetBaseConf () On Error Resume Next OraDatabase.Parameters.Add "OS_ID", Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BASE_ENV_ID", Request("base_env_id"), ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Operating_System.Set_Base_Conf ( :OS_ID, :BASE_ENV_ID); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "OS_ID" OraDatabase.Parameters.Remove "BASE_ENV_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '**************************** M A I N ****************************** If (Request("action") <> "") Then ' --- Form is Valid --- Call SetBaseConf() If objEH.Finally Then Call OpenInWindow ( Request("rfile") &"?SET=OK"& objPMod.ComposeURLWithout("rfile") ) End If End If '********************************************************************** %> <% '------------ RUN AFTER CODE RUN -------------- '---------------------------------------------- %>