<%@ 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 %> Kent Platinum Foods - AquariumSuperstore

 

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

  
   
   
   
 

 

  

Home  |   Filtration  |   Heating  |   Lighting  |   Water Quality  |   Food  |   Tanks  |   Decoration  |   Outdoor  |   Accessories
 
                               
                               
  Aquarian

Tropical

 JBL Foods Kent Platinum Marine Foods Tetra  
 
   
   
   
 

Kent Platinum Foods

  
 

   Home

   Filtration

   Heating

   Lighting

   Water Quality

   Food

   Tanks

   Decoration

   Outdoor

   Accessories

  

Page 2 of 2 - Total Number Available 15

1  |  2

  

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

 
       
       
       
           
      Description   Our Price Stock        
    Kent Platinum Cichlid Xtreme Small 42g £3.85

   
     

Kent Marine Filter Media

  
       
       
      Kent Platinum Cichlid Xtreme Medium 42g £3.85

   
       
 

   Aquarian

   Tropical

   JBL Foods

   Kent Platinum

   Marine Foods

   Tetra

      
       
    Kent Platinum Tropical Xtreme Small 42g £3.85

   
       
       
       
                   
       
           
           
                     
       

   Help

   Site Map

   Managing Orders

   Delivery/Couriers

   Returns/Refunds

   Customer Promise

   Contact Us

   Feedback

  
         
         
                     
         
         
         
         
     

= In Stock

 = On Order = Special Order
     
     

Page 2 of 2 - Total Number Available 15

1  |  2

      
           
           
           
           
           
           
           
           
             
             

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