Creating subtotals

[Anthony1312002]

I've got this script just about done but I can't get my subtotals to work. I posted this a few days ago and got some really good help. All I need is how to get the subtotal to work. Any thoughts out there?


do while not rs.eof

Dim TotalCash, TotalCheck, TotalRemitco

TotalCash = TotalCash + rs("CashItems")
TotalCheck = TotalCheck + rs("CheckItems")
TotalRemitco = TotalRemitco + rs("RemitcoItems")

if rs("artistName") <> currentArtist then
response.write "<br>"
'---Create Activity Headers------

Response.Write("<tr>" & Chr(13))
Response.Write(" <td align=center ><b>" & ("Cust Box Number") & "</td>" & Chr(13))
Response.Write(" <td align=center ><b>" & ("Account Number") & "</td>" & Chr(13))
Response.Write(" <td align=center ><b>" & ("Senders Name") & "</td>" & Chr(13))
Response.Write(" <td align=center bgcolor=#00FFFF><b>" & ("Cash $") & "</td>" & Chr(13))
Response.Write(" <td align=center ><b>" & ("Check $") & "</td>" & Chr(13))
Response.Write(" <td align=center ><b>" & ("Ttl $ amt.") & "</td>" & Chr(13))
Response.Write(" <td align=center bgcolor=#00FFFF><b>" & ("Remitco $") & "</td>" & Chr(13))
Response.Write(" <td align=center ><b>" & ("Ch. #") & "</td>" & Chr(13))
Response.Write("</tr>" & Chr(13))

Response.Write "<br>"

currentArtist = rs("artistName")
end if

Response.Write("<tr>" & Chr(13))
Response.Write(" <td align=center>" & rs("albumName") & "</td>" & Chr(13))
Response.Write(" <td align=center>" & rs("Accounts") & "</td>" & Chr(13))
Response.Write(" <td align=center>" & rs("SendersName") & "</td>" & Chr(13))
Response.Write(" <td align=center>" & FormatCurrency(rs("CashItems"),2) & "</td>" & Chr(13))
Response.Write(" <td align=center>" & FormatCurrency(rs("CheckItems"),2) & "</td>" & Chr(13))
Response.Write(" <td align=center>" & FormatCurrency(rs("CashItems") + rs("CheckItems"),2) & "</td>" & Chr(13))
Response.Write(" <td align=center>" & FormatCurrency(rs("RemitcoItems"),2) & "</td>" & Chr(13))
Response.Write(" <td align=center>" & rs("CheckNumber") & "</td>" & Chr(13))
Response.Write("</tr>" & Chr(13)) & "<br>"

rs.movenext
loop

Response.Write "<br>"
Response.Write("<tr>" & Chr(13))
Response.Write(" <td align=center bgcolor=#FFFF00><B>GRAND TOTAL</td>" & Chr(13))
Response.Write(" <td align=center bgcolor=#FFFF00>/////</td>" & Chr(13))
Response.Write(" <td align=center bgcolor=#FFFF00>/////</td>" & Chr(13))
Response.Write(" <td align=center bgcolor=#FFFF00><b>" & FormatCurrency((TotalCash),2) & "</td>" & Chr(13))
Response.Write(" <td align=center bgcolor=#FFFF00><b>" & FormatCurrency((TotalCheck),2) & "</td>" & Chr(13))
Response.Write(" <td align=center bgcolor=#FFFF00><b>" & FormatCurrency((TotalCheck) + (TotalCash),2) & "</td>" & Chr(13))
Response.Write(" <td align=center bgcolor=#FFFF00><b>" & FormatCurrency((TotalRemitco),2) & "</td>" & Chr(13))
Response.Write(" <td align=center bgcolor=#FFFF00>/////</td>" & Chr(13))
Response.Write("</tr>" & Chr(13)) & "<br>"

 

[Chopstik]

I'm sorry as perhaps I'm just missing it, but I don't see anything in your code relating to subtotals. Could you point out the offending code?

------------------------------------------------------------------------------------------------------------------------
If you don't have a sense of humor, you probably don't have any sense at all.
- Anonymous

 

[rac2]

Try initializing the total variables.

TotalCash = 0
TotalCheck = 0
TotalRemitco = 0

 

[snowboardr]

And you may have to convert your db values to ints...

IE:

intValue = CINT(rs("CashItems"))

you will have to make sure they are ints, and also that they are not NULL, or you will get a CINT error.

Also try what rac2 said.


Jason

www.sitesd.com
ASP WEB DEVELOPMENT