<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' admin_blat_machines.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") '---------------------------------------------- %> Package Replication Administration
<% ' Load some action buttons Call objBtnControl.LoadActionButtons ( Array("btnEditBlatMachine", "btnDeleteBlatMachine"), OraDatabase ) objBtnControl.ButtonSpacer = 1 If NOT bCanEdit Then Call objBtnControl.Active ( "btnEditBlatMachine", "N" ) Call objBtnControl.Active ( "btnDeleteBlatMachine", "N" ) End If Dim rsQry Dim server_id,server_name,display_name, active, mode, description, replicationMode Dim activeChecked Set rsQry = OraDatabase.DbCreateDynaset( "select BLAT_ID, blat_server_name, blat_display_name,blat_enable, blat_mode, blat_description from BLAT_SERVERS order by UPPER(blat_server_name)", ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) server_id = rsQry("BLAT_ID") server_name = rsQry("blat_server_name") display_name = rsQry("blat_display_name") active = rsQry("blat_enable") mode = rsQry("blat_mode") description = rsQry("blat_description") activeChecked = IIF( active = "Y", "checked", "") Select Case mode case "P" replicationMode = "All Projects" case "E" replicationMode = "Entire Archive" case "N" replicationMode = "Release/Package" case else replicationMode = "Unknown" End Select %> <% rsQry.MoveNext() Wend rsQry.Close() Set rsQry = nothing %>
List of Package Replicas
Enabled Server Name Display Name Replication Mode Description Edit
> <%=server_name%> <%=display_name%> <%=replicationMode%> <%=description%> <%Call objBtnControl.Render( Array("btnEditBlatMachine", "btnDeleteBlatMachine"), objAccessControl )%>
<%Call Action_Buttons_State("Add Package Replica", bCanEdit)%>