<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wAddProdSimilarNames | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim parProd_name '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parProd_name = Request("prod_name") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- objPMod.PersistInQryString ( Array("base_env_id", "prod_version") ) '---------------------------------------------- %> <% '-- FROM START -------------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.Action = "wAddProdNew.asp" objFormComponent.OnSubmit = "ShowProgress();" Call objFormComponent.FormStart() %> <%=objPMod.ComposeHiddenTags()%> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

Add Product Choose different Product Name if you prefer.

<%=ProgressBar()%>

<%Call Messenger ( "Found similar Product Names. Please choose different one if you prefer." , 3, "100%" )%> <% OraDatabase.Parameters.Add "PROD_NAME", parProd_name, ORAPARM_INPUT, ORATYPE_VARCHAR2 Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("SimilarProductNames.sql"), ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> <%rsQry.MoveNext WEnd OraDatabase.Parameters.Remove "PROD_NAME" rsQry.Close Set rsQry = Nothing %> <%=parProd_name%> "> <%=rsQry("pkg_name")%>

<% '------------ RUN AFTER PAGE RENDER ----------- '---------------------------------------------- %>