<%@ 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 %> Outdoors - AquariumSuperstore - The UK's Leading Online Aquatic Retailer
Liners
Pumps
Filters
UV Clarifiers
Water Quality
Food
Accessories

Number Items: <%= subquantity%>
SubTotal: <%= FormatCurrency(grandtotal)%>


Tetra Pond Sticks 780g

Outdoors
The AquariumSuperstore's outdoor section includes a large selection of pond products from leading manufacturers, including Hozelock, Blagdon, Nishikoi, Medikoi, Interpet, Kokney Koi, Intercel, Tetra and Betta. We offer exceptional value for money whether you are building your first pond, or maintaining a large koi pool and should you not find the product that you require listed, then please feel free to contact us.
Pond Liners

Pond Pumps
Pond Filters
Cyprio Bioforce 1000 without UVC
UV Clarifers

Water Quality
Pond Foods

Accessories