<%@ 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 %> Soll Pond KH Test Kit - 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

Söll have tailored a new concept in water garden additives which are totally different, and have managed to reach our exacting standards for a high quality range, whose contents actually work! A truly great and innovative product.

These quick and convenient test kits have reagents already in situ meaning no mess and no fiddling with bottles or tablets. An inexpensive, practical way to determine the KH or pH of the pond.

 

Soll Pond KH Test Kit
RRP: £xx.xx
Our Price: £
 
Alternative Products Include:
Related Products:
Full Range of Soll Pond KH Test Kits:
Description
RRP:
Our Price:
Soll Pond KH Test Kit
£xx.xx
£
 
Soll Pond pH Test Kit
£xx.xx
£