Subversion Repositories DevTools

Rev

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

Rev 119 Rev 5096
Line 89... Line 89...
89 
End Sub
 89 
End Sub
90 
'--------------------------------------------------------------------------------------------------------------------------
 90 
'--------------------------------------------------------------------------------------------------------------------------
91 
%>
 91 
%>
92 
<%
 92 
<%
93 
'------------ RUN BEFORE PAGE RENDER ----------
 93 
'------------ RUN BEFORE PAGE RENDER ----------
94 
 
 - 
 
95 
 
 - 
 
96 
If CBool(Request("action")) Then
 94 
If CBool(Request("action")) Then
97 
 
 95 
 
98 
	If Len(Request("repeat_combo")) > 1 Then
 96 
	If Len(Request("repeat_combo")) > 1 Then
99
97
100 
		Call DisplayInfo ( "REPEAT_SCHEDULE_NOT_SELECTED", "100%" )
 98 
		Call DisplayInfo ( "REPEAT_SCHEDULE_NOT_SELECTED", "100%" )
101
99
102 
	Else
 100 
	Else
103 
		On Error Resume Next
 101 
		On Error Resume Next
104 
		OraDatabase.Parameters.Add "SCHEDULED_PAUSE",	Request("scheduled_pause"), 	ORAPARM_INPUT, ORATYPE_DATE
 102 
		OraDatabase.Parameters.Add "SCHEDULED_PAUSE",	Request("scheduled_pause"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
105 
		OraDatabase.Parameters.Add "SCHEDULED_RESUME", 	Request("scheduled_resume"), 	ORAPARM_INPUT, ORATYPE_DATE
 103 
		OraDatabase.Parameters.Add "SCHEDULED_RESUME", 	Request("scheduled_resume"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
106 
		OraDatabase.Parameters.Add "REPEAT", 			Request("repeat_combo"), 	ORAPARM_INPUT, ORATYPE_CHAR
 104 
		OraDatabase.Parameters.Add "REPEAT", 			Request("repeat_combo"), 	    ORAPARM_INPUT, ORATYPE_CHAR
107 
		OraDatabase.Parameters.Add "INDEFINITE_PAUSE",	Request("indefinite_pause"), 	ORAPARM_INPUT, ORATYPE_CHAR
 105 
		OraDatabase.Parameters.Add "INDEFINITE_PAUSE",	Request("indefinite_pause"), 	ORAPARM_INPUT, ORATYPE_CHAR
108
106
109 
		objEH.TryORA ( OraSession )
 107 
		objEH.TryORA ( OraSession )
110
108
111 
		OraDatabase.ExecuteSQL _
 109 
		OraDatabase.ExecuteSQL _
- 
 
 110 
           "BEGIN PK_BUILDAPI.Insert_Schedule_Info ( " &_
- 
 
 111 
                "TO_DATE(:SCHEDULED_PAUSE,'DD-MM-YYYY HH24:MI:SS'), " &_
112 
		"BEGIN PK_BUILDAPI.Insert_Schedule_Info ( :SCHEDULED_PAUSE, :SCHEDULED_RESUME, :REPEAT, :INDEFINITE_PAUSE ); END;"
112 
                "TO_DATE(:SCHEDULED_RESUME,'DD-MM-YYYY HH24:MI:SS'), " &_
- 
 
 113 
                ":REPEAT, " &_
- 
 
 114 
                ":INDEFINITE_PAUSE );" &_
- 
 
 115 
            "END;"
113
116
114 
		objEH.CatchORA ( OraSession )
 117 
		objEH.CatchORA ( OraSession )
115 
 
 118 
 
116 
		OraDatabase.Parameters.Remove "SCHEDULED_PAUSE"
 119 
		OraDatabase.Parameters.Remove "SCHEDULED_PAUSE"
117 
		OraDatabase.Parameters.Remove "SCHEDULED_RESUME"
 120 
		OraDatabase.Parameters.Remove "SCHEDULED_RESUME"
118 
		OraDatabase.Parameters.Remove "REPEAT"
 121 
		OraDatabase.Parameters.Remove "REPEAT"
119 
		OraDatabase.Parameters.Remove "INDEFINITE_PAUSE"
 122 
		OraDatabase.Parameters.Remove "INDEFINITE_PAUSE"
120 
 
 123 
 
121 
		If objEH.Finally Then
 124 
		If objEH.Finally Then
122 
			Call OpenInParentWindow ("admin_build_service.asp")
 125 
			Call OpenInParentWindow ("admin_build_service.asp")
123 
			Call CloseWindow()
 126 
'			Call CloseWindow()
124 
		End If
 127 
		End If
125 
 
 128 
 
126 
		rsQry.Close()
 129 
		rsQry.Close()
127 
		Set rsQry = nothing
 130 
		Set rsQry = nothing
128 
	End If
 131 
	End If