<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'| |
'| ADMIN Page |
'| GBE MACHCLASS |
'| |
'=====================================================
%>
<%
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 MachClass Administration
Build Machine Classes
BM Name
Edit
<%
' Load some action buttons
Call objBtnControl.LoadActionButtons ( Array("btnEditGBE_Machclass", "btnDeleteGBE_Machclass"), OraDatabase )
objBtnControl.ButtonSpacer = 1
If NOT bCanEdit Then
Call objBtnControl.Active ( "btnEditGBE_Machclass", "N" )
Call objBtnControl.Active ( "btnDeleteGBE_Machclass", "N" )
End If
Dim rsQry, bm_id,GBE_VALUE
Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM BUILD_MACHINES ORDER BY BM_ID", ORADYN_DEFAULT )
While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
bm_id = rsQry("bm_id")
GBE_VALUE = rsQry("bm_name")
%>