<%@ LANGUAGE="VBScript.Encode" %>
<%
order = Session("orderid")
'READ STUFF From Database
Dim objSimpleAdo, rstRS, SQLStmt
SQLStmt = "SELECT * From item "
SQLStmt = SQLStmt & "WHERE [Orderid] =" & Order & "; "
Set SimpleAdo = New CSimpleAdo
SimpleAdo.setConnectionString = Session("ConnectionString")
Set RS = SimpleAdo.getRecordSet(SQLStmt)
'Do stuff with the record set
'Initialize variables for this application
thedate = Cstr(Date) 'get the date
thetime = Cstr(Time) 'get the time
subtotal = 0 'the subtotal for a row of items
subweight = 0 'the subweight for a row of items
subsize = 0 'the subsize for a row of items
subquantity = 0 'the subquantity for a row of items
CurrentRecord = 0
Do While CheckRS(RS)
'Calculate the individual totals for a row
subweight = subweight + (RS("Quantity") * RS("Weight"))
subsize = subsize + (RS("Quantity") * RS("Size"))
subtotal = (RS("Quantity") * RS("Price"))
subquantity = subquantity + RS("Quantity")
total = FormatCurrency (CCur(subtotal))
grandtotal = grandtotal + subtotal
RS.MoveNext
Loop
Set SimpleAdo = Nothing
Set RS = Nothing
%>
1" FNPT Cast Iron Type T Gas Liquid Separators
T
TYPE GAS LIQUID SEPARATOR
MODEL NUMBER
1.TA
CAST IRON
THREADED NPT
250 PSI @ 250°F
PIPE SIZE
A
B
C
D
J
Weight
1"
6.00
9.06
-
4.75
1
16 lbs.
MAXIMUM AIR FLOW RATING
IN (SCFM)
25 PSI
50 PSI
100 PSI
150 PSI
200 PSI
250 PSI
82
110
155
190
220
255
FACTORY DIRECT PIPELINE PRODUCTS, INC.
Your Single Source for Industrial Filtration and Valve Products
