Calculo de Subtotal no Loop

[Nicolviski]

Pessoal,

Não estou conseguindo calcular o subtotal quando faço o select de um banco de dados.

Como o select sum está dentro do loop ele traz sempre o subtotal em cada linha por registro, mas eu preciso que o subtotal seja mostrado somente na ultimo linha de cada registro.

Alguém pode me ajudar?

Segue abaixo o código:

<% do while NOT RecSet.EOF%>
<%
nomeplanow = RecSet("nomeplano")
valor = RecSet("valor")
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
    <tr>
        <td width="50%"><%=(nomeplanow)%></td>    
        <td width="50%"><%=(valor)%></td>
    </tr>
</table>
<%
Subtotal="SELECT SUM(valor) as valort FROM tab_movimento WHERE nomeplano='"&nomeplanow&"'"
set RS=conexao.Execute(Subtotal)
valort = (RS("valort"))
%>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
    <tr>
        <td width="50%">SUBTOTAL:)%></td>    
        <td width="50%"><%=(valort)%></td>
    </tr>
</table>
<%RecSet.Movenext%>
<%loop%>
<%end if%><%conexao.close%>