Ajuda Com Paginação

[Roberto Carvalho]

já procurei em varios foruns, mas não consegui um codigo que funcione perfeitamente, eu to precisando que as imagens fiquem alinhadas lado a lado em colunas e que eu defina quantos colunas devem ter, Alem disso preciso que tenham os links proximo e anterior para não ficar todos os registros numa so pagina.

Se alguêm puder me ajudar agradeço desde já.

[bareta]

use a busca do forum....

[Roberto Carvalho]

Esquece obrigado, já resolvi.

Juntei dois codigos diferentes que eu tinha num só para quem quiser usar segue o codigo:

<table width=500 border=1>

<tr>

<!--#include file="conn.asp"-->

<%

sql = "select * from infpessoais"

Set rs = Server.CreateObject("ADODB.Recordset")

RS.PageSize = 5

rs.Open sql, conn, 3, 3

If RS.EOF then

Response.Write "Nenhum registro encontrado!"

Response.End

Else

If Request.QueryString("pagina")="" then

intpagina=1

Else

If Cint(Request.QueryString("pagina"))<1 then

intpagina=1

Else

If Cint(Request.QueryString("pagina"))>RS.PageCount then

intpagina=RS.PageCount

Else

intpagina=Request.QueryString("pagina")

End If

End if

End if

End if

RS.AbsolutePage=intpagina

intrec=0

%>

<% Dim contador

contador = 1

maxcol = 3 '<------------------ numero de registros por colunas

do while not rs.eof and intrec<RS.PageSize %>

<%

if contador <= maxcol then %>

<td><img border="0" src=<%=rs("foto")%>><p><p align="center"><%=rs("nome")%>&nbsp;<%=rs("sobrenome")%></td>

<%

contador = contador + 1

else %>

</tr>

<tr>

<td><img border="0" src=<%=rs("foto")%>><p><p align="center"><%=rs("nome")%><%=rs("sobrenome")%></td>

<%

contador = 2

end if

rs.movenext

intrec=intrec+1

loop

'completa as colunas

do while contador <= maxcol %>

<td>&nbsp;

</td>

<% contador = contador + 1

loop %>

<%

If intpagina>1 then %>

<a href="possibilidades4.asp?pagina=<%=intpagina-1%>">Anterior</a>

<%end if

For i=1 to RS.PageCount

If i = Cint(intpagina) then%>

[<%=i%>]

<% else %>

<a href="possibilidades4.asp?pagina=<%=i%>">[<%=i%>]</a>

<%end if

Next

If strcomp(intpagina,RS.PageCount)<>0 then %>

<a href="possibilidades4.asp?pagina=<%=intpagina+1%>">Próxima</a>

<%end if%><%

rs.close

set rs=nothing

conn.close

set conn=nothing%>