total subtotal

Hej alle sammen

Jeg er ved at lavet en lille script der kan hjælpe mig lidt med at tælle nogle vare...

Jeg kan bare ikke finde ud af hvordan jeg skal lave en "total subtotal"
I vil forstå det bedre hvis i går ind på denne adresse: http://www.hdhp.dk/EasyCounting.asp?mode=Statestik&kategori='Knapper'
Som er et eks. af mit lille "program"

Koden til denne side er:
'------------------------------------------------------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("*-----*.mdb")

strkater = replace(request("kategori"),"'","")

Set rs = Conn.Execute("Select Pris, Sum(Antal) From vare where kategori = '" & strkater & "' Group By Pris order by pris desc")

response.write "<table width=""700"" border=""1"">"
response.write "<tr><td align=""center"" width=""30%"">"
response.write "Pris</td>"
response.write "<td width=""30%"" align=""center"">"
response.write "Antal Vare</td>"
response.write "<td width=""40%"" align=""center"">"
response.write "Subtotal</td></tr>"

While Not rs.EOF

strPrisen = rs(0)
strAntal = rs(1)
strPrisen2 = replace(strPrisen,".",",")

response.write "<tr><td align=""center"" width=""30%"">"
response.write strPrisen2 & "</td>"
response.write "<td width=""30%"" align=""center"">"
response.write strAntal & "</td>"
response.write "<td width=""40%"" align=""right"">"
response.write (strAntal * strPrisen)/100 & " kr.</td></tr>"
 
  rs.MoveNext
Wend

set rs2 = Conn.Execute("Select sum(antal) from vare")

strSumAntal = rs2(0)

rs2.close
set rs2 = nothing

response.write "<tr><td align=""center"" width=""30%"">"
response.write "&nbsp;</td>"
response.write "<td width=""30%"" align=""center"">"
response.write strSumAntal & "</td>"
response.write "<td width=""40%"" align=""right"">"
response.write "Her skal alle subtotaler der er lagt sammen, stå</td></tr>"
response.write "</table>"

conn.close
set conn = nothing
'-------------------------------------------------------
Hvordan laver jeg en total subtotal? Altså en funktion der lægger alle subtotaler sammen...