Rev 6579 | Rev 6793 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%'=====================================================' admin_build_machine.asp'=====================================================%><%Option explicit' Good idea to set when using redirectResponse.Expires = 0 ' always load the page, dont store%><!--#include file="common/conf.asp"--><!--#include file="common/globals.asp"--><!--#include file="common/formating.asp"--><!--#include file="common/qstr.asp"--><!--#include file="common/common_subs.asp"--><!--#include file="sec/Crypt.asp"--><!--#include file="common/_form_window_common.asp"--><!--#include file="_action_buttons.asp"--><!--#include file="class/classActionButtonControl.asp"--><%'------------ ACCESS CONTROL ------------------%><!--#include file="_access_control_login_optional.asp"--><!--#include file="_access_control_general.asp"--><%'------------ Variable Definition -------------Dim objBtnControlDim bCanEdit'------------ Constants Declaration -----------'------------ Variable Init -------------------Set objBtnControl = New ActionButtonControlbCanEdit = canActionControl("ConfigureBuildService")'----------------------------------------------%><html><head><title>Build Machine Administration</title><link rel="shortcut icon" href="<%=FavIcon%>"/><meta HTTP-EQUIV="Pragma" CONTENT="no-cache"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css"><link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css"><script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script><!--#include file="_jquery_includes.asp"--><!-- DROPDOWN MENUS --><!--#include file="_menu_def.asp"--><script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script></head><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" ><!-- HEADER --><!--#include file="_header.asp"--><%'-- FROM START ---------------------------------------------------------------------------------------------------------objFormComponent.FormName = "BUILD_MACHINE"objFormComponent.Action = ScriptNameobjFormComponent.OnSubmit = "ShowProgress();"Call objFormComponent.FormStart()%><div class="div_table"><table border="0" cellspacing="0" cellpadding="0" class="center_table"><tr><td background="images/bg_bage_0a.gif"><div align="center" class=" body_col">Current List of Build Machines</div><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><!-- BUILD_MACHINE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ --><td background="images/bg_bage_0.gif"></td><td align="left" nowrap background="images/bg_table_col.gif" class="body_col">DISPLAY NAME</td><td align="left" nowrap background="images/bg_table_col.gif" class="body_col">MACHINE HOSTNAME</td><td align="left" nowrap background="images/bg_table_col.gif" class="body_col">GBE_MACHTYPE</td><td align="left" nowrap background="images/bg_table_col.gif" class="body_col">ALLOW USE</td><td align="left" nowrap background="images/bg_table_col.gif" class="body_col" width=250>DESCRIPTION</td><td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Edit</td></tr><%' Load some action buttonsCall objBtnControl.LoadActionButtons ( Array("btnEditBuildMachine", "btnDeleteBuildMachine"), OraDatabase )objBtnControl.ButtonSpacer = 1If NOT bCanEdit ThenCall objBtnControl.Active ( "btnEditBuildMachine", "N" )Call objBtnControl.Active ( "btnDeleteBuildMachine", "N" )End IfDim rsQryDim gbe_id, gbe_valueDim bmcon_idDim display_nameDim machine_hostname, description, active, activeCheckedSet rsQry = OraDatabase.DbCreateDynaset( "SELECT bm.bmcon_id, bm.display_name,bm.machine_hostname, bm.description, bm.gbe_id, bm.active, 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")active = rsQry("active")If active = "Y" Then activeChecked = "checked" Else activeChecked = ""description = rsQry("description")gbe_id = rsQry("gbe_id")gbe_value = rsQry("gbe_value")%><tr style="vertical-align:top;" ><td background="images/bg_bage_0.gif" align="center"></td><td bgcolor="#FFFFFF" class="body_row" nowrap><%=display_name%></td><td bgcolor="#FFFFFF" class="body_row" nowrap><%=machine_hostname%></td><td bgcolor="#FFFFFF" class="body_row" nowrap><%=gbe_value%></td><td bgcolor="#FFFFFF" class="body_row" nowrap><input type="checkbox" disabled <%=activeChecked%> ></td><td bgcolor="#FFFFFF" class="body_row" wrap><%=description%></td><td bgcolor="#FFFFFF" class="body_row" nowrap><%Call objBtnControl.Render( Array("btnEditBuildMachine", "btnDeleteBuildMachine"), objAccessControl )%></td></tr><%rsQry.MoveNext()WendrsQry.Close()Set rsQry = nothing%><tr><td background="images/bg_bage_0.gif" align="center"></td><td bgcolor="#FFFFFF" class="body_row" nowrap></td><td bgcolor="#FFFFFF" class="body_row" nowrap></td><td bgcolor="#FFFFFF" class="body_row" nowrap></td><td bgcolor="#FFFFFF" class="body_row" nowrap></td><td bgcolor="#FFFFFF" class="body_row" nowrap></td><td bgcolor="#FFFFFF" class="body_row" nowrap><%Call Action_Buttons_State("Add Build Machine", bCanEdit)%></tr></table><%=objPMod.ComposeHiddenTags()%><input type="hidden" name="action" value="true"><%Call objFormComponent.FormEnd()%></table></div><!-- FOOTER --><!--#include file="_footer.asp"--></body></html>