Total = 0
Do until objRS1.EOF
Response.Write "<tr>"
Response.Write "<td>" & objRS1("antal") & "</td>"
total = total + objRS1("antal")
Response.Write "<td>" & total & "</td>"
Response.Write "</tr>"
objRS1.MoveNext
Loop
------------------ essentitia preter non sans multiplicandum