Subversion Repositories DevTools

Rev

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

Rev 5957 Rev 5981
Line 86... Line 86...
86 
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">LICENCE NAME</td>
 86 
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">LICENCE NAME</td>
87 
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Edit</td>
 87 
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Edit</td>
88 
            </tr>
 88 
            </tr>
89 
 
 89 
 
90 
          <%
 90 
          <%
91 
           Dim name, rsQry
 91 
           Dim name, lic_id, rsQry
92 
 
 92 
 
93 
           Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM LICENCES ORDER BY NAME", ORADYN_DEFAULT )
 93 
           Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM LICENCES ORDER BY NAME", ORADYN_DEFAULT )
94 
           While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 94 
           While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
95 
              name = rsQry("name")
 95 
              name = rsQry("name")
- 
 
 96 
              lic_id = rsQry("licence")
96 
              %>
 97 
              %>
97 
              <tr>
98 
              <tr>
98 
                <td background="images/bg_bage_0.gif"></td>
 99 
                <td background="images/bg_bage_0.gif"></td>
99 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=name%></td>
 100 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=name%></td>
100 
                <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
 101 
                <td bgcolor="#FFFFFF" class="body_row" nowrap style="padding-right:0px">
- 
 
 102 
                    <a href="javascript:;" onclick="MM_openVixIFrame('_wform_edit_licences.asp?lic_id=<%=lic_id%>','Edit Licence Name')">
- 
 
 103 
                        <img src="icons/i_edit.gif" width="16" height="16" hspace="2" border="0" align="absmiddle">
- 
 
 104 
                    </a>
- 
 
 105 
                </td>
101 
              </tr>
106 
              </tr>
102 
              <%
 107 
              <%
103 
              rsQry.MoveNext()
 108 
              rsQry.MoveNext()
104 
          Wend
 109 
          Wend
105 
          rsQry.Close()
 110 
          rsQry.Close()
106 
          Set rsQry = nothing
 111 
          Set rsQry = nothing
107 
          %>
 112 
          %>
108
113
109 
        <tr>
 114 
        <tr>
110 
            <td background="images/bg_bage_0.gif"></td>
 115 
            <td background="images/bg_bage_0.gif"></td>
111 
            <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
 116 
            <td bgcolor="#FFFFFF" class="body_row" nowrap colspan="2">
112 
            <td bgcolor="#FFFFFF" class="body_row" nowrap><a href=""><%Call Action_Buttons("Add Licence")%></a></td>
 117 
                <a href=""><%Call Action_Buttons("Add Licence")%></a>
- 
 
 118 
            </td>
113 
        </tr>
 119 
        </tr>
114 
 
 120 
 
115 
    </table>
 121 
    </table>
116 
    <%=objPMod.ComposeHiddenTags()%>
 122 
    <%=objPMod.ComposeHiddenTags()%>
117 
    <input type="hidden" name="action" value="true">
 123 
    <input type="hidden" name="action" value="true">