%@ 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
%>
Your privacy is our chief concern. We take security
seriously and have taken every precaution to ensure the safety of your order
information.
Can't Find a Book?
Click
here to
tell us about a book you can't find on our site. We'll locate the book and
contact you promptly!
Employment Opportunity
Publisher Associate & Sales Professional (date posted 02/06/10)
Self motivated Publisher Associate and Sales Executive
for the following regions:
California, Texas, Mississippi. Responsible for managing over 50,000
product line.
Home computer and internet necessary.