Subversion Repositories DevTools

Rev

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

Rev 127 Rev 4029
Line 7... Line 7...
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
' Good idea to set when using redirect
 11 
' Good idea to set when using redirect
12 
Response.Expires = 0   ' always load the page, dont store
 12 
Response.Expires = 0    ' always load the page, dont store
13 
%>
 13 
%>
14 
<!--#include file="common/conf.asp"-->
 14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
 15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
 16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/qstr.asp"-->
 17 
<!--#include file="common/qstr.asp"-->
Line 36... Line 36...
36 
 
 36 
 
37 
 
 37 
 
38 
<%
 38 
<%
39 
' Page Access Condition
 39 
' Page Access Condition
40 
If NOT objAccessControl.IsActive("ConfigureBuildService") Then
 40 
If NOT objAccessControl.IsActive("ConfigureBuildService") Then
41 
   Response.Redirect("message.asp?msg=401-9")
 41 
    Response.Redirect("message.asp?msg=401-9")
42 
End If
 42 
End If
43 
%>
 43 
%>
44 
<html>
 44 
<html>
45 
<head>
 45 
<head>
46 
 
 46 
 
Line 55... Line 55...
55 
<!--#include file="_menu_def.asp"-->
 55 
<!--#include file="_menu_def.asp"-->
56 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
 56 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
57 
</head>
 57 
</head>
58 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 58 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
59 
<!-- MENU LAYERS -------------------------------------->
 59 
<!-- MENU LAYERS -------------------------------------->
60 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
 60 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
61 
</div>
 61 
</div>
62 
<!-- TIPS LAYERS -------------------------------------->
 62 
<!-- TIPS LAYERS -------------------------------------->
63 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 63 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
64 
<!-- HEADER -->
 64 
<!-- HEADER -->
65 
<!--#include file="_header.asp"-->
 65 
<!--#include file="_header.asp"-->
66 
 
 66 
 
67 
<%
 67 
  <%
68 
'-- FROM START ---------------------------------------------------------------------------------------------------------
 68 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
69 
objFormComponent.FormName = "NAME"
 69 
  objFormComponent.FormName = "VCSTYPE"
70 
objFormComponent.Action = ScriptName
 70 
  objFormComponent.Action = ScriptName
71 
objFormComponent.OnSubmit = "ShowProgress();"
 71 
  objFormComponent.OnSubmit = "ShowProgress();"
72 
Call objFormComponent.FormStart()
 72 
  Call objFormComponent.FormStart()
73 
%>
 - 
 
74 
 
 - 
 
75 
<table width="25%"  border="0" cellspacing="10" cellpadding="0" >
 - 
 
76 
 
 - 
 
77 
   <div align="left" class=" body_col">
 - 
 
78 
      Configured Licences
 - 
 
79 
   </div>
 - 
 
80 
   <tr>
 - 
 
81 
      <td></td>
 - 
 
82 
      <!-- GBE_MACHTYPE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 - 
 
83 
      <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">LICENCE NAME</td>
 - 
 
84 
   </tr>
 - 
 
85 
 
 - 
 
86 
   <%
 73 
  %>
87 
   Dim name, rsQry
 74 
  <div class="div_table">
88 
 
 - 
 
89 
   Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM LICENCES ORDER BY NAME", ORADYN_DEFAULT )
 - 
 
90 
   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 - 
 
91 
      name = rsQry("name")
 75 
    <table class="center_table" >
92 
      %>
 - 
 
93 
      <tr>
 76 
      <tr>
- 
 
 77 
        <td background="images/bg_bage_0a.gif">
- 
 
 78 
            <div align="center" class=" body_col">Configured Licences</div>
- 
 
 79 
            <table width="100%"  border="0" cellspacing="1" cellpadding="2">
- 
 
 80 
            <tr>
- 
 
 81 
            <!-- GBE_MACHTYPE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
94 
         <td align="left" valign="top" class="body_txt"></td>
 82 
            <td background="images/bg_bage_0.gif" align="center"></td>
- 
 
 83 
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">LICENCE NAME</td>
95 
         <td align="left" valign="top" class="body_txt"><%=name%></td>
 84 
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Edit</td>
96 
      </tr>
 85 
            </tr>
- 
 
 86 
 
97 
      <%
 87 
          <%
98 
      rsQry.MoveNext()
 88 
           Dim name, rsQry
- 
 
 89 
 
- 
 
 90 
           Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM LICENCES ORDER BY NAME", ORADYN_DEFAULT )
- 
 
 91 
           While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 92 
              name = rsQry("name")
99 
      %>
 93 
              %>
100 
      <tr>
 94 
              <tr>
101 
         <td colspan="6" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 95 
                <td background="images/bg_bage_0.gif"></td>
- 
 
 96 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=name%></td>
- 
 
 97 
                <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
102 
      </tr>
 98 
              </tr>
103 
      <%
 99 
              <%
- 
 
 100 
              rsQry.MoveNext()
104 
   WEnd
 101 
          Wend
105 
   rsQry.Close()
 102 
          rsQry.Close()
106 
   Set rsQry = nothing
 103 
          Set rsQry = nothing
107 
   %>
 104 
          %>
108 
 
 105
109 
   <tr>
 106 
        <tr>
110 
      <td class="form_iname">&nbsp;</td>
 107 
            <td background="images/bg_bage_0.gif"></td>
- 
 
 108 
            <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
111 
      <td class="val_err"><a href=""><%Call Action_Buttons ( "Add Licence" )%> </a>
 109 
            <td bgcolor="#FFFFFF" class="body_row" nowrap><a href=""><%Call Action_Buttons("Add Licence")%></a></td>
112 
      <td>&nbsp;</td>
 - 
 
113 
   </tr>
 110 
        </tr>
114 
 
 111 
 
115 
</table>
 112 
    </table>
116 
<%=objPMod.ComposeHiddenTags()%>
 113 
    <%=objPMod.ComposeHiddenTags()%>
117 
<input type="hidden" name="action" value="true">
 114 
    <input type="hidden" name="action" value="true">
118 
<%
 - 
 
119 
Call objFormComponent.FormEnd()
 115 
    <%Call objFormComponent.FormEnd()%>
120 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
 - 
 
121 
%>
 116 
    </table>
122 
 
 117 
    </div>
123 
</body>
 118 
</body>
124 
</html>
 119 
</html>
125 
<!-- FOOTER -->
 120 
<!-- FOOTER -->
126 
<!--#include file="_footer.asp"-->
 121 
<!--#include file="_footer.asp"-->
127 
<%
 122 
<%