%@ 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
%>
Authors, Publishers:
Click
here
to send recent updates about this page or to submit a new title.
Description:
Brian Moore is suffering a mid-life crisis at the age of eighteen. His
life revolves around getting money. For him, that means armed robberies
and stick-ups. He has baby mama and baby mama family drama. The only
thing stable in his life is his fiancée, Sonia. She’s a college student
with a relentless passion to make it out of the hood with or without
Brian. For the first time in his life, Brian can’t straddle the fence.
He has to make a decision. Will he be loyal to the streets which raised
him and made him who he is today? Or will he be loyal to a girl who is
promising him a better tomorrow?