<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| RequestProductLocation | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry Dim bgColor Dim parBomId '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parBomId = Request("bom_id") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- '---------------------------------------------- %> <% OraDatabase.Parameters.Add "BOM_ID", parBomId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PROD_ID", Request("prod_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BomBaseProductLocations.sql"), ORADYN_DEFAULT ) bgColor = NULL While (NOT rsQry.BOF) AND (NOT rsQry.EOF) If IsNull( bgColor ) Then bgColor = "bgcolor='#F5F5F5'" Else bgColor = NULL End If %> <% rsQry.MoveNext WEnd OraDatabase.Parameters.Remove "BOM_ID" OraDatabase.Parameters.Remove "PROD_ID" rsQry.Close Set rsQry = Nothing %>

nowrap valign="top" class="body_row" colspan="2">     " align="absmiddle" border="0">&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("node_name")%>  / &bom_id=<%=parBomId%>" class="body_link"><%=rsQry("os_name") %>  / &prod_id=<%=rsQry("prod_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%>