mmmm, un condigo para la CONTABILIDAD....
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "select * from tabla order by id " & order & ""
rs.open sql,conn,1,1
TotalDebe = 0
TotalHaber = 0
i = 0
Do While Not Rs.EOF
i = i + 1
'Si es menor o igual que treinta que sume...
If i <= 30 then
Totaldebe = Totaldebe + rs("debe")
Totalhaber = Totalhaber + rs("haber")
Else
' si nos pasamos de los treinta, volvemos todo a cero...
i = 0
TotalDebe = 0
TotalHaber = 0
end if
%>
<tr>
<td>
<p align="right"><%=rs("fecha")%></td>
<td><%=rs("descripcion")%></td>
<td align="right">$ <%=rs("debe")%></td>
<td align="right">$ <%=rs("haber")%></td>
<td align="right">$ <%=rs("saldo")%></td>
</tr>
<%
Rs.Movenext
Loop
rs.close
set rs = nothing
%>
bueno y despues cuando lo desees... haces tu <%=TotalDebe%>....etc, etc...
espero te sirv, cuidado con los formatos numericos que por ahi te podria dar algun error por no coincidencia...
slds.