prueba con esto
Código:
Sql = "SELECT Usuario,idUs, usuario.nombreUsuario, Banco.NombreBanco
FROM usuario INNER JOIN
CuentaUsu ON usuario.IdUs = CuentaUsu.IdUsu INNER JOIN
Banco ON CuentaUsu.Idbanco = Banco.IdCuenta
ORDER BY usuario.usuario
Set bd = bdconn.Execute(SQL)
If Not bd.eof then
tmp_ IdUsuario =bd("IdUsuario ")
response.write (bb("NombreUsuario"))
else
response.write(Mensaje_de_Error)
end if
while (not bd.eof)
if tmp_IdUsuario = bd("IdUsuario") then
response.write(bd("NombreBanco") & "<BR>" )
bd.movenext
else
tmp_ IdUsuario =bd("IdUsuario ")
response.write (bb("NombreUsuario"))
end if
wend
Prueba a ver si te sirve si hay un error me disculpo pero esta es la idea
ya qye haces una sola consulta para todo el reporte y no una consulta por cada usuario
Saludos
