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