<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wAddBuildMachine | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry, healthTag, cmdInterface, pkgOwner, isInterface, package, procDesc Dim sMessage Dim GBE_MACHTYPE Dim Query_String Dim RecordCount Dim display_name Dim machine_hostname Dim gbe_id Dim description '------------ CONSTANTS DECLARATION ----------- Const LIMG_PRODUCT = "" Const LIMG_PRODUCT_UNPACKAGED = "" Const LIMG_PRODUCT_PATCH = "" '------------ VARIABLE INIT ------------------- sMessage = NULL Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Function GetMachType ( ngbe_id ) Dim rsQry, query OraDatabase.Parameters.Add "gbe_id", ngbe_id, ORAPARM_INPUT, ORATYPE_NUMBER query = GetQuery ("GBE_MACHTYPECombo.sql") Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT ) If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then GetMachType = rsQry.GetRows() Else GetMachType = NULL End If rsQry.Close() Set rsQry = Nothing OraDatabase.Parameters.Remove "gbe_id" End Function '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- If CBool(Request("action")) Then If Request("bmcon_id") <> "" Then OraDatabase.Parameters.Add "BMCON_ID", Request("bmcon_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "DISPLAY_NAME", Request("display_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "MACHINE_HOSTNAME", Request("machine_hostname"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "GBE_ID", Request("gbe_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "DESCRIPTION", Request("description"), ORAPARM_INPUT, ORATYPE_VARCHAR2 objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ "BEGIN PK_BUILDAPI.UPDATE_BUILD_MACHINE(:BMCON_ID, :DISPLAY_NAME, :MACHINE_HOSTNAME, :GBE_ID, :DESCRIPTION); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "BMCON_ID" OraDatabase.Parameters.Remove "DISPLAY_NAME" OraDatabase.Parameters.Remove "MACHINE_HOSTNAME" OraDatabase.Parameters.Remove "GBE_ID" OraDatabase.Parameters.Remove "DESCRIPTION" If objEH.Finally Then Call OpenInParentWindow ("admin_build_machine.asp?bmcon_id="&Request("bmcon_id")) Call CloseWindow() End If rsQry.Close Set rsQry = nothing Else OraDatabase.Parameters.Add "DISPLAY_NAME", Request("display_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "MACHINE_HOSTNAME", Request("machine_hostname"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "GBE_ID", Request("gbe_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "DESCRIPTION", Request("description"), ORAPARM_INPUT, ORATYPE_VARCHAR2 objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ "BEGIN PK_BUILDAPI.ADD_BUILD_MACHINE(:DISPLAY_NAME, :MACHINE_HOSTNAME, :GBE_ID, :DESCRIPTION); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "DISPLAY_NAME" OraDatabase.Parameters.Remove "MACHINE_HOSTNAME" OraDatabase.Parameters.Remove "GBE_ID" OraDatabase.Parameters.Remove "DESCRIPTION" If objEH.Finally Then Call OpenInParentWindow ("admin_build_machine.asp?bmcon_id="&Request("bmcon_id")) Call CloseWindow() End If rsQry.Close Set rsQry = nothing End If End If '---------------------------------------------- %> <% '-- FROM START -------------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.Action = ScriptName objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

Add/Update Build Machine Add a new Build Machine or edit an existing Build Machine.

<%=ProgressBar()%>

<%Call Messenger ( sMessage , 3, "100%" )%> <% If Request("bmcon_id") <> "" Then %> "> <% Dim rsTemp Query_String = "select * from build_machine_config bm, gbe_machtype gbe "&_ " where bm.bmcon_id = "& Request("bmcon_id") &_ " and gbe.gbe_id = bm.gbe_id" Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) display_name = rsTemp("display_name") machine_hostname = rsTemp("machine_hostname") gbe_id = rsTemp("gbe_id") description = rsTemp("description") rsTemp.Close() Set rsTemp = Nothing End If%> Display Name Machine HostName GBE_MACHTYPE <%=objFormComponent.Combo ( "gbe_id", GetMachtype( gbe_id ), FALSE, "size=1 class='body_txt'" )%> Description <%=Description%>

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