Operaciones con datos en ASP

[princesa]

Hola gracias casi pero me muestra el resultado en cada fila no por grupo de mes. Si me ayudas te mando el codigo completo y a lo mejor he colocado mal algo.

</table>
<table width="100%" style="border-collapse: collapse" cellpadding="0" cellspacing="4" bordercolor="#808080" border="1" bgcolor="#FFF5E1">
<tr>

<td width="8%" height="18" valign="bottom">
<p align="center">
<font face="Arial Narrow" size="1">Fecha Actualización</font>
</td>

<td width="9%" height="18" valign="bottom">
<p align="center">
<font face="Arial Narrow" size="1">Código</font>
</td>

<td width="10%" bordercolor="#808080" height="18" valign="bottom">
<p align="center">
<font face="Arial Narrow" size="1">Clase Activo</font>
</td>

<td width="30%" height="18" valign="bottom">
<p align="center">
<font face="Arial Narrow" size="1">Descripciòn</font>
</td>

<td width="24%" height="18" valign="bottom">
<p align="center">
<font face="Arial Narrow" size="1">Ubicación</font>
</td>

<td width="8%" height="18" valign="bottom">
<p align="center">
<font face="Arial Narrow" size="1">Valor Adq.</font>
</td>

<td width="8%" height="18" valign="bottom">
<p align="center">
<font face="Arial Narrow" size="1">Valor Venta</font>
</td>

<td width="11%" height="18" valign="bottom">
<p align="center">
<font face="Arial Narrow" size="1">Forma Transac.</font>
</td>
</tr>
</table>


<%
Dim RA
Set RA=conn.Execute ("select codactivo,fec_report,claseactiv,descripcio,ubicaci on,val_adjudi,val_venta,forma_tran from aextraor where fec_report >= ('"&date1&"') and fec_report <= ('"&date2&"')order by fec_report")
Suma = 0
MesActual = Month(ra("fec_report"))


%>

<%Do While not RA.eof%>
<%id=RA("codactivo")%>
<table width="100%" style="border-collapse: collapse" cellpadding="0" cellspacing="4" bordercolor="#808080" border="1">

<%
Dim RZ
Set RZ=conn.Execute ("select ltrim(rtrim(forma_tran)) as forma_tran from aextraor where fec_report >= ('"&date1&"') and fec_report <= ('"&date2&"') and codactivo=('"&id&"')")
Do until RZ.EOF
forma=RZ("forma_tran")
RZ.MoveNext
Loop
%>
<%if forma="EFECTIVO" Then%>
<a href="RP03a.asp?id=<%Response.Write(id)%>"><tr class="tds" bgcolor="FFFFFF" onmouseover="this.bgColor= '#f7f7f7'" onmouseout="this.bgColor='FFFFFF'">
<%Else%>
<tr>
<%End if%>

<td width="8%" height="18" valign="top">
<p align="right">
<font face="Arial Narrow" size="1"><%=RA("fec_report")%>&nbsp;&nbsp;&nbsp;</font>
</td>

<td width="8%" height="18" valign="top">
<p align="right">
<font face="Arial Narrow" size="1"><%=RA("codactivo")%>&nbsp;&nbsp;&nbsp;</font>
</td>

<td width="10%" bordercolor="#808080" height="18" valign="top">
<p align="left">
<font face="Arial Narrow" size="1"><%=RA("claseactiv")%>&nbsp;&nbsp;&nbsp;</font>
</td>

<td width="30%" height="18" valign="top">
<p align="left">
<p align="justify"> <font face="Arial Narrow" size="1"><%=RA("descripcio")%>&nbsp;&nbsp;&nbsp;</font>
</td>

<td width="24%" height="18" valign="top">
<p align="center">
<p align="justify"><font face="Arial Narrow" size="1"><%=RA("ubicacion")%>&nbsp;&nbsp;&nbsp;</font>
</td>

<td width="8%" height="18" valign="top">
<%
x=RA("val_adjudi")
valadq=FormatNumber(x,2)
%>
<p align="right">
<font face="Arial Narrow" size="1"><%Response.Write(valadq)%>&nbsp;&nbsp;&nb sp;</font>
</td>

<%
x=RA("val_venta")
valval=FormatNumber(x,2)
%>

<td width="8%" height="18" valign="top">
<p align="center">
<font face="Arial Narrow" size="1"><%Response.Write(valval)%>&nbsp;&nbsp;&nb sp;</font>
</td>

<td width="11%" height="18" valign="top">
<p align="center">
<font face="Arial Narrow" size="1"><%=RA("forma_tran")%>&nbsp;&nbsp;&nbsp;</font>
</td>
</tr>
</a>
</table>

</td><input type=text value=ra("campoX") size="20"></td>
<%
suma = suma + ra("val_adjudi")
if ra("fec_report") <> MesActual then
%>
<tr><td colspan=N align=right>Total:&nbsp;<%=Suma%>
<%
MesActual = Month(ra("fec_report"))
Suma= 0
End If
RA.MoveNext
forma=""
val="yes"
Loop
%>

<%if val = "" Then%>
<p align="center"><b><font face="Arial" size="2" color="#FF0000"><br>
<br>
<br>
<br>
No se encontraron datos para generar este reporte.......
<%End if%> </font></b></p>
</body>

<%
Else
Response.Redirect("login.asp")
End if
%>