<%@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
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
Set objBtnControl = New ActionButtonControl
'----------------------------------------------
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
%>
<%
' Page Access Condition
If NOT objAccessControl.IsActive("ConfigureBuildService") Then
Response.Redirect("message.asp?msg=401-9")
End If
%>
Project Suffix Administration
<%
' Load some action buttons
Call objBtnControl.LoadActionButtons ( Array("btnEditProjectExtensions", "btnDeleteProjectExtension"), OraDatabase )
objBtnControl.ButtonSpacer = 1
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"))
%>