<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wAddSchedule '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim rsTemp Dim sMessage Dim Query_String '------------ CONSTANTS DECLARATION ----------- Const LIMG_PRODUCT = "" Const LIMG_PRODUCT_UNPACKAGED = "" Const LIMG_PRODUCT_PATCH = "" '------------ VARIABLE INIT ------------------- sMessage = NULL Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Function GetMachType ( ngbe_id ) Dim rsQry, query OraDatabase.Parameters.Add "gbe_id", ngbe_id, ORAPARM_INPUT, ORATYPE_NUMBER query = GetQuery ("GBE_MACHTYPECombo.sql") Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT ) If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then GetMachType = rsQry.GetRows() Else GetMachType = NULL End If rsQry.Close() Set rsQry = Nothing OraDatabase.Parameters.Remove "gbe_id" End Function '-------------------------------------------------------------------------------------------------------------------------- Sub RenderRepeatCombo( cRepeat ) Query_String = "select * from repeat_schedule" Response.Write "" Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0)) Response.Write "Select Repeat Schedule" While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF) If cRepeat = rsTemp.Fields("repeat") Then Response.write ""& rsTemp.Fields("repeat") &"" Else Response.write ""& rsTemp.Fields("repeat") &"" End If rsTemp.MoveNext WEnd rsTemp.Close() Set rsTemp = nothing Response.Write "" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- If CBool(Request("action")) Then If Len(Request("repeat_combo")) > 1 Then Call DisplayInfo ( "REPEAT_SCHEDULE_NOT_SELECTED", "100%" ) Else On Error Resume Next OraDatabase.Parameters.Add "SCHEDULED_PAUSE", Request("scheduled_pause"), ORAPARM_INPUT, ORATYPE_DATE OraDatabase.Parameters.Add "SCHEDULED_RESUME", Request("scheduled_resume"), ORAPARM_INPUT, ORATYPE_DATE OraDatabase.Parameters.Add "REPEAT", Request("repeat_combo"), ORAPARM_INPUT, ORATYPE_CHAR OraDatabase.Parameters.Add "INDEFINITE_PAUSE", Request("indefinite_pause"), ORAPARM_INPUT, ORATYPE_CHAR objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN PK_BUILDAPI.Insert_Schedule_Info ( :SCHEDULED_PAUSE, :SCHEDULED_RESUME, :REPEAT, :INDEFINITE_PAUSE ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "SCHEDULED_PAUSE" OraDatabase.Parameters.Remove "SCHEDULED_RESUME" OraDatabase.Parameters.Remove "REPEAT" OraDatabase.Parameters.Remove "INDEFINITE_PAUSE" If objEH.Finally Then Call OpenInParentWindow ("admin_build_service.asp") Call CloseWindow() End If rsQry.Close() Set rsQry = nothing End If End If '---------------------------------------------- %> <% '-- FROM START -------------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "run_level_schedule" objFormComponent.Action = ScriptName objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

Add SCHEDULE Add a new SCHEDULE.

<%=ProgressBar()%>

<%Call Messenger ( sMessage , 3, "100%" )%> SCHEDULED PAUSE <%=objFormComponent.TextBox ("scheduled_pause", "", "size='20' class='form_ivalue'" )%> SCHEDULED RESUME <%=objFormComponent.TextBox ("scheduled_resume", "", "size='20' class='form_ivalue'" )%> REPEAT SCHEDULED DOWNTIME <% Call RenderRepeatCombo("")%>

<% '------------ RUN AFTER PAGE RENDER ----------- Set objFormCollector = Nothing '---------------------------------------------- Call Destroy_All_Objects %>