<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wAddBuildStandard | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim sMessage Dim GBE_BS Dim GBE_BSA_NAME Dim Query_String '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- sMessage = NULL Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% ' Populate a form selection with Build Standards ' sbm_id - Select this bm_id sub getBuildStandardOptions( sbs_id ) Dim rsQry Dim bs_id, bs_name, selected Response.write("- Select One -") Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM BUILD_STANDARDS ORDER BY BS_NAME", ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) bs_id = rsQry("BS_ID") bs_name = rsQry("BS_NAME") If bs_id = sbs_id Then selected = " selected" Else selected = "" End If %> ><%=bs_name%> <% rsQry.MoveNext() Wend rsQry.Close() end sub %> <% '------------ RUN BEFORE PAGE RENDER ---------- If CBool(Request("action")) Then ' Update an existing entry If Request("bsa_id") <> "" Then Query_String = _ " SELECT * FROM BUILD_STANDARDS_ADDENDUM WHERE BSA_ID <> " & Request("bsa_id") & " AND UPPER(BSA_NAME) = UPPER('"& Request("GBE_BSA_NAME") &"')" Set rsQry = OraDatabase.DbCreateDynaset( Query_String, cint(0)) If rsQry.RecordCount = 0 Then OraDatabase.Parameters.Add "BSA_ID", Request("bsa_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BSA_NAME", Request("GBE_BSA_NAME"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "BS_ID", Request("GBE_BS"), ORAPARM_INPUT, ORATYPE_NUMBER objEH.ErrorRedirect = FALSE objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ "BEGIN UPDATE BUILD_STANDARDS_ADDENDUM SET BSA_NAME = :BSA_NAME, BS_ID = :BS_ID WHERE BSA_ID = :BSA_ID; END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "BSA_ID" OraDatabase.Parameters.Remove "BSA_NAME" OraDatabase.Parameters.Remove "BS_ID" If objEH.Finally Then Call OpenInParentWindow ("admin_gbe_buildstandard.asp") Call CloseWindow() End If Else sMessage = "A Build Standard Addendum of that name already exists" End If rsQry.Close Set rsQry = nothing Else ' Create a new entry ' Query_String = _ " SELECT * FROM BUILD_STANDARDS_ADDENDUM WHERE UPPER(BSA_NAME) = UPPER('"& Request("GBE_BSA_NAME") &"')" Set rsQry = OraDatabase.DbCreateDynaset( Query_String, cint(0)) If rsQry.RecordCount = 0 Then OraDatabase.Parameters.Add "BSA_NAME", Request("GBE_BSA_NAME"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "BS_ID", Request("GBE_BS"), ORAPARM_INPUT, ORATYPE_NUMBER objEH.ErrorRedirect = FALSE objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ "BEGIN INSERT INTO BUILD_STANDARDS_ADDENDUM (BSA_NAME, BS_ID) VALUES( :BSA_NAME, :BS_ID); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "BSA_NAME" OraDatabase.Parameters.Remove "BS_ID" If objEH.Finally Then Call OpenInParentWindow ("admin_gbe_buildstandard.asp") Call CloseWindow() End If Else sMessage = "A Build Standard Addendum 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(""GBE_BSA_NAME"",""Build Standard Addendum"",""RLength4:"",""GBE_BS"",""Build Standard"",""R"");return document.MM_returnValue" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

Add a new Build Standard or edit an existing Build Standard.

<%Call Messenger ( sMessage , 3, "100%" )%> <% GBE_BS = Request("GBE_BS") GBE_BSA_NAME = Request("GBE_BSA_NAME") If Request("bsa_id") <> "" Then %> "> <% Dim rsTemp Query_String = "SELECT * FROM BUILD_STANDARDS BS, BUILD_STANDARDS_ADDENDUM BSA WHERE BSA.BS_ID=BS.BS_ID(+) AND BSA_ID = " & Request("bsa_id") Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) GBE_BS = rsTemp("BS_ID") GBE_BSA_NAME = rsTemp("BSA_NAME") rsTemp.Close() Set rsTemp = Nothing End If %> Build Standard <%getBuildStandardOptions(GBE_BS)%> Addendum

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