<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| ADMIN Page | '| Project Suffix | '| | '===================================================== %> <% 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("CreateNewProject") and canActionControl("ConfigureBuildService") '---------------------------------------------- function niceBool (val) if val = "Y" Then niceBool = "Y" Else niceBool = "N" End If End Function function showCheck (val) if val = "Y" Then showCheck = "checked" Else showCheck = "" End If End Function %> Project Suffix Administration
<% ' Load some action buttons Call objBtnControl.LoadActionButtons ( Array("btnEditProjectExtensions", "btnDeleteProjectExtension"), OraDatabase ) objBtnControl.ButtonSpacer = 1 If NOT bCanEdit Then Call objBtnControl.Active ( "btnEditProjectExtensions", "N" ) Call objBtnControl.Active ( "btnDeleteProjectExtension", "N" ) End If Dim rsQry Dim extName Dim comment dim isaCots dim isVis Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM PROJECT_EXTENTIONS pe ORDER BY pe.ext_name", ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) extName = rsQry("EXT_NAME") comment = rsQry("UCOMMENT") isaCots = niceBool(rsQry("IS_COTS")) isVis = niceBool(rsQry("IS_VISIBLE")) %> <% rsQry.MoveNext() Wend rsQry.Close() Set rsQry = nothing %>
Project Suffixes
Suffix Comment Free Form Version Enable Selection Edit
<%=extName%> <%=comment%> > > <%Call objBtnControl.Render ( Array("btnEditProjectExtensions", "btnDeleteProjectExtension"), objAccessControl )%>
<%Call Action_Buttons_State ( "Add Project Extension", bCanEdit )%>