<%@ 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 %> Submission Guideline
 
BROWSE
4 Authors
   
4 Book Shelve
   
4 Awards & Citations
   
4 Arts & Culture
   
4 Education
   
4 Editorial Comments
   
4 Travels & Entertainment
   
4 Calendars
   
4 Links
 

 

  

SUBMISSION GUIDELINES

 
     All submissions to Paedeia Reviews are peer reviewed by distinguished members of the academic community.  While there is no word count imposed for any submission authors should use their  own judgment in the case of exceedingly long manuscripts (e.g. 10,000 words or more).  Given the education oriented thrust of the journal's title we are seeking that all submissions, whether scholarly essays and articles, book reviews, original poetry, short stories, short dramatic works, travel pieces, etc., serve the higher purpose of both informing and uplifting our readership.

 
 
            Submit