Ir para conteúdo
Fórum Script Brasil
  • 0

Ajuda Com Paginação


Roberto Carvalho

Pergunta

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á.

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

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%>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...