%@ LANGUAGE="VBScript.Encode" %>
[an error occurred while processing this directive]
[an error occurred while processing this directive]
[an error occurred while processing this directive]
[an error occurred while processing this directive]
<%
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
%>
Discover
how the winning spirit can be used to inspire both your employees and
yourself to greater success. Get practical advice that can help you be
more productive in all areas of your life. It is possible for you and
your employees to be enthusiastic doing meaningful work.
About the Author:
Lisa J. Lindsay Wicker is internationally recognized as a leader in human resources
development and training, organizational dynamics and change
management. Through her accomplishments, she was named one
of the most successful business women in Detroit by the
Detroit News. She is the founder of the 101 Best Companies
to Work For in Metropolitan Detroit and formerly an adjunct
professor in the School of Business Administration at Wayne
State University. Ms. Wicker holds an executive human
resources position with a major automotive company in
Detroit.