Subversion Repositories DevTools

Rev

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

Rev 4029 Rev 4040
Line 91... Line 91...
91 
          <%
 91 
          <%
92 
          ' Load some action buttons
 92 
          ' Load some action buttons
93 
          Call objBtnControl.LoadActionButtons ( Array("btnEditGBE_Machclass", "btnDeleteGBE_Machclass"), OraDatabase )
 93 
          Call objBtnControl.LoadActionButtons ( Array("btnEditGBE_Machclass", "btnDeleteGBE_Machclass"), OraDatabase )
94 
          objBtnControl.ButtonSpacer = 1
 94 
          objBtnControl.ButtonSpacer = 1
95
95
96 
          Dim rsQry
 96 
          Dim rsQry, bm_id
97
97
98 
          Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM BUILD_MACHINES ORDER BY BM_ID", ORADYN_DEFAULT )
 98 
          Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM BUILD_MACHINES ORDER BY BM_ID", ORADYN_DEFAULT )
99 
          While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 99 
          While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
100 
              'gbe_id = rsQry("bm_id")
 100 
              bm_id = rsQry("bm_id")
101 
              %>
 101 
              %>
102 
              <tr>
102 
              <tr>
103 
                <td background="images/bg_bage_0.gif"></td>
 103 
                <td background="images/bg_bage_0.gif"></td>
104 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=rsQry("bm_id")%></td>
 104 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=rsQry("bm_id")%></td>
105 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=rsQry("bm_name")%></td>
 105 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=rsQry("bm_name")%></td>