Subversion Repositories DevTools

Rev

Rev 119 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 119 Rev 177
Line 46... Line 46...
46 
<%
 46 
<%
47 
Sub UpdateBuildInfo()
 47 
Sub UpdateBuildInfo()
48 
 
 48 
 
49 
	On Error Resume Next
 49 
	On Error Resume Next
50 
	OraDatabase.Parameters.Add "DATABASE_SERVER", 			Request("database server"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
50 
	OraDatabase.Parameters.Add "DATABASE_SERVER", 			Request("database server"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
51 
	OraDatabase.Parameters.Add "WEB_SERVER", 				Request("web server"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
51 
	OraDatabase.Parameters.Add "ARCHIVE_SERVER", 			Request("archive server"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
52 
	OraDatabase.Parameters.Add "MAIL_SERVER", 				Request("mail server"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 52 
	OraDatabase.Parameters.Add "MAIL_SERVER", 				Request("mail server"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
53 
	OraDatabase.Parameters.Add "BUILD_FAILURE_MAIL_SENDER", Request("build failure mail sender"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
53 
	OraDatabase.Parameters.Add "BUILD_FAILURE_MAIL_SENDER", Request("build failure mail sender"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
54
54
55 
	objEH.TryORA ( OraSession )
 55 
	objEH.TryORA ( OraSession )
56
56
57 
	OraDatabase.ExecuteSQL _
 57 
	OraDatabase.ExecuteSQL _
58 
	"BEGIN PK_BUILDAPI.Update_Build_Service ( :DATABASE_SERVER, :WEB_SERVER, :MAIL_SERVER, :BUILD_FAILURE_MAIL_SENDER ); END;"
58 
	"BEGIN PK_BUILDAPI.Update_Build_Service_Info ( :DATABASE_SERVER, :ARCHIVE_SERVER, :MAIL_SERVER, :BUILD_FAILURE_MAIL_SENDER ); END;"
59
59
60 
	objEH.CatchORA ( OraSession )
 60 
	objEH.CatchORA ( OraSession )
61 
 
 61 
 
62 
	OraDatabase.Parameters.Remove "DATABASE_SERVER"
 62 
	OraDatabase.Parameters.Remove "DATABASE_SERVER"
63 
	OraDatabase.Parameters.Remove "WEB_SERVER"
 63 
	OraDatabase.Parameters.Remove "ARCHIVE_SERVER"
64 
	OraDatabase.Parameters.Remove "MAIL_SERVER"
 64 
	OraDatabase.Parameters.Remove "MAIL_SERVER"
65 
	OraDatabase.Parameters.Remove "BUILD_FAILURE_MAIL_SENDER"
 65 
	OraDatabase.Parameters.Remove "BUILD_FAILURE_MAIL_SENDER"
66 
End Sub
 66 
End Sub
67 
%>
 67 
%>
68 
<%
 68 
<%