<%@ 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
%>
Cast Iron Type T Gas Liquid Separators
T
TYPE GAS LIQUID SEPARATOR
MODEL NUMBER
5.TF
CAST IRON
125 lb. ANSI Flange
150 PSI @ 450°F
PIPE SIZE
A
B
C
D
J
Weight
5"
18.62
24.75
7.87
13.62
1.25
305 lbs.
MAXIMUM AIR FLOW RATING
IN (SCFM)
25 PSI
50 PSI
100 PSI
150 PSI
200 PSI
250 PSI
2050
2750
3800
4750
5200
6000
FACTORY DIRECT PIPELINE PRODUCTS, INC.
Your Single Source for Industrial Filtration and Valve Products
