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

Depois Do 5 Registro Pula

tsarri

Perguntado por tsarri,

 Share

Pergunta

tsarri

tsarri

Postado
Postado

galera crie uma consulta e por pagina ela mostra 20 consultas, mais o meu problema é este eu to usando tabela e eu queria colocar 5registros em cada linha como eu faço isto???

<%@LANGUAGE="VBSCRIPT" %>

<html>

<head>

<title>Pagina&ccedil;&atilde;o</title>

</head>

<body>

<%

registros = 20

pagina = Request.QueryString("pagina")

If pagina = "" Then

  pagina = 1

End If

Dim Conn

Dim Rs

Dim Sql

  Set Conn = Server.CreateObject("ADODB.Connection")

  Conn.Open= "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Banco.mdb")

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

  set rs.ActiveConnection = Conn

  rs.CursorType = 3

  rs.PageSize = registros

  Sql = "Select * From Dados"

  rs.Open sql

  %>

  <table border="0">

  <tr>

  <%

  If rs.EOF Then

      Response.Write "Nenhum registro encontrado"

  Else

      rs.AbsolutePage = pagina

      While Not rs.EOF AND x < rs.PageSize

        x = x + 1

  %>

  <td><%=Rs("Email")%><br></td>

      <td><%=Rs("Cidade")%><br></td>

      <%

  Rs.MoveNext

  Wend

      %>

  </tr>

</table>

  <%       

  anterior = pagina - 1

  proxima = pagina + 1

  ultima = rs.PageCount

  primeira = 1

  ultm2 = FormatNumber(rs.PageCount - 1,0)

  If pagina <> 1 Then

    Response.Write "<b>&laquo; <a href=default.asp?pagina="&primeira&">Primeira Página</a></b> "

  End If

  If pagina > 1 AND pagina <> 2 Then

    Response.Write "<b>[ <a href=default.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "

  End If

  If pagina > 1 Then

    Response.Write "<b>[ <a href=default.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "

  End If

    Response.Write "<b>[ "&pagina&" ]</b> "

  If Not rs.EOF Then

    Response.Write "<b>[ <a href=default.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "

  End If

  If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then

    Response.Write "<b>[ <a href=default.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "

  End If

  If Not rs.EOF Then

    Response.Write "<b><a href=default.asp?pagina="&ultima&">Última Página</a> &raquo;</b> "

  End If

End If

rs.Close

Set rs = Nothing

%>

</body>

</html>

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
ViniciusJau

ViniciusJau

Postado
Postado
você já tentou isso...não tenho certeza que vai dar certo.........

Sql = "Select top 5 * from Dados"

acho que p problema dele é html fantasma...

você quer colcoar 5 por linha ou cinco por pagina..

se for cinco por linha é só fuçar nas suas tabelas ai .. tem dificuldade e fazer isso ?

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

da uma olhada c é isso q você quer:

<%@LANGUAGE="VBSCRIPT" %>

<html>

<head>

<title>Pagina&ccedil;&atilde;o</title>

</head>

<body>

<%

registros = 20

pagina = Request.QueryString("pagina")

If pagina = "" Then

  pagina = 1

End If

Dim Conn

Dim Rs

Dim Sql

  Set Conn = Server.CreateObject("ADODB.Connection")

  Conn.Open= "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Banco.mdb")

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

  set rs.ActiveConnection = Conn

  rs.CursorType = 3

  rs.PageSize = registros

  Sql = "Select * From Dados"

  rs.Open sql

  %>

  <table border="0">

  <tr>

  <%

  If rs.EOF Then

      Response.Write "Nenhum registro encontrado"

  Else

      rs.AbsolutePage = pagina

      While Not rs.EOF AND x < rs.PageSize

        x = x + 1

        if x > 5 then

          response.write "</tr><tr>"

          x = 1

        end if

  %>

  <td><%=Rs("Email")%><br></td>

      <td><%=Rs("Cidade")%><br></td>

      <%

  Rs.MoveNext

  Wend

      %>

  </tr>

</table>

  <%     

  anterior = pagina - 1

  proxima = pagina + 1

  ultima = rs.PageCount

  primeira = 1

  ultm2 = FormatNumber(rs.PageCount - 1,0)

  If pagina <> 1 Then

    Response.Write "<b>&laquo; <a href=default.asp?pagina="&primeira&">Primeira Página</a></b> "

  End If

  If pagina > 1 AND pagina <> 2 Then

    Response.Write "<b>[ <a href=default.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "

  End If

  If pagina > 1 Then

    Response.Write "<b>[ <a href=default.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "

  End If

    Response.Write "<b>[ "&pagina&" ]</b> "

  If Not rs.EOF Then

    Response.Write "<b>[ <a href=default.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "

  End If

  If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then

    Response.Write "<b>[ <a href=default.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "

  End If

  If Not rs.EOF Then

    Response.Write "<b><a href=default.asp?pagina="&ultima&">Última Página</a> &raquo;</b> "

  End If

End If

rs.Close

Set rs = Nothing

%>

</body>

</html>

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.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...