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

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


Tetra Pond Sticks 780g

Pond Liners
Page 1 of 2 - Total Number Available 14
Description
RRP:
Our Price:

 

 Betta PVC Liner Pre Cut 3m x 3m

 

 

£xx.xx

 

 

£22.99

 

 Betta PVC Liner Pre Cut 5m x 3m

 

 

£xx.xx

 

 

£38.99

 

 Betta PVC Liner Pre Cut 6m x 3m

 

 

£xx.xx

 

 

£44.99

 

 Betta PVC Liner Pre Cut 8m x 8m

 

 

£xx.xx

 

 

£159.99

 

 Betta PVC Liner Pre Cut 2m x 1m

 

 

£xx.xx

 

 

£9.99

 

 Betta PVC Liner Pre Cut 2m x 2.5m

 

 

£xx.xx

 

 

£16.99

 

 Betta PVC Liner Pre Cut 4m x 3m

 

 

£xx.xx

 

 

£32.99

 

 Betta PVC Liner Pre Cut 4m x 4m

 

 

£xx.xx

 

£41.99

 

 Betta PVC Liner Pre Cut 5m x 4m

 

 

£xx.xx

 

 

£49.99

 

 Betta PVC Liner Pre Cut 6m x 4m

 

 

£xx.xx

 

£62.99

 

 Betta PVC Liner Pre Cut 6m x 5m

 

 

£xx.xx

 

 

£74.99

 

 Betta PVC Liner Pre Cut 6m x 6m

 

 

 

£xx.xx

 

 

£92.99
Page 1 of 2 - Total Number Available 14
1  |  2