<%@ 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
%>
Type T Gas Liquid Separators
STBN
TYPE GAS LIQUID SEPARATOR
MODEL NUMBER
075STBN
CAST IRON
THREADED NPT
250 PSI @
450°F
PIPE SIZE
A
B (ST)
B (STH)
C
D
Drain
Weight
ST/(STH)
3/4"
5.5
11.90
13.00
6.12
4.12
3/4
20/(23)lbs.
MAXIMUM AIR FLOW RATING
IN (SCFM)
25 PSI
50 PSI
100 PSI
150 PSI
200 PSI
250 PSI
55
75
105
125
150
170
FACTORY DIRECT PIPELINE PRODUCTS, INC.
Your Single Source for Industrial Filtration and Valve Products
