%@ 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
'====================================
%>
 |
 |
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.
For assistance with your inquiry, please submit email to search@lhei.com.
|