<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wAddSchedule '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim rsTemp Dim sMessage Dim Query_String '------------ CONSTANTS DECLARATION ----------- '------------ 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 ) Response.Write "" Response.write "Once Only" Response.write "Daily" Response.write "Weekly" 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_VARCHAR2 OraDatabase.Parameters.Add "SCHEDULED_RESUME", Request("scheduled_resume"), ORAPARM_INPUT, ORATYPE_VARCHAR2 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 ( " &_ "TO_DATE(:SCHEDULED_PAUSE,'DY DD-MON-YYYY HH24:MI'), " &_ "TO_DATE(:SCHEDULED_RESUME,'DY DD-MON-YYYY HH24:MI'), " &_ ":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() Call Destroy_All_Objects Response.End End If rsQry.Close() Set rsQry = nothing End If End If '---------------------------------------------- %> <%bJqueryTimePicker = TRUE%>

<% '-- FROM START -------------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "run_level_schedule" objFormComponent.FormClass = "form_tight" objFormComponent.Action = ScriptName objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

<%Call Messenger ( sMessage , 3, "100%" )%> Scheduled Pause <%=objFormComponent.TextBox ("scheduled_pause", "", "size='20' class='form_ivalue' id='scheduled_pause'" )%> Scheduled Resume <%=objFormComponent.TextBox ("scheduled_resume", "", "size='20' class='form_ivalue' id='scheduled_resume'" )%> Repeat <% Call RenderRepeatCombo("")%>

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