Bueno, rapidamente se me ocurre algo asi:
Código:
<%
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"))
'...código HTML donde formas tus tabla
while NOT ra.EOF
%>...Código HTML donde llenas los campos..
</td><input type=text value=ra("campoX")></td>
<%
suma = suma + rs("val_adjudi")
if Month(ra("fec_report")) <> MesActual then
%>
<tr><td colspan=N align=right>Total: <%=Suma%>
<%
MesActual = Month(ra("fec_report"))
Suma= 0
End If
ra.MoveNext
Wend
%>
La idea es que sumes conforme vas recorriendo el recordset e imprimas cuando detectes que el mes cambia.
Saludos