Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|                        RequestProductLocation                         |
'|                                                   |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0
%>
<!--#include file="common/globals.asp"-->
<!--#include file="common/config.asp"-->
<!--#include file="common/common_subs.asp"-->
<%
'------------ VARIABLE DEFINITION -------------
Dim rsQry
Dim bgColor
Dim parBomId
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
parBomId = Request("bom_id")
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'--------------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
'----------------------------------------------
%>

                
                <table width="100%"  border="0" cellspacing="3" cellpadding="0">
          <%
                  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 ("BomProductLocations.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
                  %>
                  <tr>
            <td <%=bgColor%> nowrap valign="top" class="body_row" colspan="2">&nbsp;&nbsp;&nbsp;&nbsp;
                        <img hspace="4" src="icons/<%=rsQry("node_icon")%>" align="absmiddle" border="0"><a href="NodeDefault.asp?node_id=<%=rsQry("node_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("node_name")%></a>
                                &nbsp;/&nbsp;<a href="OsDefault.asp?os_id=<%=rsQry("os_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("os_name") %></a>
                                &nbsp;/&nbsp;<a href="ProdDefault.asp?os_id=<%=rsQry("os_id")%>&prod_id=<%=rsQry("prod_id")%>&bom_id=<%=parBomId%>" class="body_link"><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%></a>
                        </td>
          </tr>
                  <%
                        rsQry.MoveNext
                  WEnd
                  
                  OraDatabase.Parameters.Remove "BOM_ID"
                  OraDatabase.Parameters.Remove "PROD_ID"
                  
                  rsQry.Close
                  Set rsQry = Nothing
                  %>
                  
                  
                </table>        
<!--#include file="common/globals_destructor.asp"-->