Sumar cada X Registros

[_br1_]

HolaS!.
Tengo la siguiente duda:
Como puedo hacer para realizar una suma cada 30 Registros, haga un promedio y luego q continue desplegando los resultados hasa los proximos 30 y asi.

Lo haria sobre este pedacito de codigo

Código:

<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "select * from tabla order by id " & order & ""
rs.open sql,conn,1,1
Do While Not Rs.EOF%>
    <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, espero que se haya entendido, seguramente es facil, pero no se me ocurre nada.

Gracias de antemano

_br1_

[El_Metallick]

bueno yo lo haria poniendo un contador dentro del do while que se incremente en 1 cada vez de tal manera que cuando llegue a 30 haga lo que quieras y luego vuelva a 0, si tienes alguna duda con la sintaxis avisanos pero la verdad es que ahora estoy algo apurado

[univercity]

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.

[_br1_]

Hola.
Muchisimas gracias por las respuestas, es mas o menos lo que necesitaba.
Ahora, como hago para mostrar <%=totaldebe%> cada 30 registros?
Alguien podría darme una idea?

Saludos
Y gracias de nuevo
_br1_

[univercity]

<%
if i = 30 then
response.write totalDebe
end if
%>