<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| ADMIN Page | '| BUILD MACHINE | '| | '===================================================== %> <% 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 objAccessControl.IsActive("ConfigureBuildService") Then Response.Redirect("message.asp?msg=401-9") End If %> Build Machine Administration <% '-- FROM START --------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "BUILD_MACHINE" objFormComponent.Action = ScriptName objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %>
Current List of Build Machines
<% ' Load some action buttons Call objBtnControl.LoadActionButtons ( Array("btnEditBuildMachine", "btnDeleteBuildMachine"), OraDatabase ) objBtnControl.ButtonSpacer = 1 Dim rsQry Dim gbe_id, gbe_value Dim bmcon_id Dim display_name Dim machine_hostname, description Set rsQry = OraDatabase.DbCreateDynaset( "SELECT bm.bmcon_id, bm.display_name,bm.machine_hostname, bm.description, bm.gbe_id, gb.gbe_value FROM BUILD_MACHINE_CONFIG bm, GBE_MACHTYPE gb WHERE bm.gbe_id = gb.gbe_id ORDER BY bm.display_name", ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) bmcon_id = rsQry("bmcon_id") display_name = rsQry("display_name") machine_hostname = rsQry("machine_hostname") description = rsQry("description") gbe_id = rsQry("gbe_id") gbe_value = rsQry("gbe_value") %> <% rsQry.MoveNext() %> <% Wend rsQry.Close() Set rsQry = nothing %>
DISPLAY NAME MACHINE HOSTNAME GBE_MACHTYPE DESCRIPTION
<%=display_name%> <%=machine_hostname%> <%=gbe_value%> <%=description%> <%Call objBtnControl.Render ( Array("btnEditBuildMachine", "btnDeleteBuildMachine"), objAccessControl )%>
  <%Call Action_Buttons ( "Add Build Machine" )%>  
<%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %> <% Call Destroy_All_Objects %>