<%@ Language=VBScript %> <% Option Explicit %> <% '************************************ 'search_inventory.htm - 04/17/01 * 'Script Author: Andrew Paulson * '************************************ '==================================== 'VARIABLES '==================================== Dim oRs, sql, strMan, strMode strMan = Request.QueryString ("manu") '==================================== Function GetManufacturers(fstrMan) '==================================== sql="SELECT DISTINCT "&_ "prod_mfr_long "&_ "FROM tbl_products "&_ "WHERE prod_approved='1' "&_ "ORDER BY prod_mfr_long" Set oRs = Server.CreateObject("ADODB.Recordset") oRs.Open sql, objCN1 ' Response.Write sql %> <% while not oRs.EOF if trim(oRs("prod_mfr_long"))=fstrMan then %> <% else %> <% end if oRs.MoveNext Wend oRs.Close Set oRs = Nothing End Function '==================================== Function GetProducts(fstrMan) '==================================== if fstrMan="" then sql="SELECT DISTINCT "&_ "prod_part "&_ "FROM tbl_products "&_ "WHERE prod_approved='1' "&_ "ORDER BY prod_part" else sql="SELECT DISTINCT "&_ "prod_part "&_ "FROM tbl_products "&_ "WHERE prod_mfr_long = '"&fstrMan&"' AND prod_approved='1' " &_ "ORDER BY prod_part" end if Set oRs = Server.CreateObject("ADODB.Recordset") oRs.Open sql, objCN1 ' Response.Write sql %> <% while not oRs.EOF %> <% oRs.MoveNext Wend oRs.Close Set oRs = Nothing End Function '==================================== 'MAIN LOGIC '==================================== %>
search inventory l request quote
Search Our Current Inventory

We'll find what you need when you need it -
and be creative about locating alternatives to reduce your costs and speed production.

There are 2 ways you can search our inventory.

<%if Request.QueryString("error")="2" then%> <%end if%>
  1) Search By Part Number
  Please enter a part number
  Part Number Search Type
 
<%if Request.QueryString("error")="1" then%> <%end if%>
 
  2) Search By Manufacturer and/or Product
  Please select a manufacturer
  Manufacturers
  Products
 

For assistance with your inquiry, please submit email to search@lhei.com.