Subversion Repositories DevTools

Rev

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

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