<%@ Language=VBScript %> <% Option Explicit %> <% '************************************ 'Script Author: Andrew Paulson * '************************************ '==================================== 'VARIABLES '==================================== Dim i, strBgColor Dim objProdsDict Dim strSQL, oRs Dim strPart_number, strSearch_type, strManufacturers, strProducts, intProd_id Dim strProd_part, strProd_mfr_long, intProd_quantity, strProd_dc strBgColor="#FFFFFF" 'Loop through the products and insert into a dictionary object if trim(Request.Form("send"))<>"" then Set objProdsDict=CreateObject("Scripting.Dictionary") For i = 1 to Request.Form("product_id").count objProdsDict.Add i,Request.Form("product_id")(i) 'Response.Write (i&"-"&Request.Form("product_id")(i)&"
") 'Response.Write (objProdsDict.Item(i)&"
") next end if '==================================== Function changeBGColor () '==================================== if strBgColor="#FFFFFF" then strBgColor="#e6e6fa" else strBgColor="#FFFFFF" end if End Function '==================================== Function getProductInfo (fintProdId) '==================================== strSQL="SELECT * "&_ "FROM tbl_products "&_ "WHERE " &_ "prod_id = '"&fintProdId&"' " Set oRs = Server.CreateObject("ADODB.Recordset") oRs.Open strSQL, objCN1 intProd_id = trim(oRs("prod_id")) strProd_part = trim(oRs("prod_part")) intProd_quantity=trim(oRs("Prod_quantity")) strProd_mfr_long=trim(oRs("Prod_mfr_long")) strProd_dc=trim(oRs("Prod_dc")) ' Response.Write sql ' oRs.Close ' Set oRs = Nothing End Function %>
search inventory l request quote
Request a Quote

Lighthouse Electronics, Inc. is pleased to be of service to you and your company.
To receive a quote, please fill out Section 1 and <%if trim(Request.Form("send"))="" then%> then either use section 2A or 2B to supply your RFQ. <%else%> Section 2. <%end if%>

   Section 1: Contact Information
  *Company Name:      *Indicates Required Field
  *Contact Name:
  *Street:
  *City, *State *Zip ,
  *Country:
  *Phone Number:    ext.
  *E-mail Address:

<% if trim(Request.Form("send"))="" then %>
   Section 2A: Upload RFQ File
  We will accept files in most formats. Files that are in Microsoft Excel or other database formats will activated quicker than files we must manually process. Files must be smaller than 5 MBs.
<%end if%>

<% if trim(Request.Form("send"))="" then %> <% for i = 1 to 5 %> <% changeBGColor () next %> <% else %> <% for i=1 to objProdsDict.Count call getProductInfo (objProdsDict.Item(i)) %> <% changeBGColor () next%> <% end if %>
   Section 2<%if trim(Request.Form("send"))="" then%>B<%end if%>: Specify Inventory Information
Qty. Desired Mfg. Part Number Date Code Date Required Target Price
  <%=i%>
Qty. Desired Qty. Available Mfg. Part Number Date Code Date Required Target Price
  <%=i%> <%=intProd_quantity%> <%=strProd_mfr_long%> <%=strProd_part%> <%=strProd_dc%>
Special Notes:

Please email questions or comments to sell@lhei.com.