<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| ADMIN Page | '| admin_gbe_buildstandard.asp '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim objBtnControl '------------ Constants Declaration ----------- '------------ Variable Init ------------------- Set objBtnControl = New ActionButtonControl '---------------------------------------------- %> <% ' Page Access Condition If NOT canActionControl("ConfigureBuildService") Then Call Destroy_All_Objects Response.Redirect("message.asp?msg=401-9") End If %> GBE Build Standard Addendum <% '-- FROM START --------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "GBE_BUILDSTANDARD" objFormComponent.FormClass = "form_tight" objFormComponent.Action = ScriptName objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %>
Build Standards
<% ' Load some action buttons Call objBtnControl.LoadActionButtons ( Array("btnEditGBE_BuildStandard", "btnDeleteGBE_BuildStandard"), OraDatabase ) objBtnControl.ButtonSpacer = 1 Dim bsa_id,rsQry Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM BUILD_STANDARDS BS, BUILD_STANDARDS_ADDENDUM BSA WHERE BSA.BS_ID=BS.BS_ID(+) ORDER BY BSA.BS_ID, BSA_ID", ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) bsa_id = rsQry("bsa_id") %> <% rsQry.MoveNext() Wend rsQry.Close() Set rsQry = nothing %>
Id Build Standard Sub Type
<%=bsa_id%> <%=rsQry("bs_name")%> <%=rsQry("bsa_name")%> <%Call objBtnControl.Render( Array("btnEditGBE_BuildStandard", "btnDeleteGBE_BuildStandard"), objAccessControl )%>
<%Call Action_Buttons("Add GBE_BUILDSTANDARD")%>
<%=objPMod.ComposeHiddenTags()%> <%Call objFormComponent.FormEnd()%>