Paginação de resultados... como fazer deste jeito?

[webfuture 0]

Estou montando um sistema onde o usuário pode fazer uma busca por usuários cadastrados, na primeira tela ele lista todos os usuários cadastrados sem paginação (1,2,3,4,5) em uma lista, porém ao acessar o perfil de qualquer um da lista ele poderá ir para o próximo ou anterior.... ai já não faço idéia de como fazer isto...

 

Meu select que traz todos os usuários esta assim:

 

<TABLE><%Set RSListaUsuarios = Server.CreateObject("AdoDB.Recordset")RSListaUsuarios.open "Select id, nome_composto from TB_Cadastros WHERE sexo = '"& sexo &"' and idade = "& idade_entre &" and uf = '"& uf &"' ", conexaoSQLwhile not RSListaUsuarios.EOFid = RSListaUsuarios.Fields("id")nome_composto = RSListaUsuarios.Fields("nome_composto")%><TR><TD CLASS="CADASTRO"><A CLASS="PRETO" TARGET="_parent" HREF="turma_mostra.asp?id=<%Response.Write id%>"><%Response.Write nome_composto%></A></TD><TD WIDTH="20"></TD><TD CLASS="CADASTRO">10</TD></Tr><%RSListaUsuarios.movenextwendRSListaUsuarios.closeset RSListaUsuarios = nothingConexaoSQL.CloseSet ConexaoSQL = Nothing%></TABLE>O select que mostra os dados do perfil clicado esta assim:id = request("id")if id <> "" and (id > 0) thenSet RsDadosAssociado = Server.CreateObject("AdoDB.Recordset")SQL = "SELECT * from TB_Cadastros WHERE id = "& id &" "RsDadosAssociado.open SQL, conexaoSQLif not(RsDadosAssociado.eof) thencampo1 = RSDadosAssociado.Fields("campo1")campo2 = RSDadosAssociado.Fields("campo2")campo3 = RSDadosAssociado.Fields("campo3")end ifRsDadosAssociado.CloseSet RsDadosAssociado = Nothingend if

A partir dai monto nas tabelas as informações do perfil clicado.

 

Este script acima lista os nomes que clicando neles mostro o perfil do usuário a partir do ID, agora como fazer o próximo ?

 

WebFuture

[sr.silva 1]

Ae cara vê se te ajuda!

 

Laboratorio de Scripts

http://forum.imasters.com.br/index.php?showtopic=17223