Lægge flere variabler sammen fra en database

Hvordan kan jeg få den til at lægge alle afspadsering("afviklet") sammen og bagefter trække dem fra afspadsering("optjent") ?

Med det her tager den kun den sidste afspadsering("afviklet") og trækker fra afspadsering("optjent")


<%
Server.CreateObject ("ADODB.Recordset")
set afspadsering = database.execute("SELECT * FROM intranet where uid = " & Request.QueryString("uid") & "")
varOptjent = afspadsering("optjent")
varAfviklet = afspadsering("afviklet")
%>
<table>
<tr>
<td>Bemærkninger:</td>
<td>Dato:</td>
<td>Optjent:</td>
<td>Afviklet:</td>
<td>Saldo:</td>
</tr>
<%
While NOT afspadsering.EOF
varAfviklet = afspadsering("afviklet")
varSaldo = varOptjent - varAfviklet
If farve ="#CCCCCC" Then
farve = "#EEEEEE"
Else
farve ="#CCCCCC"
End If
%>
<tr bgcolor="<% = farve %>">
<td><% Response.Write afspadsering.fields("bemaerkninger") %></td>
<td><% Response.Write afspadsering.fields("dato") %></td>
<td><% Response.Write afspadsering.fields("optjent") %></td>
<td><% Response.Write afspadsering.fields("afviklet") %></td>
<td><% Response.Write afspadsering.fields("saldo") %></td>
</tr>
<%
afspadsering.MoveNext
Wend
%>
<tr>
<td>I alt</td>
<td></td>
<td></td>
<td></td>
<td><%= varSaldo %></td>
</tr>

</table>