<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wAddProdBySearch | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim parProd_name '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parBom_id = Request("bom_id") parProd_name = Request("prod_name") parOs_id = Request("os_id") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Function SearchProductNamesQuery ( sProd_name ) Dim tempSTR tempSTR = GetQuery ("ProductNameSearch.sql") SearchProductNamesQuery = Replace ( tempSTR, ":PROD_NAME", sProd_name ) End Function '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- objPMod.PersistInQryString ( Array("base_env_id") ) '---------------------------------------------- %> <%=objPMod.ComposeHiddenTags()%> <%=objPMod.ComposeHiddenTags()%>

Add Product

Product Search

disabled<%End If%>>

<%If parProd_name <> "" Then%> Search result for <%=parProd_name%> <% Set rsQry = OraDatabase.DbCreateDynaset( SearchProductNamesQuery ( parProd_name ), ORADYN_DEFAULT ) %> <%If rsQry.RecordCount < 1 Then%> No Results Found. <%Else%> Select Product and click Next. <% While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> <%rsQry.MoveNext%> <% WEnd rsQry.Close Set rsQry = Nothing %> " <%=rsQry("checked")%>> <%=HighlightSubstring ( rsQry("pkg_name"), parProd_name )%> <%End If%> <%End If%>

<% '------------ RUN AFTER PAGE RENDER ----------- 'Set objFormCollector = Nothing '---------------------------------------------- %>