<%@ Language=VBScript %> <% Option Explicit %> <% Dim oConn, oRs1, sSql, count 'DB Connection Variables %> <% Set oConn = Server.CreateObject("ADODB.Connection") %> <% oConn.Open Application("CONNSTR") 'Init DB Connection %> <% '------------ Init Page Variables ------------ %> <% %> <% %> <% '------------ =================== ------------ %> <% dim browserdetect, browser Set browserdetect = Server.CreateObject("MSWC.BrowserType") browser=browserdetect.Browser %> Product Quote Request (PQR) Form

---

Either this online form or the downloaded PQR Form can be submitted. (Additional Instructions)

*First Name		*Address Line 1
*Last Name		Address Line 2
*Company		*City
*Phone Number		State/Province
Fax Number		Zip Code
*Email Address		*Country

(*fields are required)	Mailing Address(Required)

<%count = 1%> <% do while count <= 15%> <%count = count + 1%> <%loop%>

PROD ID	Description	Quantity
<% sSQL = "select Prodid, product from products where status='Active' order by Product, Prodid" set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 %> <% do While not oRs1.EOF %> -<%=oRs1("ProdID")%>"><%=oRs1("Product")%>-<%=oRs1("ProdID")%> <%oRs1.MoveNext()%> <%loop%>

Enter any qualifying information about the quote request or terms in the box below:

Additional Instructions:
You may download a PQR Form (Interactive HTML or PDF) from the Products Downloads section of the site and fax or send an attachment in an e-mail to products@arcpressure.com.