objt recordset regressivo

Pessoal O que acotnece eh o seguinte

preciso listar objetos do recordset em modo regressivo

(ja usei o ORDER BY para receber a query)

como estou criando um esquema de paginação, ele funciona para uma pagina de recados

vo colocar aqui o sql da procedure

e dps vou colocar o comando asp

se em qualquer um dos dois eu conseguir fazer isto estarei muito feliz =D

SQL

set @RegInicio = @RegInicio + 1
set @RowsCount = (SELECT COUNT(id_sigbe_recado) FROM sigbe_recado WHERE id_sigbe_perfil_destino = @usuario_id and sigbe_recado_ativo = 1)
set @PageSize = @RowsCount / @MaxLinhas
if @RowsCount < @MaxLinhas
begin
set @PageSize = 1
end

else if (@RowsCount % @MaxLinhas) != 0
begin
set @PageSize = @PageSize + 1
end

SET ROWCOUNT @RegInicio
SELECT @FirstID = id_sigbe_recado FROM sigbe_recado WHERE id_sigbe_perfil_destino = @usuario_id and sigbe_recado_ativo = 1 ORDER BY id_sigbe_recado DESC
SET ROWCOUNT @MaxLinhas

	select
 sigbe_perfil.id_sigbe_perfil as id
 ,sigbe_perfil.sigbe_perfil_nome as nome
 ,sigbe_perfil.sigbe_perfil_foto as foto
 ,sigbe_recado.id_sigbe_recado as id_recado
 ,sigbe_recado.sigbe_recado_descricao as recado
 ,sigbe_recado.sigbe_recado_data as data
 ,(select @PageSize) as PageSize
 from
 sigbe_perfil
 ,sigbe_recado
 where
 sigbe_recado.id_sigbe_perfil_destino = @usuario_id and
 sigbe_recado.id_sigbe_recado >= @FirstID and
 sigbe_perfil.id_sigbe_perfil = sigbe_recado.id_sigbe_recado_origem and
 sigbe_recado_ativo = 1
 ORDER BY id_sigbe_recado DESC

ASP

function listar_recados(id,PagInit,MaxLinha)
	set sql_recados = Server.CreateObject("ADODB.Command")
	set rs_recados = Server.CreateObject("ADODB.Recordset")

 if PagInit = "" then
 PagInit = 0
 else
 PagInit = PagInit * MaxLinha
 end if

	sql_recados = "execute sp_sigbe_rede_social @tipo='recados_listar', @usuario_id="&id&", @RegInicio="&PagInit&", @MaxLinhas="&MaxLinha
	rs_recados.Open sql_recados,conexao,"adOpenStatic","adLockBatchOptimistic"

	if not rs_recados.eof then
 rs_recados.MoveLast
 do until rs_recados.bof
 data = split(rs_recados("data")," ")
response.write "<tr>"&_
 "<td><a href=""perfil.asp?usuario_id="&rs_recados("id")&"""><img src="""&rs_recados("foto")&""" width=""100"" height=""100"" /></a></td>"&_
 "<td valign=""top"">"&_
 "<ul>"&_
 "<li><a href=""perfil.asp?usuario_id="&rs_recados("id")&""">"&rs_recados("nome")&"</a> ("&data(0)&")"&_
 "<ul>"&_
 "<li>"&rs_recados("recado")&"</li>"&_
 "</ul>"&_
 "<li> </li>"&_
 "<li>"&_
 "<a href=""recados.asp?usuario_id="&rs_recados("id")&">Responder</a>"&_
 "</li>"	&_
 "</li>"&_
 "</ul>"&_
 "</td>"&_
 "<td align=""right"">"
 if rs_recados("id") = Session("Usuario_id") or usuario_id = Session("usuario_id") then
 response.write "<a href=""recados.asp?excluir=true&id="&rs_recados("id_recado")&"&usuario_id="&usuario_id&""">Excluir</a>"
 end if
 response.write "</td>"&_
 "</tr>"
 rs_recados.MovePrevious
 control = false
 loop
 else
 control = true
 response.write "<tr><td align=""center"">Você não possui nenhum recado</td></tr>"
	end if
 if rs_recados.eof and control <> true then
 rs_recados.movefirst
 if not rs_recados("PageSize") = 1 then

 response.write "<tr><td> </td><td> </td><td class=""botao"" style=""width:120px;"">"
 for i=0 to Cint(rs_recados("PageSize"))
 if not i = 0 then
 if usuario_id <> session("usuario_id") then
 response.write "<a href=recados.asp?next="&i - 1&"&usuario_id="&usuario_id&">"&i&"</a>   "
 else
 response.write "<a href=recados.asp?next="&i - 1&">"&i&"</a>   "
 end if
 end if
 next
 response.write "</td></tr>"
 end if
 end if

 set sql_recados = nothing
 set rs_recados = nothing
 set data = nothing

end function