<%@ LANGUAGE="VBScript.Encode" %> <% order = Session("orderid") 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 %> Michael Giammatteo
 
BROWSE
4 Authors
   
4 Book Shelve
   
4 Arts & Culture
   
4 Education
   
4 Editorial Comments
   
4 Travels & Entertainment
   
4 Calendars / Events
   
4 Links
 

 

  
4

Profiles
 

Dr. Michael C. Giammatteo

-> Former Director of the Sylvan Institute of Mental Health and Family Services.

-> former CEO of M.A.V.E. ( Motor Auditory, Visual Enhancement)

-> Co-Director of the Longetivity Center in Bologna Italy

-> Authored more than 40 articles in Management, Psychology, Medication, and education.

-> Served as a consultant to the government, military and private sectors.

-> Is currently part of a weekly show.

-> Is currently working on Developmental Optometry in Oregon, as well as the Medical Center with Harry Downs.
 
 
Add your professional profiles: Template
 
 

 
 
 
 
Interests & Hobbies
 
Travels
 
Photos