Sumar un campo numerico

[nene16803]

Hola, me estoy realizando una pequeña aplicacion, para sumar lo que tengo de caja de ventas al día, y no se como hacerlo, muestro todos los totales con este codigo.

<%
set oConn=server.createobject("ADODB.connection")
set rs=server.createobject("ADODB.Recordset")
oConn.open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("base/gastos.mdb"))

rs.Open "SELECT * from ventas ORDER BY val(id) desc" ,oConn

do until rs.EOF
%>

<%=rs.Fields("totaldedia")%>

<%
rs.MoveNext
loop
rs.close
Set rs = Nothing
oConn.close
Set oConn = Nothing

%>

Como podria sumarlos ???

Gracias por adelantado

[alpe2000]

<% TOTAL_DE_TODOS_LOS_DIAS = 0 %>
...
...
...
...

do until rs.EOF
%>

<% TOTAL_DE_TODOS_LOS_DIAS = TOTAL_DE_TODOS_LOS_DIAS + rs.fields("totaldedia") %>

<%
rs.MoveNext
loop

response.write TOTAL_DE_TODOS_LOS_DIAS

....
....
....
....

[nene16803]

Muchas Gracias