<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wAddMachClass | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim sMessage Dim GBE_MACHCLASS Dim Query_String '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- sMessage = NULL Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% %> <% '------------ RUN BEFORE PAGE RENDER ---------- If Request("type") = "delete" Then On Error Resume Next OraDatabase.Parameters.Add "BM_ID", Request("BM_ID"), ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN PK_BUILDAPI.REMOVE_BUILDMACHINE ( :BM_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "BM_ID" Call OpenInWindow ("admin_gbe_machclass.asp") ElseIf CBool(Request("action")) Then ' Update an existing entry If Request("bm_id") <> "" Then Query_String = _ " SELECT * FROM BUILD_MACHINES WHERE BM_ID <> " & Request("bm_id") & " AND UPPER(BM_NAME) = UPPER('"& Request("BM_NAME") &"')" Set rsQry = OraDatabase.DbCreateDynaset( Query_String, cint(0)) If rsQry.RecordCount = 0 Then OraDatabase.Parameters.Add "BM_ID", Request("BM_ID"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BM_NAME", Request("BM_NAME"), ORAPARM_INPUT, ORATYPE_VARCHAR2 objEH.ErrorRedirect = FALSE objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ "BEGIN PK_BUILDAPI.UPDATE_BUILDMACHINE(:BM_ID, :BM_NAME); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "BM_NAME" OraDatabase.Parameters.Remove "BM_ID" If objEH.Finally Then Call OpenInParentWindow ("admin_gbe_machclass.asp") Call CloseWindow() End If Else sMessage = "A Machine Type of that name already exists" End If rsQry.Close Set rsQry = nothing Else ' Create a new entry ' Query_String = _ " SELECT * FROM BUILD_MACHINES WHERE UPPER(BM_NAME) = UPPER('"& Request("BM_NAME") &"')" Set rsQry = OraDatabase.DbCreateDynaset( Query_String, cint(0)) If rsQry.RecordCount = 0 Then OraDatabase.Parameters.Add "BM_NAME", Request("BM_NAME"), ORAPARM_INPUT, ORATYPE_VARCHAR2 objEH.ErrorRedirect = FALSE objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ "BEGIN PK_BUILDAPI.ADD_BUILDMACHINE(:BM_NAME); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "BM_NAME" If objEH.Finally Then Call OpenInParentWindow ("admin_gbe_machclass.asp") Call CloseWindow() End If Else sMessage = "A Machine Type of that name already exists" End If rsQry.Close Set rsQry = nothing End If End If '---------------------------------------------- %>

<% '-- FROM START -------------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.FormClass = "form_tight" objFormComponent.Action = ScriptName objFormComponent.OnSubmit = "MM_validateForm(""BM_NAME"",""Machine Type"",""RisCleanStrinLength4:"");return document.MM_returnValue" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

Add a new Machine Type or edit an existing Machine Type.

<%Call Messenger ( sMessage , 1, "100%" )%> <% GBE_MACHCLASS = Request("BM_NAME") If Request("bm_id") <> "" AND GBE_MACHCLASS = "" Then %> "> <% Dim rsTemp Query_String = "SELECT * FROM BUILD_MACHINES BM WHERE BM_ID = "& Request("bm_id") Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) GBE_MACHCLASS = rsTemp("BM_NAME") rsTemp.Close() Set rsTemp = Nothing End If %> Machine Type

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