Subversion Repositories DevTools

Rev

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

Rev 161 Rev 4029
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|				    ADMIN Page			        	 |
 5 
'|                  ADMIN Page                       |
6 
'|                 BUILD MACHINE               		 |
 6 
'|                 BUILD MACHINE                     |
7 
'|                                      			 |
 7 
'|                                                   |
8 
'=====================================================
 8 
'=====================================================
9 
%>
 9 
%>
10 
<%
 10 
<%
11 
Option explicit
 11 
Option explicit
12 
' Good idea to set when using redirect
 12 
' Good idea to set when using redirect
13 
Response.Expires = 0	' always load the page, dont store
 13 
Response.Expires = 0    ' always load the page, dont store
14 
%>
 14 
%>
15 
<!--#include file="common/conf.asp"-->
 15 
<!--#include file="common/conf.asp"-->
16 
<!--#include file="common/globals.asp"-->
 16 
<!--#include file="common/globals.asp"-->
17 
<!--#include file="common/formating.asp"-->
 17 
<!--#include file="common/formating.asp"-->
18 
<!--#include file="common/qstr.asp"-->
 18 
<!--#include file="common/qstr.asp"-->
Line 39... Line 39...
39 
 
 39 
 
40 
 
 40 
 
41 
<%
 41 
<%
42 
' Page Access Condition
 42 
' Page Access Condition
43 
If NOT objAccessControl.IsActive("ConfigureBuildService") Then
 43 
If NOT objAccessControl.IsActive("ConfigureBuildService") Then
44 
	Response.Redirect("message.asp?msg=401-9")
 44 
    Response.Redirect("message.asp?msg=401-9")
45 
End If
 45 
End If
46 
%>
 46 
%>
47 
<html>
 47 
<html>
48 
<head>
 48 
<head>
49 
 
 49 
 
Line 72... Line 72...
72 
  objFormComponent.FormName = "BUILD_MACHINE"
 72 
  objFormComponent.FormName = "BUILD_MACHINE"
73 
  objFormComponent.Action = ScriptName
 73 
  objFormComponent.Action = ScriptName
74 
  objFormComponent.OnSubmit = "ShowProgress();"
 74 
  objFormComponent.OnSubmit = "ShowProgress();"
75 
  Call objFormComponent.FormStart()
 75 
  Call objFormComponent.FormStart()
76 
  %>
76 
  %>
77 
<table width="25%"  border="0" cellspacing="10" cellpadding="0" >
 - 
 
78 
 
 - 
 
79 
<div align="left" class=" body_col">
 77 
  <div class="div_table">
80 
Current List of Build Machines
 78 
    <table border="0" cellspacing="0" cellpadding="0" class="center_table">
81 
</div>
 - 
 
82 
      <tr>
 79 
      <tr>
- 
 
 80 
        <td background="images/bg_bage_0a.gif">
- 
 
 81 
            <div align="center" class=" body_col">Current List of Build Machines</div>
- 
 
 82 
            <table width="100%"  border="0" cellspacing="1" cellpadding="2">
83 
	  <td></td>
 83 
            <tr>
84 
		<!-- BUILD_MACHINE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 84 
            <!-- BUILD_MACHINE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 85 
            <td background="images/bg_bage_0.gif"></td>
85 
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">DISPLAY NAME</td>
 86 
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">DISPLAY NAME</td>
86 
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">MACHINE HOSTNAME</td>
 87 
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">MACHINE HOSTNAME</td>
87 
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">GBE_MACHTYPE</td>
 88 
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">GBE_MACHTYPE</td>
88 
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col" width=250>DESCRIPTION</td>
 89 
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col" width=250>DESCRIPTION</td>
89 
			<td align="left" nowrap background="images/bg_table_col.gif" class="body_col"></td>
90 
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Edit</td>
90 
    </tr>
 91 
            </tr>
91 
 
 92 
 
92 
		  <%
 93 
          <%
93 
		  ' Load some action buttons
 94 
          ' Load some action buttons
94 
		  Call objBtnControl.LoadActionButtons ( Array("btnEditBuildMachine", "btnDeleteBuildMachine"), OraDatabase )
 95 
          Call objBtnControl.LoadActionButtons ( Array("btnEditBuildMachine", "btnDeleteBuildMachine"), OraDatabase )
95 
		  objBtnControl.ButtonSpacer = 1
 96 
          objBtnControl.ButtonSpacer = 1
96
97
97 
		  Dim rsQry
 98 
          Dim rsQry
98 
		  Dim gbe_id, gbe_value
 99 
          Dim gbe_id, gbe_value
99 
		  Dim bmcon_id
 100 
          Dim bmcon_id
100 
		  Dim display_name
 101 
          Dim display_name
101 
		  Dim machine_hostname, description
 102 
          Dim machine_hostname, description
102
103
103 
		  Set rsQry = OraDatabase.DbCreateDynaset( "SELECT bm.bmcon_id, bm.display_name,bm.machine_hostname, bm.description, bm.gbe_id, gb.gbe_value FROM BUILD_MACHINE_CONFIG bm, GBE_MACHTYPE gb WHERE bm.gbe_id = gb.gbe_id ORDER BY bm.display_name", ORADYN_DEFAULT )
 104 
          Set rsQry = OraDatabase.DbCreateDynaset( "SELECT bm.bmcon_id, bm.display_name,bm.machine_hostname, bm.description, bm.gbe_id, gb.gbe_value FROM BUILD_MACHINE_CONFIG bm, GBE_MACHTYPE gb WHERE bm.gbe_id = gb.gbe_id ORDER BY bm.display_name", ORADYN_DEFAULT )
104 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 105 
          While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
105 
		  bmcon_id = rsQry("bmcon_id")
 106 
              bmcon_id = rsQry("bmcon_id")
106 
		  display_name = rsQry("display_name")
 107 
              display_name = rsQry("display_name")
107 
		  machine_hostname = rsQry("machine_hostname")
 108 
              machine_hostname = rsQry("machine_hostname")
108 
		  description = rsQry("description")
 109 
              description = rsQry("description")
109 
		  gbe_id = rsQry("gbe_id")
 110 
              gbe_id = rsQry("gbe_id")
110 
		  gbe_value = rsQry("gbe_value")
 111 
              gbe_value = rsQry("gbe_value")
111 
		  %>
 112 
              %>
112 
          <tr>
113 
              <tr style="vertical-align:top;" >
113 
			<td align="left" valign="top" class="body_txt"></td>
 114 
                <td background="images/bg_bage_0.gif" align="center"></td>
114 
			<td align="left" valign="top" class="body_txt"><%=display_name%></td>
 115 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=display_name%></td>
115 
			<td align="left" valign="top" class="body_txt"><%=machine_hostname%></td>
 116 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=machine_hostname%></td>
116 
         	<td align="left" valign="top" class="body_txt"><%=gbe_value%></td>
 117 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=gbe_value%></td>
117 
			<td align="left" valign="top" class="body_txt"><%=description%></td>
 118 
                <td bgcolor="#FFFFFF" class="body_row" wrap><%=description%></td>
118 
			<td align="left" valign="top" class="body_txt"><%Call objBtnControl.Render  ( Array("btnEditBuildMachine", "btnDeleteBuildMachine"), objAccessControl )%></td>
 119 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%Call objBtnControl.Render( Array("btnEditBuildMachine", "btnDeleteBuildMachine"), objAccessControl )%></td>
119 
		  </tr>
120 
              </tr>
120 
		  <%
 121 
              <%
121 
		  rsQry.MoveNext()
 122 
              rsQry.MoveNext()
122 
		  %>
 - 
 
123 
		  <tr>
 - 
 
124 
            <td colspan="6" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 - 
 
125 
          </tr>
 123 
          Wend
126 
		  <%
 - 
 
127 
		  Wend
 - 
 
128 
		  rsQry.Close()
 124 
          rsQry.Close()
129 
		  Set rsQry = nothing
 125 
          Set rsQry = nothing
130 
		  %>
 126 
          %>
131
127
132 
      <tr>
 128 
      <tr>
- 
 
 129 
        <td background="images/bg_bage_0.gif" align="center"></td>
- 
 
 130 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
- 
 
 131 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
- 
 
 132 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
133 
        <td class="form_iname">&nbsp;</td>
133 
        <td bgcolor="#FFFFFF" class="body_row" nowrap></td>
134 
        <td class="val_err"><a href=""><%Call Action_Buttons ( "Add Build Machine" )%> </a>
 134 
        <td bgcolor="#FFFFFF" class="body_row" nowrap><a href=""><%Call Action_Buttons("Add Build Machine")%> </a>
135 
		<td>&nbsp;</td>
 - 
 
136 
      </tr>
 135 
      </tr>
137 
 
 136 
 
138 
</table>
137 
    </table>
139 
  <%=objPMod.ComposeHiddenTags()%>
 138 
    <%=objPMod.ComposeHiddenTags()%>
140 
    <input type="hidden" name="action" value="true">
 139 
    <input type="hidden" name="action" value="true">
141 
    <%
 - 
 
142 
  Call objFormComponent.FormEnd()
 140 
    <%Call objFormComponent.FormEnd()%>
143 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
 - 
 
144 
%>
 141 
    </table>
145 
 
 142 
    </div>
146 
</body>
 143 
</body>
147 
</html>
 144 
</html>
148 
<!-- FOOTER -->
 145 
<!-- FOOTER -->
149 
<!--#include file="_footer.asp"-->
 146 
<!--#include file="_footer.asp"-->
150 
<%
 147 
<%