<%@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 Dim bCanEdit '------------ Constants Declaration ----------- '------------ Variable Init ------------------- Set objBtnControl = New ActionButtonControl bCanEdit = canActionControl("ConfigureBuildService") '---------------------------------------------- %> GBE Build Standard Addendum
<% ' Load some action buttons Call objBtnControl.LoadActionButtons ( Array("btnEditGBE_BuildStandard", "btnDeleteGBE_BuildStandard"), OraDatabase ) objBtnControl.ButtonSpacer = 1 If NOT bCanEdit Then Call objBtnControl.Active ( "btnEditGBE_BuildStandard", "N" ) Call objBtnControl.Active ( "btnDeleteGBE_BuildStandard", "N" ) End If Dim bsa_id,rsQry ,GBE_VALUE 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") GBE_VALUE = rsQry("bs_name") & " - " & rsQry("bsa_name") %> <% rsQry.MoveNext() Wend rsQry.Close() Set rsQry = nothing %>
Build Standards
Build Standard Sub Type Edit
<%=rsQry("bs_name")%> <%=rsQry("bsa_name")%> <%Call objBtnControl.Render( Array("btnEditGBE_BuildStandard", "btnDeleteGBE_BuildStandard"), objAccessControl )%>
<%Call Action_Buttons_State("Add GBE_BUILDSTANDARD", bCanEdit)%>