Agrupar registros

[Inside 2]

Caros amigos

 

tenho uma tabela onde há 2 ou mais registros identificados pela Agência. Segue o código abaixo:

 

dim conn_ca, sqlca, rsca, sqlre, rsre

Set conn_ca = Server.CreateObject("ADODB.Connection")

conn_ca.Open dsn_sistema

SQLca = "SELECT rlogdata,agencia from acoes order by rlogdata, agencia"

set rsca = conn_ca.execute(sqlca)

do while not rsca.eof
%>

<table>
<%
set rsca_a = nothing

dim data_a, resultado

data_a = DateDiff("d",""& rsca("rlogdata") &"",""& formatdatetime(date) &"")

resultado = "<tr><td width=""105"">" & rsca("agencia") & "</td><td width=""30"" align=""center"">" & data_a & "</td><td width=""30"">dia(s)</td></tr>"

response.write resultado
%>
</table>

<%
rsca.movenext
loop

set rsca = nothing

conn_ca.close
set conn_ca = nothing

 

 

Este código mostra registros assim:

 

Curitiba 2 dia(s) atrás

Curitiba 0 dia(s) atrás

 

 

Quando é criado um novo registro essa linha:

 

data_a = DateDiff("d",""& rsca("rlogdata") &"",""& formatdatetime(date) &"")

lê o registro e mostra à quantos dias atrás foi criado o registro comparando a data de hoje com o registro do banco.

 

 

 

Minha pergunta é? Como faria para agrupar estes 2 registros como se fosse um registro só? Mostrando apenas o registro mais atual?

 

 

 

Já tentei assim mas não deu certo:

 

SQLca = "SELECT rlogdata,agencia from acoes order by rlogdata, agencia GROUP BY agencia"

 

O registro mais atual é este: Curitiba 0 dia(s) atrás (Porque foi criado hoje)

 

 

 

 

Obrigado pela atenção.

[xanburzum 169]

O registro atual você quer que fique exibindo assim:

Curitiba 0 dia(s) atrás

ou precisa listar mais de um, desculpe, não entendi muito bem ?!?!?