<%@ 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 %> Miscellaneous - AquariumSuperstore - The UK's Leading Online Aquatic Retailer

 

■  Help  ■  Site Map  ■  A-Z of Products  ■  Contact Us

  
   
   
   
 

 

  

Home  |   Filtration  |   Heating  |   Lighting  |   Water Quality  |   Food  |   Tanks  |   Decoration  |   Outdoor  |   Accessories
                               
                               
      Auto Feeders Cleaning Marine Nets Misc.
   
   
   
 

JBL Accessories

  
 

   Home

   Filtration

   Heating

   Lighting

   Water Quality

   Food

   Tanks

   Decoration

   Outdoor

   Accessories

  

JBL CombiFix

These plant tongs are 46cm (18") long and made of strong plastic. They are ideal to help plant your aquarium without getting your hands wet, or to feed fish with teeth such as moray eels.

  

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

 
       
       
       
         
         
       
         
       
       
         
       
 

   Auto Feeders

   Cleaning

   Marine

   Nets

   Misc.

      
       
       
       
         
    Description RRP Our Price Stock      
   

JBL CombiFix

   £5.99
Quantity:
   
       
           
           
     

= In Stock

 = On Order = Special Order
   
         

   Help

   Site Map

   Managing Orders

   Delivery/Couriers

   Returns/Refunds

   Customer Promise

   Contact Us

   Feedback

  
      JBL Aqua Terra Tool S
  • Stainless Steel Scissors
  • Approx 28cm (11") long scissors for work in the aquarium or terrarium
  • Ideal for trimming plants and removing dead leaves
  • Rinse in fresh water after using in saltwater

 

    
         
         
         
         
         
         
           
           
           
           
           
           
           
           
      Description RRP Our Price Stock        
     

JBL Aquaterra Tool S

   £17.99
Quantity:
     
           
           
           
     

= In Stock

 = On Order = Special Order
     
             
      Related Products:      
             
           
           
           
           
             
           
           
           
           
             
             

Home  |   Filtration  |   Temperature  |   Lighting  |   Water Quality  |   Food  |   Tanks  |   Decoration  |   Outdoor  |   Accessories

Copyright 2008 – AquariumSuperstore – All Rights Reserved -Unauthorised use of any images, thumbnails, illustrations, descriptions

 and article content is strictly prohibited under copyright law.

AquariumSuperstore HTML Catalogue - AquariumSuperstore PHP Catalogue