Subversion Repositories DevTools

Rev

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

Rev 6783 Rev 6793
Line 50... Line 50...
50 
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
 50 
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
51 
</head>
 51 
</head>
52 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 52 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
53 
<!-- HEADER -->
 53 
<!-- HEADER -->
54 
<!--#include file="_header.asp"-->
 54 
<!--#include file="_header.asp"-->
55 
 
 - 
 
56 
  <%
 - 
 
57 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
 - 
 
58 
  objFormComponent.FormName = "VCSTYPE"
 - 
 
59 
  objFormComponent.Action = ScriptName
 - 
 
60 
  objFormComponent.OnSubmit = "ShowProgress();"
 - 
 
61 
  Call objFormComponent.FormStart()
 - 
 
62 
  %>
- 
 
63 
  <div class="div_table">
 55 
  <div class="div_table">
64 
    <table class="center_table" >
 56 
        <table border="0" cellspacing="1" cellpadding="2" class="stdBrown center_table">
65 
      <tr>
 - 
 
66 
        <td background="images/bg_bage_0a.gif">
 57 
        <caption>Configured Licences</caption>
67 
            <div align="center" class=" body_col">Configured Licences</div>
 - 
 
68 
            <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 58 
            <thead>
69 
            <tr>
 59 
            <tr>
70 
            <!-- GBE_MACHTYPE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 60 
            <!-- GBE_MACHTYPE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
71 
            <td background="images/bg_bage_0.gif" align="center"></td>
 61 
            <th class="body_col">LICENCE NAME</th>
72 
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">LICENCE NAME</td>
 - 
 
73 
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Edit</td>
 62 
            <th class="body_col">Edit</th>
74 
            </tr>
 63 
            </tr>
- 
 
 64 
            </thead>
75 
 
 65 
 
76 
          <%
 66 
      <%
77 
           Dim name, lic_id, rsQry
 67 
       Dim name, lic_id, rsQry
78 
 
 68 
 
79 
           Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM LICENCES ORDER BY NAME", ORADYN_DEFAULT )
 69 
       Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM LICENCES ORDER BY NAME", ORADYN_DEFAULT )
80 
           While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 70 
       While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
81 
              name = rsQry("name")
 71 
          name = rsQry("name")
82 
              lic_id = rsQry("licence")
 72 
          lic_id = rsQry("licence")
83 
              %>
 - 
 
84 
              <tr>
- 
 
85 
                <td background="images/bg_bage_0.gif"></td>
 - 
 
86 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=name%></td>
 - 
 
87 
                <td bgcolor="#FFFFFF" class="body_row" nowrap style="padding-right:0px">
 - 
 
88 
                  <%If canEdit Then%>
 - 
 
89 
                    <a href="javascript:;" onclick="MM_openVixIFrame('_wform_edit_licences.asp?lic_id=<%=lic_id%>','Edit Licence Name')"><%=LIMG_EDIT%></a>
 - 
 
90 
                  <%Else%>
 - 
 
91 
                    <%=LIMG_EDIT_DISABLED%>
 - 
 
92 
                  <%End If%>
 - 
 
93 
                </td>
 - 
 
94 
              </tr>
- 
 
95 
              <%
 - 
 
96 
              rsQry.MoveNext()
 - 
 
97 
          Wend
 - 
 
98 
          rsQry.Close()
 - 
 
99 
          Set rsQry = nothing
 - 
 
100 
          %>
 73 
          %>
101 
        <tr>
 74 
          <tr>
102 
            <td background="images/bg_bage_0.gif"></td>
 75 
            <td nowrap><%=name%></td>
103 
            <td bgcolor="#FFFFFF" nowrap colspan="2">
 76 
            <td nowrap align=center>
- 
 
 77 
              <%If canEdit Then%>
- 
 
 78 
                <a href="javascript:;" onclick="MM_openVixIFrame('_wform_edit_licences.asp?lic_id=<%=lic_id%>','Edit Licence Name')"><%=LIMG_EDIT%></a>
- 
 
 79 
              <%Else%>
104 
                <%Call Action_Buttons_State("Add Licence", canEdit)%>
 80 
                <%=LIMG_EDIT_DISABLED%>
- 
 
 81 
              <%End If%>
105 
            </td>
 82 
            </td>
106 
        </tr>
 83 
          </tr>
107 
    </table>
 84 
          <%
108 
    <%=objPMod.ComposeHiddenTags()%>
 85 
          rsQry.MoveNext()
- 
 
 86 
      Wend
109 
    <input type="hidden" name="action" value="true">
 87 
      rsQry.Close()
110 
    <%Call objFormComponent.FormEnd()%>
 88 
      Set rsQry = nothing
- 
 
 89 
      %>
- 
 
 90 
    <tr>
- 
 
 91 
        <td nowrap colspan="2"><%Call Action_Buttons_State("Add Licence", canEdit)%></td>
111 
    </table>
 92 
    </tr>
- 
 
 93 
</table>
112 
    </div>
 94 
    </div>
113 
<!-- FOOTER -->
 95 
<!-- FOOTER -->
114 
<!--#include file="_footer.asp"-->
 96 
<!--#include file="_footer.asp"-->
115 
</body>
 97 
</body>
116 
</html>
 98 
</html>