Aupa
zangano se me ocurre que puedes hacer un recorrido del recordset y poner tu los datos como dices.
ejemplo:
1.- Haces la select, ordenado por cuenta.
2.- Recorres el recordset
Código:
if not rs.eof then
cuenta_ant = rs("cuenta")
do while not rs.eof
if cuenta_ant = rs("cuenta") then
fechas = fechas & ", " & rs("fecha")
rs.movenext
else
response.write cuenta_ant & " " & fechas
cuenta_ant = rs("cuenta")
fechas =""
end if
loop
end if