Myakire, estuve haciendo el cambio que me dijiste y monté una captura rápida para ver si funcionaba y no leer todos los campos de la bd, pero no funcionó, aqui te pego todo el codigo de la aplicacion para que veas si entiendes por qué me da error. El IE arroja, ocurrió una "excepción 80020009"
Código:
<%
Dim oConn, rs, SQL, suma, id, monto, rubro, rubro_ant
id=0
set oConn=Server.CreateObject("ADODB.Connection")
oConn.open "DSN=intranet"
SQL="SELECT * from credito order by rubro"
set rs=oConn.Execute(SQL)
rubro_ant=rs.fields("rubro")
suma=0
While not rs.eof
Id=id+1
Response.Write(id)
Response.Write(rs.fields("nombre_cliente"))
Response.Write(rs.fields("numero_cliente"))
Response.Write(rs.fields("rubro"))
suma= suma + monto
rs.MoveNext
if rs("rubro") <> rubro_ant then%>
<br> totales:
<%Response.Write(suma)%>
<br>
<%
rubro_ant=rs.fields("rubro")
suma=0
end if
wend
%>
Gracias!