<%@ 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 %> Nnamdi Agbakoba
 
BROWSE
4 Authors
   
4 Book Shelve
   
4 Arts & Culture
   
4 Education
   
4 Editorial Comments
   
4 Travels & Entertainment
   
4 Calendars / Events
   
4 Links
 

 

  
4

Profiles
 

Nnamdi Agbakoba (Author - Humanitarian)
 

Nnamdi Agbakoba is the executive producer of Visions Questron Digital Studios, a Lagos based TV and Movie production studio.

He is the founder of Cat-War (Campaign Against Terror and War, a Lagos based NGO whose efforts are geared towards peace education and the eradication of violence, terror and war. He is married to Joy and has two children Ify and Awi.

  

 
 
Add your professional profiles: Send
 
 

 
 
 
 
Interests & Hobbies
 
Travels
 
Photos
 
Book
 
Photos