Subversion Repositories DevTools

Rev

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

Rev 5061 Rev 5096
Line 302... Line 302...
302
                  <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">REPEAT</td>
302
                  <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">REPEAT</td>
303
 
303
 
304
                  <td valign="top"></td>
304
                  <td valign="top"></td>
305
               </tr>
305
               </tr>
306
 
306
 
307
               <%Set rsQry = OraDatabase.DbCreateDynaset( "select * from run_level_schedule", ORADYN_DEFAULT )
307
               <%Set rsQry = OraDatabase.DbCreateDynaset( "select rs.*," &_
-
 
308
                        " TO_CHAR(SCHEDULED_PAUSE ,'Dy DD-Mon-YY HH:MI:SS AM') as fmt_pause," &_
-
 
309
                        " TO_CHAR(SCHEDULED_RESUME ,'Dy DD-Mon-YY HH:MI:SS AM') as fmt_resume," &_
-
 
310
                        " TO_CHAR(SCHEDULED_PAUSE ,'HH:MI:SS AM') as fmt_pause_time," &_
-
 
311
                        " TO_CHAR(SCHEDULED_RESUME ,'HH:MI:SS AM') as fmt_resume_time," &_
-
 
312
                        " TO_CHAR(SCHEDULED_PAUSE ,'Dy HH:MI:SS AM') as fmt_pause_day," &_
-
 
313
                        " TO_CHAR(SCHEDULED_RESUME ,'Dy HH:MI:SS AM') as fmt_resume_day" &_
-
 
314
                        " from run_level_schedule rs order by rs.SCHEDULED_PAUSE", ORADYN_DEFAULT )
-
 
315
 
308
 
316
 
309
               '--- Render rows ---
317
               '--- Render rows ---
310
               Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
318
               Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
311
                  scheduled_id = rsQry("scheduled_id")
319
                  scheduled_id = rsQry("scheduled_id")
312
 
320
 
313
                  If NOT IsNull(rsQry("scheduled_pause")) Then
321
                  If NOT IsNull(rsQry("scheduled_pause")) Then
-
 
322
                    Dim tpause,tresume, trepeat
-
 
323
                    If rsQry("repeat") = 1  Then
-
 
324
                        tpause = rsQry("fmt_pause_time")
-
 
325
                        tresume = rsQry("fmt_resume_time")
-
 
326
                        trepeat = "Daily"
-
 
327
                    ElseIf rsQry("repeat") = 7  Then
-
 
328
                        tpause = rsQry("fmt_pause_day")
-
 
329
                        tresume = rsQry("fmt_resume_day")
-
 
330
                        trepeat = "Weekly"
-
 
331
                    ElseIf rsQry("repeat") = 0  Then
-
 
332
                        tpause = rsQry("fmt_pause")
-
 
333
                        tresume = rsQry("fmt_resume")
-
 
334
                        trepeat = "Once Only"
-
 
335
                    Else
-
 
336
                        tpause = rsQry("fmt_pause")
-
 
337
                        tresume = rsQry("fmt_resume")
-
 
338
                        trepeat = rsQry("repeat")
-
 
339
                    End If
314
                  %>
340
                  %>
315
 
341
 
316
                     <tr>
342
                     <tr>
317
                        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
343
                        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
318
                     </tr>
344
                     </tr>
319
                     <tr>
345
                     <tr>
320
                        <td nowrap class="body_rowg"><%=rsQry("scheduled_pause")%></td>
346
                        <td nowrap class="body_rowg"><%=tpause%></td>
321
                        <td nowrap class="body_rowg"><%=rsQry("scheduled_resume")%></td>
347
                        <td nowrap class="body_rowg"><%=tresume%></td>
322
                        <td nowrap class="body_rowg"><%=rsQry("repeat")%></td>
348
                        <td nowrap class="body_rowg"><%=trepeat%></td>
323
                        <td nowrap class="body_rowg"><%Call objBtnControl.Render  ( Array("btnDeleteSchedule"), objAccessControl )%></td>
349
                        <td nowrap class="body_rowg"><%Call objBtnControl.Render  ( Array("btnDeleteSchedule"), objAccessControl )%></td>
324
                     </tr>
350
                     </tr>
325
                  <%
351
                  <%
326
                  End If
352
                  End If
327
                  rsQry.MoveNext
353
                  rsQry.MoveNext