Subversion Repositories DevTools

Rev

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

Rev 62 Rev 5356
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          wAddNode					 	 |
 5 
'|			          wAddNode					 	 |
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/globals.asp"-->
 13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
 14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_popup_window_common.asp"-->
 16 
<!--#include file="common/_popup_window_common.asp"-->
17 
<%
 17 
<%
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
21 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim objFormCollector
 23 
Dim objFormCollector
24 
Dim parNode_id_list
 24 
Dim parNode_id_list
25 
Dim parNode_type_id
 25 
Dim parNode_type_id
26 
'------------ CONSTANTS DECLARATION -----------
 26 
'------------ CONSTANTS DECLARATION -----------
27 
'------------ VARIABLE INIT -------------------
 27 
'------------ VARIABLE INIT -------------------
28 
 
 28 
 
29 
Call GetMainDBParameters ( dbPARproj_id, dbPARbranch_id, dbPARbom_id, dbPARnode_id, dbPARos_id, dbPARprod_id )
 29 
Call GetMainDBParameters ( dbPARproj_id, dbPARbranch_id, dbPARbom_id, dbPARnode_id, dbPARos_id, dbPARprod_id )
30 
parBom_id = dbPARbom_id
 30 
parBom_id = dbPARbom_id
31 
parNode_id_list = Request("node_id_list")
 31 
parNode_id_list = Request("node_id_list")
32 
parNode_type_id = Request("node_type_id")
 32 
parNode_type_id = Request("node_type_id")
33 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 33 
Set objFormCollector = CreateObject("Scripting.Dictionary")
34 
'------------ CONDITIONS ----------------------
 34 
'------------ CONDITIONS ----------------------
35 
'----------------------------------------------
 35 
'----------------------------------------------
36 
%>
 36 
%>
37 
<%
 37 
<%
38 
'--------------------------------------------------------------------------------------------------------------------------
 38 
'--------------------------------------------------------------------------------------------------------------------------
39 
Sub GetFormDetails ( nNodeId, ByRef outobjDetails )
 39 
Sub GetFormDetails ( nNodeId, ByRef outobjDetails )
40 
	Dim rsQry, query
 40 
	Dim rsQry, query
41
41
42 
	If nNodeId <> "" Then
 42 
	If nNodeId <> "" Then
43 
		OraDatabase.Parameters.Add "NODE_ID", nNodeId,	ORAPARM_INPUT, ORATYPE_NUMBER
43 
		OraDatabase.Parameters.Add "NODE_ID", nNodeId,	ORAPARM_INPUT, ORATYPE_NUMBER
44
44
45 
		Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM NETWORK_NODES WHERE NODE_ID ="& nNodeId, ORADYN_DEFAULT )
 45 
		Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM NETWORK_NODES WHERE NODE_ID ="& nNodeId, ORADYN_DEFAULT )
46 
 
 46 
 
47 
		If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 47 
		If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
48 
			outobjDetails.Item ("node_id") = rsQry("node_id")
 48 
			outobjDetails.Item ("node_id") = rsQry("node_id")
49 
			outobjDetails.Item ("node_name") = rsQry("node_name")
 49 
			outobjDetails.Item ("node_name") = rsQry("node_name")
50 
			outobjDetails.Item ("node_comments") = rsQry("node_comments")
 50 
			outobjDetails.Item ("node_comments") = rsQry("node_comments")
51 
			outobjDetails.Item ("node_type_id") = rsQry("node_type_id")
 51 
			outobjDetails.Item ("node_type_id") = rsQry("node_type_id")
52 
			outobjDetails.Item ("node_version") = rsQry("node_version")
 52 
			outobjDetails.Item ("node_version") = rsQry("node_version")
53 
			outobjDetails.Item ("node_life_cycle") = rsQry("node_life_cycle")
 53 
			outobjDetails.Item ("node_life_cycle") = rsQry("node_life_cycle")
54
54
55 
		Else
 55 
		Else
56 
			Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nNodeId="& nNodeId
 56 
			Err.Raise 8, "Sub GetFormDetails", "Empty record set returned. nNodeId="& nNodeId
57
57
58 
		End If
 58 
		End If
59
59
60 
		OraDatabase.Parameters.Remove "NODE_TYPE_ID"
 60 
		OraDatabase.Parameters.Remove "NODE_TYPE_ID"
61 
		rsQry.Close
 61 
		rsQry.Close
62 
		Set rsQry = Nothing
 62 
		Set rsQry = Nothing
63 
	End If
 63 
	End If
64
64
65
65
66 
	If parNode_type_id <> "" Then
 66 
	If parNode_type_id <> "" Then
67
67
68 
		OraDatabase.Parameters.Add "NODE_TYPE_ID", parNode_type_id,	ORAPARM_INPUT, ORATYPE_NUMBER
68 
		OraDatabase.Parameters.Add "NODE_TYPE_ID", parNode_type_id,	ORAPARM_INPUT, ORATYPE_NUMBER
69
69
70 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("NetworkNodeTypeDetails.sql"), ORADYN_DEFAULT )
 70 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("NetworkNodeTypeDetails.sql"), ORADYN_DEFAULT )
71
71
72 
		If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 72 
		If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
73 
			outobjDetails.Item ("node_type_id")   = rsQry("node_type_id")
 73 
			outobjDetails.Item ("node_type_id")   = rsQry("node_type_id")
74 
			outobjDetails.Item ("node_type")   = rsQry("node_type")
 74 
			outobjDetails.Item ("node_type")   = rsQry("node_type")
75 
			outobjDetails.Item ("node_icon")   = rsQry("node_icon")
 75 
			outobjDetails.Item ("node_icon")   = rsQry("node_icon")
76
76
77 
		End If
 77 
		End If
78 
		OraDatabase.Parameters.Remove "NODE_TYPE_ID"
 78 
		OraDatabase.Parameters.Remove "NODE_TYPE_ID"
79
79
80 
		rsQry.Close
 80 
		rsQry.Close
81 
		Set rsQry = Nothing
 81 
		Set rsQry = Nothing
82 
	End If
 82 
	End If
83
83
84
84
85 
End Sub
 85 
End Sub
86 
'--------------------------------------------------------------------------------------------------------------------------
 86 
'--------------------------------------------------------------------------------------------------------------------------
87 
Function GetNodeTypeList ( nNodeTypeId )
 87 
Function GetNodeTypeList ( nNodeTypeId )
88 
	Dim rsQry, query
 88 
	Dim rsQry, query
89
89
90 
	OraDatabase.Parameters.Add "NODE_TYPE_ID", nNodeTypeId,		ORAPARM_INPUT, ORATYPE_NUMBER
90 
	OraDatabase.Parameters.Add "NODE_TYPE_ID", nNodeTypeId,		ORAPARM_INPUT, ORATYPE_NUMBER
91
91
92 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NetworkNodeTypeCombo.sql"), ORADYN_DEFAULT )
 92 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NetworkNodeTypeCombo.sql"), ORADYN_DEFAULT )
93
93
94 
	If rsQry.RecordCount > 0 Then
 94 
	If rsQry.RecordCount > 0 Then
95 
		GetNodeTypeList = rsQry.GetRows()
 95 
		GetNodeTypeList = rsQry.GetRows()
96
96
97 
	Else
 97 
	Else
98 
		GetNodeTypeList = NULL
 98 
		GetNodeTypeList = NULL
99
99
100 
	End If
 100 
	End If
101
101
102 
	OraDatabase.Parameters.Remove "NODE_TYPE_ID"
 102 
	OraDatabase.Parameters.Remove "NODE_TYPE_ID"
103
103
104 
	rsQry.Close
 104 
	rsQry.Close
105 
	Set rsQry = Nothing
 105 
	Set rsQry = Nothing
106 
End Function
 106 
End Function
107 
'--------------------------------------------------------------------------------------------------------------------------
 107 
'--------------------------------------------------------------------------------------------------------------------------
108 
Sub AddNode ()
 108 
Sub AddNode ()
109 
	On Error Resume Next
 109 
	On Error Resume Next
110
110
111 
	OraDatabase.Parameters.Add "NODE_NAME", 	Request("node_name"), 		ORAPARM_INPUT, ORATYPE_STRING
111 
	OraDatabase.Parameters.Add "NODE_NAME", 	Request("node_name"), 		ORAPARM_INPUT, ORATYPE_STRING
112 
	OraDatabase.Parameters.Add "NODE_TYPE_ID", 	Request("node_type_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
112 
	OraDatabase.Parameters.Add "NODE_TYPE_ID", 	Request("node_type_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
113 
	OraDatabase.Parameters.Add "NODE_COMMENTS", Request("node_comments"), 	ORAPARM_INPUT, ORATYPE_STRING
113 
	OraDatabase.Parameters.Add "NODE_COMMENTS", Request("node_comments"), 	ORAPARM_INPUT, ORATYPE_STRING
114 
	OraDatabase.Parameters.Add "BOM_ID", 		Request("bom_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
114 
	OraDatabase.Parameters.Add "BOM_ID", 		Request("bom_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
115 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
115 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
116
116
117 
	objEH.TryORA ( OraSession )
 117 
	objEH.TryORA ( OraSession )
118
118
119 
	OraDatabase.ExecuteSQL _
 119 
	OraDatabase.ExecuteSQL _
120 
	"BEGIN pk_Network_Node.Add_Node ( :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :BOM_ID, :USER_ID ); END;"
120 
	"BEGIN pk_Network_Node.Add_Node ( :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :BOM_ID, :USER_ID ); END;"
121
121
122 
	objEH.CatchORA ( OraSession )
 122 
	objEH.CatchORA ( OraSession )
123
123
124
124
125 
	OraDatabase.Parameters.Remove "NODE_NAME"
 125 
	OraDatabase.Parameters.Remove "NODE_NAME"
126 
	OraDatabase.Parameters.Remove "NODE_TYPE_ID"
 126 
	OraDatabase.Parameters.Remove "NODE_TYPE_ID"
127 
	OraDatabase.Parameters.Remove "NODE_COMMENTS"
 127 
	OraDatabase.Parameters.Remove "NODE_COMMENTS"
128 
	OraDatabase.Parameters.Remove "BOM_ID"
 128 
	OraDatabase.Parameters.Remove "BOM_ID"
129 
	OraDatabase.Parameters.Remove "USER_ID"
 129 
	OraDatabase.Parameters.Remove "USER_ID"
130
130
131 
End Sub
 131 
End Sub
132 
'--------------------------------------------------------------------------------------------------------------------------
 132 
'--------------------------------------------------------------------------------------------------------------------------
133 
Sub UpdateNode ()
 133 
Sub UpdateNode ()
134 
	On Error Resume Next
 134 
	On Error Resume Next
135
135
136 
	OraDatabase.Parameters.Add "NODE_ID", 				Request("node_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
136 
	OraDatabase.Parameters.Add "NODE_ID", 				Request("node_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
137 
	OraDatabase.Parameters.Add "NODE_NAME", 			Request("node_name"), 		ORAPARM_INPUT, ORATYPE_STRING
137 
	OraDatabase.Parameters.Add "NODE_NAME", 			Request("node_name"), 		ORAPARM_INPUT, ORATYPE_STRING
138 
	OraDatabase.Parameters.Add "NODE_TYPE_ID", 			Request("node_type_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
138 
	OraDatabase.Parameters.Add "NODE_TYPE_ID", 			Request("node_type_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
139 
	OraDatabase.Parameters.Add "NODE_COMMENTS", 		Request("node_comments"), 	ORAPARM_INPUT, ORATYPE_STRING
139 
	OraDatabase.Parameters.Add "NODE_COMMENTS", 		Request("node_comments"), 	ORAPARM_INPUT, ORATYPE_STRING
140 
	OraDatabase.Parameters.Add "USER_ID", 				objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
140 
	OraDatabase.Parameters.Add "USER_ID", 				objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
141 
	OraDatabase.Parameters.Add "NODE_LIFE_CYCLE", 		Request("node_life_cycle"), 	ORAPARM_INPUT, ORATYPE_NUMBER
141 
	OraDatabase.Parameters.Add "NODE_LIFE_CYCLE", 		Request("node_life_cycle"), 	ORAPARM_INPUT, ORATYPE_NUMBER
142
142
143 
	objEH.TryORA ( OraSession )
 143 
	objEH.TryORA ( OraSession )
144
144
145 
	OraDatabase.ExecuteSQL _
 145 
	OraDatabase.ExecuteSQL _
146 
	"BEGIN pk_Network_Node.Update_Node ( :NODE_ID, :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :USER_ID, :NODE_LIFE_CYCLE ); END;"
146 
	"BEGIN pk_Network_Node.Update_Node ( :NODE_ID, :NODE_NAME, :NODE_TYPE_ID, :NODE_COMMENTS, :USER_ID, :NODE_LIFE_CYCLE ); END;"
147
147
148 
	objEH.CatchORA ( OraSession )
 148 
	objEH.CatchORA ( OraSession )
149
149
150
150
151 
	OraDatabase.Parameters.Remove "NODE_NAME"
 151 
	OraDatabase.Parameters.Remove "NODE_NAME"
152 
	OraDatabase.Parameters.Remove "NODE_TYPE_ID"
 152 
	OraDatabase.Parameters.Remove "NODE_TYPE_ID"
153 
	OraDatabase.Parameters.Remove "NODE_COMMENTS"
 153 
	OraDatabase.Parameters.Remove "NODE_COMMENTS"
154 
	OraDatabase.Parameters.Remove "NODE_ID"
 154 
	OraDatabase.Parameters.Remove "NODE_ID"
155 
	OraDatabase.Parameters.Remove "USER_ID"
155 
	OraDatabase.Parameters.Remove "USER_ID"
156 
	OraDatabase.Parameters.Remove "NODE_LIFE_CYCLE"
156 
	OraDatabase.Parameters.Remove "NODE_LIFE_CYCLE"
157
157
158 
End Sub
 158 
End Sub
159 
'--------------------------------------------------------------------------------------------------------------------------
 159 
'--------------------------------------------------------------------------------------------------------------------------
160 
%>
 160 
%>
161 
<%
 161 
<%
162 
'------------ RUN BEFORE PAGE RENDER ----------
 162 
'------------ RUN BEFORE PAGE RENDER ----------
163 
' --- Get Form details from DB ---
 163 
' --- Get Form details from DB ---
164 
Call GetFormDetails ( parNode_id_list, objFormCollector )
 164 
Call GetFormDetails ( parNode_id_list, objFormCollector )
165 
 
 165 
 
166 
' --- Load Validation Rules ---
 166 
' --- Load Validation Rules ---
167 
Call objForm.LoadValidationRules ( Array("node_name","node_comments"), OraDatabase )		' Load Validation Rules
 167 
Call objForm.LoadValidationRules ( Array("node_name","node_comments"), OraDatabase )		' Load Validation Rules
168 
 
 168 
 
169 
' --- Enter Form Validation Rule Changes here... ----
 169 
' --- Enter Form Validation Rule Changes here... ----
170 
'----------------------------------------------------
 170 
'----------------------------------------------------
171 
 
 171 
 
172 
If CBool(Request("action")) Then
 172 
If CBool(Request("action")) Then
173 
	If objForm.IsValidOnPostBack Then
 173 
	If objForm.IsValidOnPostBack Then
174 
		' --- Form is Valid ---
 174 
		' --- Form is Valid ---
175 
		If parNode_id_list <> "" Then
 175 
		If parNode_id_list <> "" Then
176 
			Call UpdateNode()
 176 
			Call UpdateNode()
177 
		Else
 177 
		Else
178 
			Call AddNode()
 178 
			Call AddNode()
179 
		End If
 179 
		End If
180
180
181
181
182
182
183 
		If objEH.Finally Then
 183 
		If objEH.Finally Then
184 
			Call OpenInParentWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") )
 184 
			Call OpenInParentWindow ( Request("rfile") &"?DONE=OK"& objPMod.ComposeURLWithout("rfile") )
185 
			Call CloseWindow()
 185 
			Call CloseWindow()
186 
		End If
 186 
		End If
187
187
188 
	End If
 188 
	End If
189 
End If
 189 
End If
190 
 
 190 
 
191 
'----------------------------------------------
 191 
'----------------------------------------------
192 
%>
 192 
%>
193 
<html>
 193 
<html>
194 
<head>
 194 
<head>
195 
<title>Deployment Manager</title>
 195 
<title>Deployment Manager</title>
196 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 196 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
197 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 197 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
198 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 198 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
199 
<script language="JavaScript" src="scripts/common.js"></script>
 199 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
200 
</head>
 200 
<script language="JavaScript" src="scripts/common.js"></script>
201 
 
 201 
</head>
202 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.node_name.focus();">
 202 
 
203 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 203 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.node_name.focus();">
204 
  <tr>
 204 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
205 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Network Node</span> <br>
 205 
  <tr>
206 
    Enter Node name and optional comments.
206 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Network Node</span> <br>
207 
    </td>
 207 
    Enter Node name and optional comments.
208 
  </tr>
 208 
    </td>
209 
  <%
 209 
  </tr>
210 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
 210 
  <%
211 
  objFormComponent.FormName = "FormName"
 211 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
212 
  objFormComponent.Action = SCRIPT_NAME
 212 
  objFormComponent.FormName = "FormName"
213 
  objFormComponent.OnSubmit = "ShowProgress();"
 213 
  objFormComponent.Action = SCRIPT_NAME
214 
  Call objFormComponent.FormStart()
 214 
  objFormComponent.OnSubmit = "ShowProgress();"
215 
  %>
215 
  Call objFormComponent.FormStart()
216 
  <tr>
 216 
  %>
217 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 217 
  <tr>
218 
      <tr>
 218 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
219 
        <td><%=ProgressBar%></td>
 219 
      <tr>
220 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
 220 
        <td><%=ProgressBar%></td>
221 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 221 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
222 
      </tr>
 222 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
223 
    </table></td>
 223 
      </tr>
224 
  </tr>
 224 
    </table></td>
225 
  <tr>
 225 
  </tr>
226 
    <td>
 226 
  <tr>
227 
	<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
227 
    <td>
228 
	<!--#include file="messages/_msg_inline.asp"-->
 228 
	<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
229 
    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 229 
	<!--#include file="messages/_msg_inline.asp"-->
230 
	<table width="100%"  border="0" cellspacing="2" cellpadding="0">
 230 
    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
231 
      <tr>
 231 
	<table width="100%"  border="0" cellspacing="2" cellpadding="0">
232 
        <td valign="top" nowrap class="form_iname">Node Type </td>
 232 
      <tr>
233 
        <td valign="top" class="body_txt">
 233 
        <td valign="top" nowrap class="form_iname">Node Type </td>
234 
		<%If parNode_type_id <> "" Then%>
 234 
        <td valign="top" class="body_txt">
235 
			<img src="icons/<%=objFormCollector.Item ("node_icon")%>" hspace="2" vspace="2" border="0" align="absmiddle"><%=objFormCollector.Item ("node_type")%>
 235 
		<%If parNode_type_id <> "" Then%>
236 
			<input type="hidden" name="node_type_id" value="<%=parNode_type_id%>">
 236 
			<img src="icons/<%=objFormCollector.Item ("node_icon")%>" hspace="2" vspace="2" border="0" align="absmiddle"><%=objFormCollector.Item ("node_type")%>
237 
		<%Else%>
 237 
			<input type="hidden" name="node_type_id" value="<%=parNode_type_id%>">
238 
			<%=objFormComponent.Combo ( "node_type_id", GetNodeTypeList( objForm.GetValue( "node_type_id", objFormCollector.Item("node_type_id") ) ), FALSE, "class='form_ivalue'" )%>
 238 
		<%Else%>
239 
		<%End If%>
 239 
			<%=objFormComponent.Combo ( "node_type_id", GetNodeTypeList( objForm.GetValue( "node_type_id", objFormCollector.Item("node_type_id") ) ), FALSE, "class='form_ivalue'" )%>
240 
		</td>
 240 
		<%End If%>
241 
		<td valign="top"></td>
 241 
		</td>
242 
      </tr>
 242 
		<td valign="top"></td>
243 
      <tr>
 243 
      </tr>
244 
        <td nowrap class="form_iname" valign="top">Node Name </td>
 244 
      <tr>
245 
        <td valign="top"><%=objFormComponent.TextBox ( "node_name", objForm.GetValue( "node_name", objFormCollector.Item("node_name") ), "size='60' class='form_ivalue'" )%></td>
 245 
        <td nowrap class="form_iname" valign="top">Node Name </td>
246 
		<td valign="top"><%=objForm.Validate ("node_name")%></td>
 246 
        <td valign="top"><%=objFormComponent.TextBox ( "node_name", objForm.GetValue( "node_name", objFormCollector.Item("node_name") ), "size='60' class='form_ivalue'" )%></td>
247 
      </tr>
 247 
		<td valign="top"><%=objForm.Validate ("node_name")%></td>
248 
<%If objFormCollector.Item("node_version") <> "" Then %>
248 
      </tr>
249 
      <tr>
 249 
<%If objFormCollector.Item("node_version") <> "" Then %>
250 
        <td nowrap class="form_iname" valign="top">Node Version </td>
 250 
      <tr>
251 
        <td valign="top"><%=objFormComponent.TextBox ( "node_version", objForm.GetValue( "node_version", objFormCollector.Item("node_version") ), "size='60' class='form_ivalue' disabled" )%></td>
 251 
        <td nowrap class="form_iname" valign="top">Node Version </td>
252 
      </tr>
 252 
        <td valign="top"><%=objFormComponent.TextBox ( "node_version", objForm.GetValue( "node_version", objFormCollector.Item("node_version") ), "size='60' class='form_ivalue' disabled" )%></td>
253 
      <tr>
 253 
      </tr>
254 
        <td nowrap class="form_iname" valign="top">Node LifeCycle </td>
 254 
      <tr>
255 
        <td valign="top"><%=objFormComponent.TextBox ( "node_life_cycle", objForm.GetValue( "node_life_cycle", objFormCollector.Item("node_life_cycle") ), "size='60' class='form_ivalue'" )%></td>
 255 
        <td nowrap class="form_iname" valign="top">Node LifeCycle </td>
256 
      </tr>
256 
        <td valign="top"><%=objFormComponent.TextBox ( "node_life_cycle", objForm.GetValue( "node_life_cycle", objFormCollector.Item("node_life_cycle") ), "size='60' class='form_ivalue'" )%></td>
257 
<%End If%>
257 
      </tr>
258 
      <tr>
 258 
<%End If%>
259 
        <td valign="top" nowrap class="form_iname">Comments</td>
 259 
      <tr>
260 
        <td valign="top"><%=objFormComponent.TextArea ( "node_comments", objForm.GetValue( "node_comments", objFormCollector.Item("node_comments") ), 10, 60, "class='form_ivalue'" )%></td>
 260 
        <td valign="top" nowrap class="form_iname">Comments</td>
261 
		<td valign="top"><%=objForm.Validate ("node_comments")%></td>
 261 
        <td valign="top"><%=objFormComponent.TextArea ( "node_comments", objForm.GetValue( "node_comments", objFormCollector.Item("node_comments") ), 10, 60, "class='form_ivalue'" )%></td>
262 
      </tr>
 262 
		<td valign="top"><%=objForm.Validate ("node_comments")%></td>
263 
      <tr>
 263 
      </tr>
264 
        <td width="10%" class="form_iname">&nbsp;</td>
 264 
      <tr>
265 
        <td width="1%">&nbsp;</td>
 265 
        <td width="10%" class="form_iname">&nbsp;</td>
266 
		<td width="90%" class="val_err"></td>
 266 
        <td width="1%">&nbsp;</td>
267 
      </tr>
 267 
		<td width="90%" class="val_err"></td>
268 
    </table></td>
 268 
      </tr>
269 
  </tr>
 269 
    </table></td>
270 
  <%=objPMod.ComposeHiddenTagsWithout("bom_id")%>
 270 
  </tr>
271 
  <input type="hidden" name="node_id_list" value="<%=parNode_id_list%>">
 271 
  <%=objPMod.ComposeHiddenTagsWithout("bom_id")%>
272 
  <input type="hidden" name="bom_id" value="<%=parBom_id%>">
 272 
  <input type="hidden" name="node_id_list" value="<%=parNode_id_list%>">
273 
  <input type="hidden" name="action" value="true">
 273 
  <input type="hidden" name="bom_id" value="<%=parBom_id%>">
274 
  <%
 274 
  <input type="hidden" name="action" value="true">
275 
  Call objFormComponent.FormEnd()
 275 
  <%
276 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
 276 
  Call objFormComponent.FormEnd()
277 
  %>
 277 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
278 
</table>
 278 
  %>
279 
</body>
 279 
</table>
280 
</html>
 280 
</body>
281 
<%
 281 
</html>
282 
'------------ RUN AFTER PAGE RENDER -----------
 282 
<%
283 
Set objFormCollector = Nothing
 283 
'------------ RUN AFTER PAGE RENDER -----------
284 
'----------------------------------------------
 284 
Set objFormCollector = Nothing
285 
%><!--#include file="common/globals_destructor.asp"-->
 285 
'----------------------------------------------
- 
 
 286 
%><!--#include file="common/globals_destructor.asp"-->