A simple vista veo q llenas tus datos sin iterar, de ahi que solo te muestra 1 registro. tu tabla q muestra los datos debe estar en un tu bucle:
While Not Tabla.EOF
total=total+Tabla("MontoDoc")
total2=total2+Tabla("MontoDoc2")
saldo=total2-total
' AQUI LLENAR TUS DATOS DE LA TABLA %> <tr>
<td width="12%" bgcolor="#C0C0C0" height="30"> <p align="center"><font face="Arial" size="1"><%=Tabla.Fields("Fecha")%></font></td>
..............ETC......... <%
'si encuentra mas de un resultado nos hace una celda mas en la tabla
Tabla.MoveNext
Wend