objt recordset regressivo

[peedrow!! 0]

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

[xanburzum 169]

naun entendi , muito bem o k ker...

você tentou o ORDER BY DESC

[peedrow!! 0]

naun entendi , muito bem o k ker...

você tentou o ORDER BY DESC

 

Acontece o seguinte eu ja estou ordenando pelo banco de uma forma, que é para a paginação funcionar, porem no asp preciso ordernar ao contrario entendeu?

[Felipe Fonseca 0]

obj.MoveLast

obj.MovePrevious

 

nao seria isso ?

[xanburzum 169]

você pode fazer a paginacaun e ordenar ORDER BY DESC