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 
'|	          wUpdateProdAtNodes.asp				 |
 5 
'|	          wUpdateProdAtNodes.asp				 |
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 rsQry
 23 
Dim rsQry
24 
Dim objFormCollector
 24 
Dim objFormCollector
25 
'------------ CONSTANTS DECLARATION -----------
 25 
'------------ CONSTANTS DECLARATION -----------
26 
'------------ VARIABLE INIT -------------------
 26 
'------------ VARIABLE INIT -------------------
27 
parBom_id = Request("bom_id")
 27 
parBom_id = Request("bom_id")
28 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 28 
Set objFormCollector = CreateObject("Scripting.Dictionary")
29 
'------------ CONDITIONS ----------------------
 29 
'------------ CONDITIONS ----------------------
30 
'----------------------------------------------
 30 
'----------------------------------------------
31 
%>
 31 
%>
32 
<%
 32 
<%
33 
'--------------------------------------------------------------------------------------------------------------------------
 33 
'--------------------------------------------------------------------------------------------------------------------------
34 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
 34 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
35 
	Dim rsQry, query
 35 
	Dim rsQry, query
36 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
36 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
37 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	NULL,			ORAPARM_INPUT, ORATYPE_NUMBER
37 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	NULL,			ORAPARM_INPUT, ORATYPE_NUMBER
38
38
39
39
40 
	query = _
 40 
	query = _
41 
	"   SELECT proj.RM_PROJECTS_FK,"&_
 41 
	"   SELECT proj.RM_PROJECTS_FK,"&_
42 
	"		   br.RM_VTREE_FK"&_
 42 
	"		   br.RM_VTREE_FK"&_
43 
	"	  FROM DM_PROJECTS proj,"&_
 43 
	"	  FROM DM_PROJECTS proj,"&_
44 
	"	  	   BRANCHES br,"&_
 44 
	"	  	   BRANCHES br,"&_
45 
	"		   BOMS bo"&_
 45 
	"		   BOMS bo"&_
46 
	"	 WHERE br.PROJ_ID = proj.PROJ_ID"&_
 46 
	"	 WHERE br.PROJ_ID = proj.PROJ_ID"&_
47 
	"	   AND bo.BRANCH_ID = br.BRANCH_ID"&_
 47 
	"	   AND bo.BRANCH_ID = br.BRANCH_ID"&_
48 
	"	   AND bo.BOM_ID = :BOM_ID"
 48 
	"	   AND bo.BOM_ID = :BOM_ID"
49
49
50 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 50 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
51 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
 51 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
52 
		outobjDetails.Item ("rm_projects_fk") = rsQry("rm_projects_fk")
 52 
		outobjDetails.Item ("rm_projects_fk") = rsQry("rm_projects_fk")
53 
		outobjDetails.Item ("rm_vtree_fk") = rsQry("rm_vtree_fk")
 53 
		outobjDetails.Item ("rm_vtree_fk") = rsQry("rm_vtree_fk")
54
54
55 
	End If
 55 
	End If
56
56
57
57
58 
	OraDatabase.Parameters.Remove "BOM_ID"
 58 
	OraDatabase.Parameters.Remove "BOM_ID"
59 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 59 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
60
60
61 
	rsQry.Close
 61 
	rsQry.Close
62 
	Set rsQry = Nothing
 62 
	Set rsQry = Nothing
63 
End Sub
 63 
End Sub
64 
'--------------------------------------------------------------------------------------------------------------------------
 64 
'--------------------------------------------------------------------------------------------------------------------------
65 
Sub AddProd ()
 65 
Sub AddProd ()
66 
	On Error Resume Next
 66 
	On Error Resume Next
67
67
68 
	OraDatabase.Parameters.Add "PROD_ID_LIST", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 68 
	OraDatabase.Parameters.Add "PROD_ID_LIST", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
69 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
69 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
70
70
71
71
72 
	objEH.TryORA ( OraSession )
 72 
	objEH.TryORA ( OraSession )
73
73
74 
	OraDatabase.ExecuteSQL _
 74 
	OraDatabase.ExecuteSQL _
75 
	"BEGIN   pk_Product.Add_Product ( :PROD_ID_LIST, :OS_ID );   END;"
 75 
	"BEGIN   pk_Product.Add_Product ( :PROD_ID_LIST, :OS_ID );   END;"
76
76
77 
	objEH.CatchORA ( OraSession )
 77 
	objEH.CatchORA ( OraSession )
78
78
79
79
80 
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
 80 
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
81 
	OraDatabase.Parameters.Remove "OS_ID"
 81 
	OraDatabase.Parameters.Remove "OS_ID"
82 
End Sub
 82 
End Sub
83 
'--------------------------------------------------------------------------------------------------------------------------
 83 
'--------------------------------------------------------------------------------------------------------------------------
84 
Function SearchPackageNames ( SSpkgfind )
 84 
Function SearchPackageNames ( SSpkgfind )
85 
	Dim pkg_name_like, SQLor, pkglistARR
 85 
	Dim pkg_name_like, SQLor, pkglistARR
86
86
87 
	SQLor = ""
 87 
	SQLor = ""
88 
	If Len( Replace( SSpkgfind, " ", "" ) ) = 0 Then
 88 
	If Len( Replace( SSpkgfind, " ", "" ) ) = 0 Then
89 
		' Show all pkg names
 89 
		' Show all pkg names
90 
		SQLor = " OR pkg.pkg_name LIKE '%'"
 90 
		SQLor = " OR pkg.pkg_name LIKE '%'"
91
91
92 
	Else
 92 
	Else
93 
		' Search for ...
 93 
		' Search for ...
94 
		pkglistARR = Split( Trim( SSpkgfind ), " ")
 94 
		pkglistARR = Split( Trim( SSpkgfind ), " ")
95
95
96 
		If Ubound( pkglistARR ) > 0 Then
 96 
		If Ubound( pkglistARR ) > 0 Then
97 
			' Multiple pkg_name search
 97 
			' Multiple pkg_name search
98 
			For Each pkg_name_like In pkglistARR
 98 
			For Each pkg_name_like In pkglistARR
99 
				If pkg_name_like <> "" Then
 99 
				If pkg_name_like <> "" Then
100 
					SQLor = SQLor &" OR UPPER(pkg.pkg_name) LIKE UPPER('%"& pkg_name_like &"%')"
 100 
					SQLor = SQLor &" OR UPPER(pkg.pkg_name) LIKE UPPER('%"& pkg_name_like &"%')"
101 
				End If
 101 
				End If
102 
			Next
 102 
			Next
103
103
104 
		Else
 104 
		Else
105 
			' Single pkg_name search
 105 
			' Single pkg_name search
106 
			SQLor = " OR UPPER(pkg.pkg_name) LIKE UPPER('%"& Trim( SSpkgfind ) &"%')"
 106 
			SQLor = " OR UPPER(pkg.pkg_name) LIKE UPPER('%"& Trim( SSpkgfind ) &"%')"
107 
		End If
 107 
		End If
108
108
109 
	End If
 109 
	End If
110
110
111 
	Search_For_Package_Names = _
 111 
	Search_For_Package_Names = _
112 
	" SELECT pkg.*"&_
 112 
	" SELECT pkg.*"&_
113 
	"  FROM packages pkg"&_
 113 
	"  FROM packages pkg"&_
114 
	" WHERE pkg.pkg_id != 0"&_
 114 
	" WHERE pkg.pkg_id != 0"&_
115 
	"   AND ( pkg.pkg_name = ''"&_
 115 
	"   AND ( pkg.pkg_name = ''"&_
116 
	SQLor &_
 116 
	SQLor &_
117 
	"       )"&_
 117 
	"       )"&_
118 
	"ORDER BY UPPER(pkg.pkg_name)"
 118 
	"ORDER BY UPPER(pkg.pkg_name)"
119
119
120 
End Function
 120 
End Function
121 
'--------------------------------------------------------------------------------------------------------------------------
 121 
'--------------------------------------------------------------------------------------------------------------------------
122 
%>
 122 
%>
123 
<%
 123 
<%
124 
'------------ RUN BEFORE PAGE RENDER ----------
 124 
'------------ RUN BEFORE PAGE RENDER ----------
125 
If CBool(Request("action")) Then
 125 
If CBool(Request("action")) Then
126 
	If Request("prod_id_list") <> "" Then
 126 
	If Request("prod_id_list") <> "" Then
127 
		'-- Add Product List
 127 
		'-- Add Product List
128 
		Call AddProd()
 128 
		Call AddProd()
129
129
130 
		If objEH.Finally Then
 130 
		If objEH.Finally Then
131 
			Call OpenInParentWindow ( Request("rfile") &"?"& objPMod.ComposeURL() )
 131 
			Call OpenInParentWindow ( Request("rfile") &"?"& objPMod.ComposeURL() )
132 
			Call CloseWindow()
 132 
			Call CloseWindow()
133 
		End If
 133 
		End If
134
134
135
135
136 
	ElseIf Request("prod_name") <> "" Then
 136 
	ElseIf Request("prod_name") <> "" Then
137 
		'-- Product Search
 137 
		'-- Product Search
138
138
139
139
140 
	End If
 140 
	End If
141
141
142 
End If
 142 
End If
143 
 
 143 
 
144 
Call GetFormDetails ( parBom_id, objFormCollector )
 144 
Call GetFormDetails ( parBom_id, objFormCollector )
145 
'----------------------------------------------
 145 
'----------------------------------------------
146 
%>
 146 
%>
147 
<html>
 147 
<html>
148 
<head>
 148 
<head>
149 
<title>Deployment Manager</title>
 149 
<title>Deployment Manager</title>
150 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 150 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
151 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 151 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
152 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 152 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
153 
<script language="JavaScript" src="scripts/common.js"></script>
 153 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
154 
</head>
 154 
<script language="JavaScript" src="scripts/common.js"></script>
155 
 
 155 
</head>
156 
<body background="images/bg_form.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
 156 
 
157 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 157 
<body background="images/bg_form.gif" leftmargin="0" topmargin="0" onLoad="self.focus();">
158 
  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
 158 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
159 
  <tr>
 159 
  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>">
160 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 160 
  <tr>
161 
      <tr>
 161 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
162 
        <td>&nbsp;</td>
 162 
      <tr>
163 
        <td align="right">
 163 
        <td>&nbsp;</td>
164 
		  <input name="btn" type="submit" class="form_btn" value="&laquo; Back">
 164 
        <td align="right">
165 
		  <input name="btn" type="submit" class="form_btn" value="Next &raquo;">&nbsp;
 165 
		  <input name="btn" type="submit" class="form_btn" value="&laquo; Back">
166 
		  <input name="btn" type="submit" class="form_btn" value="Finish">&nbsp;
 166 
		  <input name="btn" type="submit" class="form_btn" value="Next &raquo;">&nbsp;
167 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 167 
		  <input name="btn" type="submit" class="form_btn" value="Finish">&nbsp;
168 
      </tr>
 168 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
169 
    </table></td>
 169 
      </tr>
170 
  </tr>
 170 
    </table></td>
171 
  <tr>
 171 
  </tr>
172 
    <td class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add Product </span> <br>
 172 
  <tr>
173 
    Product is Found   Search for Product or select from &quot;Recently Released Products&quot;.
 173 
    <td class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add Product </span> <br>
174 
      <hr width="100%" size="1" noshade color="#ACA899"></td>
 174 
    Product is Found   Search for Product or select from &quot;Recently Released Products&quot;.
175 
  </tr>
 175 
      <hr width="100%" size="1" noshade color="#ACA899"></td>
176 
  <tr>
 176 
  </tr>
177 
    <td>
 177 
  <tr>
178 
<!-- RECENT PRODUCTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
178 
    <td>
179 
	<span class="body_colb">Product Found At Other Locations</span>
179 
<!-- RECENT PRODUCTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
180 
	<table width="100%"  border="0" cellspacing="3" cellpadding="0">
 180 
	<span class="body_colb">Product Found At Other Locations</span>
181 
      <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 181 
	<table width="100%"  border="0" cellspacing="3" cellpadding="0">
182 
      <%If NOT objEH.Finally Then%>
 182 
      <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
183 
      <tr>
 183 
      <%If NOT objEH.Finally Then%>
184 
        <td><img src="images/spacer.gif" width="1" height="1"></td>
 184 
      <tr>
185 
        <td colspan="2">
 185 
        <td><img src="images/spacer.gif" width="1" height="1"></td>
186 
          <%objEH.DisplayMessage()%>
 186 
        <td colspan="2">
187 
        </td>
 187 
          <%objEH.DisplayMessage()%>
188 
      </tr>
 188 
        </td>
189 
      <%End If%>
 189 
      </tr>
190 
      <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 190 
      <%End If%>
191 
      <tr>
 191 
      <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
192 
        <td width="1" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 192 
      <tr>
193 
        <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
 193 
        <td width="1" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
194 
            <tr>
 194 
        <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
195 
              <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Products</td>
 195 
            <tr>
196 
            </tr>
 196 
              <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">Products</td>
197 
        </table></td>
 197 
            </tr>
198 
        <td width="70%" align="right" background="images/bg_table_col.gif" class="body_col"></td>
 198 
        </table></td>
199 
      </tr>
 199 
        <td width="70%" align="right" background="images/bg_table_col.gif" class="body_col"></td>
200 
      <%
 200 
      </tr>
201 
	  ' -- Only run if links with Release Manager
 201 
      <%
202 
	  If (objFormCollector.Item("rm_projects_fk") <> "")  AND  (objFormCollector.Item("rm_vtree_fk") <> "") Then
 202 
	  ' -- Only run if links with Release Manager
203
203 
	  If (objFormCollector.Item("rm_projects_fk") <> "")  AND  (objFormCollector.Item("rm_vtree_fk") <> "") Then
204 
		  OraDatabase.Parameters.Add "RM_PROJECTS_FK", 			objFormCollector.Item("rm_projects_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
204
205 
		  OraDatabase.Parameters.Add "RM_VTREE_FK", 			objFormCollector.Item("rm_vtree_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
205 
		  OraDatabase.Parameters.Add "RM_PROJECTS_FK", 			objFormCollector.Item("rm_projects_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
206 
		  OraDatabase.Parameters.Add "RM_PRODUCTS_BASE_VIEW", 	enumPRODUCTS_BASE_VIEW_ID,					ORAPARM_INPUT, ORATYPE_NUMBER
206 
		  OraDatabase.Parameters.Add "RM_VTREE_FK", 			objFormCollector.Item("rm_vtree_fk"),		ORAPARM_INPUT, ORATYPE_NUMBER
207 
		  OraDatabase.Parameters.Add "DAYS_BACK_IN_TIME", 		enumRELEASES_DAYS_BACK_IN_TIME,				ORAPARM_INPUT, ORATYPE_NUMBER
207 
		  OraDatabase.Parameters.Add "RM_PRODUCTS_BASE_VIEW", 	enumPRODUCTS_BASE_VIEW_ID,					ORAPARM_INPUT, ORATYPE_NUMBER
208 
		  OraDatabase.Parameters.Add "BOM_ID", 					parBom_id,									ORAPARM_INPUT, ORATYPE_NUMBER
208 
		  OraDatabase.Parameters.Add "DAYS_BACK_IN_TIME", 		enumRELEASES_DAYS_BACK_IN_TIME,				ORAPARM_INPUT, ORATYPE_NUMBER
209
209 
		  OraDatabase.Parameters.Add "BOM_ID", 					parBom_id,									ORAPARM_INPUT, ORATYPE_NUMBER
210 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("LatestRecentlyReleasedProducts.sql"), ORADYN_DEFAULT )
 210
211 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 211 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("LatestRecentlyReleasedProducts.sql"), ORADYN_DEFAULT )
212 
		  %>
 212 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
213 
      <tr>
 213 
		  %>
214 
        <td nowrap class="form_iname"><input type="checkbox" name="prod_at_os" value="<%=rsQry("prod_id")%>" <%=rsQry("used")%>></td>
 214 
      <tr>
215 
        <td valign="top" nowrap class="body_txt"><img src="icons/i_product.gif" width="19" height="19" hspace="2" align="absmiddle"><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%></td>
 215 
        <td nowrap class="form_iname"><input type="checkbox" name="prod_at_os" value="<%=rsQry("prod_id")%>" <%=rsQry("used")%>></td>
216 
        <td valign="top" class="body_rowg"><%If NOT IsNull(rsQry("used")) Then%>Already Added.<%End If%></td>
 216 
        <td valign="top" nowrap class="body_txt"><img src="icons/i_product.gif" width="19" height="19" hspace="2" align="absmiddle"><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%></td>
217 
      </tr>
 217 
        <td valign="top" class="body_rowg"><%If NOT IsNull(rsQry("used")) Then%>Already Added.<%End If%></td>
218 
      <%rsQry.MoveNext%>
 218 
      </tr>
219 
      <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
 219 
      <%rsQry.MoveNext%>
220 
      <tr>
 220 
      <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
221 
        <td colspan="3" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 221 
      <tr>
222 
      </tr>
 222 
        <td colspan="3" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
223 
      <%End If%>
 223 
      </tr>
224 
      <%
 224 
      <%End If%>
225 
		  WEnd
 225 
      <%
226
226 
		  WEnd
227 
		  OraDatabase.Parameters.Remove "RM_PROJECTS_FK"
 227
228 
		  OraDatabase.Parameters.Remove "RM_VTREE_FK"
 228 
		  OraDatabase.Parameters.Remove "RM_PROJECTS_FK"
229 
		  OraDatabase.Parameters.Remove "RM_PRODUCTS_BASE_VIEW"
 229 
		  OraDatabase.Parameters.Remove "RM_VTREE_FK"
230 
		  OraDatabase.Parameters.Remove "DAYS_BACK_IN_TIME"
 230 
		  OraDatabase.Parameters.Remove "RM_PRODUCTS_BASE_VIEW"
231 
		  OraDatabase.Parameters.Remove "BOM_ID"
 231 
		  OraDatabase.Parameters.Remove "DAYS_BACK_IN_TIME"
232
232 
		  OraDatabase.Parameters.Remove "BOM_ID"
233 
	  End If
 233
234 
	  %>
 234 
	  End If
235 
      <tr>
 235 
	  %>
236 
        <td colspan="3" background="images/bg_table_border.gif">
 236 
      <tr>
237 
          <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 237 
        <td colspan="3" background="images/bg_table_border.gif">
238 
            <tr>
 238 
          <table width="100%"  border="0" cellspacing="1" cellpadding="2">
239 
              <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 239 
            <tr>
240 
            </tr>
 240 
              <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
241 
        </table></td>
 241 
            </tr>
242 
      </tr>
 242 
        </table></td>
243 
    </table>
 243 
      </tr>
244 
<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
244 
    </table>
245 
	</td>
 245 
<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
246 
  </tr>
 246 
	</td>
247 
  <%Response.write Request("prod_id_list") &"<br>"%>
 247 
  </tr>
248 
  <%Response.write Request("prod_at_os")%>
 248 
  <%Response.write Request("prod_id_list") &"<br>"%>
249 
  <input type="hidden" name="prod_at_os" value="<%=Request("prod_at_os")%>">
 249 
  <%Response.write Request("prod_at_os")%>
250 
  <input type="hidden" name="action" value="true">
 250 
  <input type="hidden" name="prod_at_os" value="<%=Request("prod_at_os")%>">
251 
  </form>
 251 
  <input type="hidden" name="action" value="true">
252 
</table>
 252 
  </form>
253 
</body>
 253 
</table>
254 
</html>
 254 
</body>
255 
<%
 255 
</html>
256 
'------------ RUN AFTER PAGE RENDER -----------
 256 
<%
257 
Set objFormCollector = Nothing
 257 
'------------ RUN AFTER PAGE RENDER -----------
258 
'----------------------------------------------
 258 
Set objFormCollector = Nothing
259 
%><!--#include file="common/globals_destructor.asp"-->
 259 
'----------------------------------------------
- 
 
 260 
%><!--#include file="common/globals_destructor.asp"-->