Subversion Repositories DevTools

Rev

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

Rev 4979 Rev 5357
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|                   wAddBuildMachine                |
 5 
'|                   wAddBuildMachine                |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
Response.Expires = 0
 11 
Response.Expires = 0
12 
%>
 12 
%>
13 
<!--#include file="common/conf.asp"-->
 13 
<!--#include file="common/conf.asp"-->
14 
<!--#include file="common/globals.asp"-->
 14 
<!--#include file="common/globals.asp"-->
15 
<!--#include file="common/formating.asp"-->
 15 
<!--#include file="common/formating.asp"-->
16 
<!--#include file="common/qstr.asp"-->
 16 
<!--#include file="common/qstr.asp"-->
17 
<!--#include file="common/common_subs.asp"-->
 17 
<!--#include file="common/common_subs.asp"-->
18 
<!--#include file="common/_form_window_common.asp"-->
 18 
<!--#include file="common/_form_window_common.asp"-->
19 
 
 19 
 
20 
 
 20 
 
21 
<%
 21 
<%
22 
'------------ ACCESS CONTROL ------------------
 22 
'------------ ACCESS CONTROL ------------------
23 
%>
 23 
%>
24 
<!--#include file="_access_control_general.asp"-->
 24 
<!--#include file="_access_control_general.asp"-->
25 
<!--#include file="_access_control_login.asp"-->
 25 
<!--#include file="_access_control_login.asp"-->
26 
<%
 26 
<%
27 
'------------ VARIABLE DEFINITION -------------
 27 
'------------ VARIABLE DEFINITION -------------
28 
Dim rsQry, healthTag, cmdInterface, pkgOwner, isInterface, package, procDesc
 28 
Dim rsQry, healthTag, cmdInterface, pkgOwner, isInterface, package, procDesc
29 
Dim sMessage
 29 
Dim sMessage
30 
Dim GBE_MACHTYPE
 30 
Dim GBE_MACHTYPE
31 
Dim Query_String
 31 
Dim Query_String
32 
Dim RecordCount
 32 
Dim RecordCount
33 
 
 33 
 
34 
Dim display_name
 34 
Dim display_name
35 
Dim machine_hostname
 35 
Dim machine_hostname
36 
Dim gbe_id
 36 
Dim gbe_id
37 
Dim active, activeChecked
 37 
Dim active, activeChecked
38 
Dim description
 38 
Dim description
39 
 
 39 
 
40 
'------------ CONSTANTS DECLARATION -----------
 40 
'------------ CONSTANTS DECLARATION -----------
41 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
 41 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
42 
Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
 42 
Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
43 
Const LIMG_PRODUCT_PATCH = "<img src='icons/i_patch_small.gif' hspace='2' align='absmiddle'>"
 43 
Const LIMG_PRODUCT_PATCH = "<img src='icons/i_patch_small.gif' hspace='2' align='absmiddle'>"
44 
'------------ VARIABLE INIT -------------------
 44 
'------------ VARIABLE INIT -------------------
45 
sMessage = NULL
 45 
sMessage = NULL
46 
 
 46 
 
47 
 
 47 
 
48 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 48 
Set objFormCollector = CreateObject("Scripting.Dictionary")
49 
'------------ CONDITIONS ----------------------
 49 
'------------ CONDITIONS ----------------------
50 
'----------------------------------------------
 50 
'----------------------------------------------
51 
%>
 51 
%>
52 
<%
 52 
<%
53 
'--------------------------------------------------------------------------------------------------------------------------
 53 
'--------------------------------------------------------------------------------------------------------------------------
54 
Function GetMachType ( ngbe_id )
 54 
Function GetMachType ( ngbe_id )
55 
   Dim rsQry, query
 55 
   Dim rsQry, query
56 
 
 56 
 
57 
   OraDatabase.Parameters.Add "gbe_id",   ngbe_id,   ORAPARM_INPUT, ORATYPE_NUMBER
 57 
   OraDatabase.Parameters.Add "gbe_id",   ngbe_id,   ORAPARM_INPUT, ORATYPE_NUMBER
58 
 
 58 
 
59 
   query = GetQuery ("GBE_MACHTYPECombo.sql")
 59 
   query = GetQuery ("GBE_MACHTYPECombo.sql")
60 
 
 60 
 
61 
   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 61 
   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
62 
   If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 62 
   If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
63 
      GetMachType = rsQry.GetRows()
 63 
      GetMachType = rsQry.GetRows()
64 
   Else
 64 
   Else
65 
      GetMachType = NULL
 65 
      GetMachType = NULL
66 
   End If
 66 
   End If
67 
 
 67 
 
68 
   rsQry.Close()
 68 
   rsQry.Close()
69 
   Set rsQry = Nothing
 69 
   Set rsQry = Nothing
70 
 
 70 
 
71 
   OraDatabase.Parameters.Remove "gbe_id"
 71 
   OraDatabase.Parameters.Remove "gbe_id"
72 
End Function
 72 
End Function
73 
'--------------------------------------------------------------------------------------------------------------------------
 73 
'--------------------------------------------------------------------------------------------------------------------------
74 
%>
 74 
%>
75 
<%
 75 
<%
76 
'------------ RUN BEFORE PAGE RENDER ----------
 76 
'------------ RUN BEFORE PAGE RENDER ----------
77 
 
 77 
 
78 
If CBool(Request("action")) Then
 78 
If CBool(Request("action")) Then
79 
 
 79 
 
80 
   If Request("bmcon_id") <> "" Then
 80 
   If Request("bmcon_id") <> "" Then
81 
 
 81 
 
82 
      OraDatabase.Parameters.Add "BMCON_ID",              Request("bmcon_id"),              ORAPARM_INPUT, ORATYPE_NUMBER
 82 
      OraDatabase.Parameters.Add "BMCON_ID",              Request("bmcon_id"),              ORAPARM_INPUT, ORATYPE_NUMBER
83 
      OraDatabase.Parameters.Add "DISPLAY_NAME",          Request("display_name"),          ORAPARM_INPUT, ORATYPE_VARCHAR2
 83 
      OraDatabase.Parameters.Add "DISPLAY_NAME",          Request("display_name"),          ORAPARM_INPUT, ORATYPE_VARCHAR2
84 
      OraDatabase.Parameters.Add "MACHINE_HOSTNAME",      Request("machine_hostname"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
 84 
      OraDatabase.Parameters.Add "MACHINE_HOSTNAME",      Request("machine_hostname"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
85 
      OraDatabase.Parameters.Add "GBE_ID",                Request("gbe_id"),                ORAPARM_INPUT, ORATYPE_NUMBER
 85 
      OraDatabase.Parameters.Add "GBE_ID",                Request("gbe_id"),                ORAPARM_INPUT, ORATYPE_NUMBER
86 
      OraDatabase.Parameters.Add "DESCRIPTION",           Request("description"),           ORAPARM_INPUT, ORATYPE_VARCHAR2
 86 
      OraDatabase.Parameters.Add "DESCRIPTION",           Request("description"),           ORAPARM_INPUT, ORATYPE_VARCHAR2
87 
      OraDatabase.Parameters.Add "ACTIVE",                Request("active"),                ORAPARM_INPUT, ORATYPE_CHAR
 87 
      OraDatabase.Parameters.Add "ACTIVE",                Request("active"),                ORAPARM_INPUT, ORATYPE_CHAR
88 
 
 88 
 
89 
      objEH.TryORA ( OraSession )
 89 
      objEH.TryORA ( OraSession )
90 
      On Error Resume Next
 90 
      On Error Resume Next
91 
 
 91 
 
92 
      OraDatabase.ExecuteSQL _
 92 
      OraDatabase.ExecuteSQL _
93 
      "BEGIN  PK_BUILDAPI.UPDATE_BUILD_MACHINE(:BMCON_ID, :DISPLAY_NAME, :MACHINE_HOSTNAME, :GBE_ID, :DESCRIPTION, :ACTIVE);  END;"
 93 
      "BEGIN  PK_BUILDAPI.UPDATE_BUILD_MACHINE(:BMCON_ID, :DISPLAY_NAME, :MACHINE_HOSTNAME, :GBE_ID, :DESCRIPTION, :ACTIVE);  END;"
94 
 
 94 
 
95 
      objEH.CatchORA ( OraSession )
 95 
      objEH.CatchORA ( OraSession )
96 
 
 96 
 
97 
      OraDatabase.Parameters.Remove "BMCON_ID"
 97 
      OraDatabase.Parameters.Remove "BMCON_ID"
98 
      OraDatabase.Parameters.Remove "DISPLAY_NAME"
 98 
      OraDatabase.Parameters.Remove "DISPLAY_NAME"
99 
      OraDatabase.Parameters.Remove "MACHINE_HOSTNAME"
 99 
      OraDatabase.Parameters.Remove "MACHINE_HOSTNAME"
100 
      OraDatabase.Parameters.Remove "GBE_ID"
 100 
      OraDatabase.Parameters.Remove "GBE_ID"
101 
      OraDatabase.Parameters.Remove "DESCRIPTION"
 101 
      OraDatabase.Parameters.Remove "DESCRIPTION"
102 
      OraDatabase.Parameters.Remove "ACTIVE"
 102 
      OraDatabase.Parameters.Remove "ACTIVE"
103 
 
 103 
 
104 
      If objEH.Finally Then
 104 
      If objEH.Finally Then
105 
         Call OpenInParentWindow ("admin_build_machine.asp?bmcon_id="&Request("bmcon_id"))
 105 
         Call OpenInParentWindow ("admin_build_machine.asp?bmcon_id="&Request("bmcon_id"))
106 
         Call CloseWindow()
 106 
         Call CloseWindow()
107 
      End If
 107 
      End If
108 
 
 108 
 
109 
      rsQry.Close
 109 
      rsQry.Close
110 
      Set rsQry = nothing
 110 
      Set rsQry = nothing
111 
 
 111 
 
112 
   Else
 112 
   Else
113 
      OraDatabase.Parameters.Add "DISPLAY_NAME",          Request("display_name"),          ORAPARM_INPUT, ORATYPE_VARCHAR2
 113 
      OraDatabase.Parameters.Add "DISPLAY_NAME",          Request("display_name"),          ORAPARM_INPUT, ORATYPE_VARCHAR2
114 
      OraDatabase.Parameters.Add "MACHINE_HOSTNAME",      Request("machine_hostname"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
 114 
      OraDatabase.Parameters.Add "MACHINE_HOSTNAME",      Request("machine_hostname"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
115 
      OraDatabase.Parameters.Add "GBE_ID",                Request("gbe_id"),                ORAPARM_INPUT, ORATYPE_NUMBER
 115 
      OraDatabase.Parameters.Add "GBE_ID",                Request("gbe_id"),                ORAPARM_INPUT, ORATYPE_NUMBER
116 
      OraDatabase.Parameters.Add "DESCRIPTION",           Request("description"),           ORAPARM_INPUT, ORATYPE_VARCHAR2
 116 
      OraDatabase.Parameters.Add "DESCRIPTION",           Request("description"),           ORAPARM_INPUT, ORATYPE_VARCHAR2
117 
      OraDatabase.Parameters.Add "ACTIVE",                Request("active"),                ORAPARM_INPUT, ORATYPE_CHAR
 117 
      OraDatabase.Parameters.Add "ACTIVE",                Request("active"),                ORAPARM_INPUT, ORATYPE_CHAR
118 
 
 118 
 
119 
      objEH.TryORA ( OraSession )
 119 
      objEH.TryORA ( OraSession )
120 
      On Error Resume Next
 120 
      On Error Resume Next
121 
 
 121 
 
122 
      OraDatabase.ExecuteSQL _
 122 
      OraDatabase.ExecuteSQL _
123 
      "BEGIN  PK_BUILDAPI.ADD_BUILD_MACHINE(:DISPLAY_NAME, :MACHINE_HOSTNAME, :GBE_ID, :DESCRIPTION, :ACTIVE);  END;"
 123 
      "BEGIN  PK_BUILDAPI.ADD_BUILD_MACHINE(:DISPLAY_NAME, :MACHINE_HOSTNAME, :GBE_ID, :DESCRIPTION, :ACTIVE);  END;"
124 
 
 124 
 
125 
      objEH.CatchORA ( OraSession )
 125 
      objEH.CatchORA ( OraSession )
126 
 
 126 
 
127 
      OraDatabase.Parameters.Remove "DISPLAY_NAME"
 127 
      OraDatabase.Parameters.Remove "DISPLAY_NAME"
128 
      OraDatabase.Parameters.Remove "MACHINE_HOSTNAME"
 128 
      OraDatabase.Parameters.Remove "MACHINE_HOSTNAME"
129 
      OraDatabase.Parameters.Remove "GBE_ID"
 129 
      OraDatabase.Parameters.Remove "GBE_ID"
130 
      OraDatabase.Parameters.Remove "DESCRIPTION"
 130 
      OraDatabase.Parameters.Remove "DESCRIPTION"
131 
      OraDatabase.Parameters.Remove "ACTIVE"
 131 
      OraDatabase.Parameters.Remove "ACTIVE"
132 
 
 132 
 
133 
      If objEH.Finally Then
 133 
      If objEH.Finally Then
134 
         Call OpenInParentWindow ("admin_build_machine.asp?bmcon_id="&Request("bmcon_id"))
 134 
         Call OpenInParentWindow ("admin_build_machine.asp?bmcon_id="&Request("bmcon_id"))
135 
         Call CloseWindow()
 135 
         Call CloseWindow()
136 
      End If
 136 
      End If
137 
 
 137 
 
138 
      rsQry.Close
 138 
      rsQry.Close
139 
      Set rsQry = nothing
 139 
      Set rsQry = nothing
140 
 
 140 
 
141 
   End If
 141 
   End If
142 
 
 142 
 
143 
End If
 143 
End If
144 
 
 144 
 
145 
 
 145 
 
146 
'----------------------------------------------
 146 
'----------------------------------------------
147 
%>
 147 
%>
148 
<html>
 148 
<html>
149 
<head>
 149 
<head>
150 
<title>Release Manager</title>
 150 
<title>Release Manager</title>
151 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 151 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
152 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 152 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
153 
<link href="images/release_manager_style.css" rel="stylesheet" type="text/css">
 153 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
154 
<script language="JavaScript" src="scripts/common.js"></script>
 154 
<link href="images/release_manager_style.css" rel="stylesheet" type="text/css">
155 
</head>
 155 
<script language="JavaScript" src="scripts/common.js"></script>
156 
 
 156 
</head>
157 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.display_name.focus();">
 157 
 
158 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 158 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.display_name.focus();">
159 
   <tr>
 159 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
160 
      <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add/Update Build Machine</span> <br>
 160 
   <tr>
161 
         Add a new Build Machine or edit an existing Build Machine.
 161 
      <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add/Update Build Machine</span> <br>
162 
      </td>
 162 
         Add a new Build Machine or edit an existing Build Machine.
163 
   </tr>
 163 
      </td>
164 
 
 164 
   </tr>
165 
   <%
 165 
 
166 
   '-- FROM START --------------------------------------------------------------------------------------------------------------
 166 
   <%
167 
   objFormComponent.FormName = "FormName"
 167 
   '-- FROM START --------------------------------------------------------------------------------------------------------------
168 
   objFormComponent.Action = ScriptName
 168 
   objFormComponent.FormName = "FormName"
169 
   objFormComponent.OnSubmit = "ShowProgress();"
 169 
   objFormComponent.Action = ScriptName
170 
   Call objFormComponent.FormStart()
 170 
   objFormComponent.OnSubmit = "ShowProgress();"
171 
 
 171 
   Call objFormComponent.FormStart()
172 
   %>
 172 
 
173 
   <tr>
 173 
   %>
174 
      <td background="images/bg_login.gif">
 174 
   <tr>
175 
         <table width="50%"  border="0" cellspacing="0" cellpadding="0">
 175 
      <td background="images/bg_login.gif">
176 
            <tr>
 176 
         <table width="50%"  border="0" cellspacing="0" cellpadding="0">
177 
               <td><%=ProgressBar()%></td>
 177 
            <tr>
178 
               <td align="right"><input name="btn" type="submit" class="form_btn" value="Add/Update">
 178 
               <td><%=ProgressBar()%></td>
179 
                  <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();">
 179 
               <td align="right"><input name="btn" type="submit" class="form_btn" value="Add/Update">
180 
               </td>
 180 
                  <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();">
181 
            </tr>
 181 
               </td>
182 
         </table>
 182 
            </tr>
183 
      </td>
 183 
         </table>
184 
   </tr>
 184 
      </td>
185 
   <tr>
 185 
   </tr>
186 
      <td>
 186 
   <tr>
187 
         <!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 187 
      <td>
188 
         <%Call Messenger ( sMessage , 3, "100%" )%>
 188 
         <!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
189 
         <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 189 
         <%Call Messenger ( sMessage , 3, "100%" )%>
190 
         <!--#include file="messages/_msg_inline.asp"-->
 190 
         <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
191 
         <br>
 191 
         <!--#include file="messages/_msg_inline.asp"-->
192 
         <%
 192 
         <br>
193 
         If Request("bmcon_id") <> "" Then
 193 
         <%
194 
            %>
 194 
         If Request("bmcon_id") <> "" Then
195 
            <input type="hidden" name="bmcon_id" value="<%=Request("bmcon_id")%>">
 195 
            %>
196 
            <%
 196 
            <input type="hidden" name="bmcon_id" value="<%=Request("bmcon_id")%>">
197 
            Dim rsTemp
 197 
            <%
198 
 
 198 
            Dim rsTemp
199 
            Query_String = "select * from build_machine_config bm, gbe_machtype gbe "&_
 199 
 
200 
              " where bm.bmcon_id = "& Request("bmcon_id") &_
 200 
            Query_String = "select * from build_machine_config bm, gbe_machtype gbe "&_
201 
              " and gbe.gbe_id = bm.gbe_id"
 201 
              " where bm.bmcon_id = "& Request("bmcon_id") &_
202
202 
              " and gbe.gbe_id = bm.gbe_id"
203 
            Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 203
204 
 
 204 
            Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
205 
            display_name            =   rsTemp("display_name")
 205 
 
206 
            machine_hostname        =   rsTemp("machine_hostname")
 206 
            display_name            =   rsTemp("display_name")
207 
            gbe_id                  =   rsTemp("gbe_id")
 207 
            machine_hostname        =   rsTemp("machine_hostname")
208 
            active                  =   rsTemp("active")
 208 
            gbe_id                  =   rsTemp("gbe_id")
209 
            description             =   rsTemp("description")
 209 
            active                  =   rsTemp("active")
210 
 
 210 
            description             =   rsTemp("description")
211 
            activeChecked = ""
 211 
 
212 
            if active = "Y" Then activeChecked = "checked"
 212 
            activeChecked = ""
213 
 
 213 
            if active = "Y" Then activeChecked = "checked"
214 
 
 214 
 
215 
            rsTemp.Close()
 215 
 
216 
            Set rsTemp = Nothing
216 
            rsTemp.Close()
217 
          Else
 217 
            Set rsTemp = Nothing
218 
            activeChecked = "checked"
 218 
          Else
219 
          End If%>
 219 
            activeChecked = "checked"
220
220 
          End If%>
221 
         <table width="50%" border="0">
 221
222 
            <tr>
 222 
         <table width="50%" border="0">
223 
               <td><span class="body_txt">Display Name</span></td>
 223 
            <tr>
224 
               <td>
 224 
               <td><span class="body_txt">Display Name</span></td>
225 
                  <input name="display_name" type="text" class="body_txt" value="<%=display_name%>" size=24 maxlength=20>
 225 
               <td>
226 
               </td>
 226 
                  <input name="display_name" type="text" class="body_txt" value="<%=display_name%>" size=24 maxlength=20>
227 
            </tr>
 227 
               </td>
228 
            <tr>
 228 
            </tr>
229 
               <td><span class="body_txt">Machine HostName</span></td>
 229 
            <tr>
230 
               <td>
 230 
               <td><span class="body_txt">Machine HostName</span></td>
231 
                  <input name="machine_hostname" type="text" class="body_txt" value="<%=machine_hostname%>" size=60 maxlength=50>
 231 
               <td>
232 
               </td>
 232 
                  <input name="machine_hostname" type="text" class="body_txt" value="<%=machine_hostname%>" size=60 maxlength=50>
233 
            </tr>
 233 
               </td>
234 
            <tr>
 234 
            </tr>
235 
               <td><span class="body_txt">GBE_MACHTYPE</span></td>
 235 
            <tr>
236 
               <td><%=objFormComponent.Combo ( "gbe_id", GetMachtype( gbe_id ), FALSE, "size=1 class='body_txt'" )%></td>
 236 
               <td><span class="body_txt">GBE_MACHTYPE</span></td>
237 
            </tr>
 237 
               <td><%=objFormComponent.Combo ( "gbe_id", GetMachtype( gbe_id ), FALSE, "size=1 class='body_txt'" )%></td>
238 
            <tr>
 238 
            </tr>
239 
               <td><span class="body_txt">Allow Use</span></td>
 239 
            <tr>
240 
               <td>
 240 
               <td><span class="body_txt">Allow Use</span></td>
241 
                  <input type="checkbox" name="active" value="Y" <%=activeChecked%>>
 241 
               <td>
242 
                  <span class="body_txt">Allow users to add this machine to a build set</span>
 242 
                  <input type="checkbox" name="active" value="Y" <%=activeChecked%>>
243 
               </td>
 243 
                  <span class="body_txt">Allow users to add this machine to a build set</span>
244 
            </tr>
 244 
               </td>
245 
            <tr>
 245 
            </tr>
246 
               <td><span class="body_txt">Description</span></td>
 246 
            <tr>
247 
               <td>
 247 
               <td><span class="body_txt">Description</span></td>
248 
                  <textarea name="Description" cols=50 rows=5 class='body_txt'><%=Description%></textarea>
 248 
               <td>
249 
               </td>
 249 
                  <textarea name="Description" cols=50 rows=5 class='body_txt'><%=Description%></textarea>
250 
            </tr>
 250 
               </td>
251 
            <tr>
 251 
            </tr>
252 
               <td>&nbsp;</td>
 252 
            <tr>
253 
            </tr>
 253 
               <td>&nbsp;</td>
254 
         </table>
 254 
            </tr>
255 
      </td>
 255 
         </table>
256 
   </tr>
 256 
      </td>
257 
   <%=objPMod.ComposeHiddenTags()%>
 257 
   </tr>
258 
   <input type="hidden" name="action" value="true">
 258 
   <%=objPMod.ComposeHiddenTags()%>
259 
 
 259 
   <input type="hidden" name="action" value="true">
260 
   <%
 260 
 
261 
   Call objFormComponent.FormEnd()
 261 
   <%
262 
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
 262 
   Call objFormComponent.FormEnd()
263 
   %>
 263 
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
264 
</table>
 264 
   %>
265 
</body>
 265 
</table>
266 
</html>
 266 
</body>
267 
<%
 267 
</html>
268 
'------------ RUN AFTER PAGE RENDER -----------
 268 
<%
269 
Set objFormCollector = Nothing
 269 
'------------ RUN AFTER PAGE RENDER -----------
270 
'----------------------------------------------
 270 
Set objFormCollector = Nothing
271 
Call Destroy_All_Objects
 271 
'----------------------------------------------
272 
%>
 272 
Call Destroy_All_Objects
273 
 
 273 
%>
274 
 
 274 
 
- 
 
 275