<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| UsedBy | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsQry '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- '---------------------------------------------- %>

		<%Call RenderTitle( objProdCollector )%> <% Set objTabControl = New TabControl objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition objTabControl.TabStyle = "StyleWinXP" objTabControl.AddTabDefnition ( arrProdTabDef ) objTabControl.SelectByName ("Used By") objTabControl.Render () %> <% '-- Define Action buttons on this tab 'aTabBtnsDef = Array("btnAddOs", "width=10", "btnCopyOs", "btnPasteOs") 'Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl ) 'objBtnControl.Render( aTabBtnsDef ) %>     <%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><%End If%> <% OraDatabase.Parameters.Add "PROD_ID", dbPARprod_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "BOM_ID", dbPARbom_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductNameAtOtherLocations.sql"), ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> <%rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%> <%End If%> <% WEnd OraDatabase.Parameters.Remove "PROD_ID" OraDatabase.Parameters.Remove "BOM_ID" %> Location Product Name Version Comments &os_id=<%=rsQry("os_id")%><%=objPMod.ComposeURLWithout("prod_id,os_id")%>" title="Go to This Location" class="body_link">" border="0" align='absmiddle' hspace="2"><%=rsQry("node_name").Value &" / "& rsQry("os_name").Value %> <%=LIMG_PRODUCT & rsQry("prod_name").Value%> class="body_txtr"<%Else%>class="body_row"<%End If%> valign="top"><%=rsQry("prod_version")%> <%=rsQry("product_comments")%>

<% '------------ RUN AFTER PAGE RENDER ----------- Set objPMod = Nothing Set objCrumbs = Nothing Set objTabControl = Nothing Set objBtnControl = Nothing '---------------------------------------------- %>