Subversion Repositories DevTools

Rev

Rev 5952 | Rev 6127 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5952 Rev 6123
Line 1493... Line 1493...
1493 
      If NOT CBool(Request("action")) Then Exit Sub
 1493 
      If NOT CBool(Request("action")) Then Exit Sub
1494 
 
 1494 
 
1495 
      Query_String = ReadFile( rootPath & "queries\rep_obsolete_packages.sql" )
 1495 
      Query_String = ReadFile( rootPath & "queries\rep_obsolete_packages.sql" )
1496 
 
 1496 
 
1497 
      OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
 1497 
      OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 1498 
          OraDatabase.Parameters.Add "SMODE", 1, ORAPARM_INPUT, ORATYPE_NUMBER
1498 
      %>
 1499 
      %>
1499 
      <table width="100%" border="0" cellspacing="0" cellpadding="2">
 1500 
      <table width="100%" border="0" cellspacing="0" cellpadding="2">
1500 
         <tr>
 1501 
         <tr>
1501 
            <td width="1%" nowrap class="body_colb">&nbsp;</td>
 1502 
            <td width="1%" nowrap class="body_colb">&nbsp;</td>
1502 
            <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
 1503 
            <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
Line 1510... Line 1511...
1510 
         <%
 1511 
         <%
1511 
         Dim currView_id
 1512 
         Dim currView_id
1512 
         currView_id = -1
 1513 
         currView_id = -1
1513 
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
 1514 
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
1514 
         OraDatabase.Parameters.Remove "RTAG_ID"
 1515 
         OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 1516 
         OraDatabase.Parameters.Remove "SMODE"
1515 
 
 1517 
 
1516 
         If rsRep.RecordCount = 0 Then
 1518 
         If rsRep.RecordCount = 0 Then
1517 
            With Response
 1519 
            With Response
1518 
               .write "<tr>"
 1520 
               .write "<tr>"
1519 
               .write "<td colspan='5' class='body_row'>Found 0 records</td>"
 1521 
               .write "<td colspan='5' class='body_row'>Found 0 records</td>"