<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'| |
'| ADMIN Page |
'| |
'=====================================================
%>
<%
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
'----------------------------------------------
%>
<%
' Page Access Condition
If NOT objAccessControl.IsActive("ConfigureBuildService") Then
Response.Redirect("message.asp?msg=401-9")
End If
%>
<%
Sub UpdateBuildInfo()
On Error Resume Next
OraDatabase.Parameters.Add "DATABASE_SERVER", Request("database server"), ORAPARM_INPUT, ORATYPE_VARCHAR2
OraDatabase.Parameters.Add "WEB_SERVER", Request("web server"), ORAPARM_INPUT, ORATYPE_VARCHAR2
OraDatabase.Parameters.Add "MAIL_SERVER", Request("mail server"), ORAPARM_INPUT, ORATYPE_VARCHAR2
OraDatabase.Parameters.Add "BUILD_FAILURE_MAIL_SENDER", Request("build failure mail sender"), ORAPARM_INPUT, ORATYPE_VARCHAR2
objEH.TryORA ( OraSession )
OraDatabase.ExecuteSQL _
"BEGIN PK_BUILDAPI.Update_Build_Service ( :DATABASE_SERVER, :WEB_SERVER, :MAIL_SERVER, :BUILD_FAILURE_MAIL_SENDER ); END;"
objEH.CatchORA ( OraSession )
OraDatabase.Parameters.Remove "DATABASE_SERVER"
OraDatabase.Parameters.Remove "WEB_SERVER"
OraDatabase.Parameters.Remove "MAIL_SERVER"
OraDatabase.Parameters.Remove "BUILD_FAILURE_MAIL_SENDER"
End Sub
%>
<%
If Request("action") = "true" Then
Call UpdateBuildInfo()
If objEH.Finally Then
Response.Redirect("admin.asp")
End If
End If
%>
Buid Service Administration
<%
Dim rsQry, query
query = "SELECT * FROM BUILD_SERVICE_CONFIG"
Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
%>
