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

 

  

Sam Chekwas

 

Studied Greek language and Philology at the Aristotle University Greece where he also received a degree in Doctor of Dental Surgery.


He is the publisher of Seaburn Press in New York, the author of several books in both Greek and English languages.

 

He Lives in New York with his family. His interests are in Sciences, Education, Philanthropy, Civic and Social awareness.

 

Contact: schekwas@aol.com

 
 
Add your professional profiles: ADD
 
 

 
 
 
 
Awards and Citations
 
Photos