depois do 5 registro pula

kaplan · Julho 6, 2005

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

ASP

[*]

[*]<%@LANGUAGE="VBSCRIPT" %>

[*]<html>

[*]<head>

[*]<title>Paginaçã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")%> </td>

[*] <td><%=Rs("Cidade")%> </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 "« <a href=default.asp?pagina="&primeira&">Primeira Página</a> "

[*] End If

[*] If pagina > 1 AND pagina <> 2 Then

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

[*] End If

[*] If pagina > 1 Then

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

[*] End If

[*] Response.Write "[ "&pagina&" ] "

[*] If Not rs.EOF Then

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

[*] End If

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

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

[*] End If

[*] If Not rs.EOF Then

[*] Response.Write "<a href=default.asp?pagina="&ultima&">Última Página</a> » "

[*] End If

[*]End If

[*]rs.Close

[*]Set rs = Nothing

[*]%>

[*]</body>

[*]</html>

[*]

Tigger · Julho 6, 2005

SELECT TOP 5 * FROM TABELAnao seria isso?!?

Mário Monteiro · Julho 6, 2005

fica mesma coisa so que em vez de listar os registros de uma vez na vertical em linhas lista de 5 em cinco na horizontal em colunas e depois passa para a proxima linha...

renato_sl · Julho 6, 2005

Cara monta a tua Lógica com dois FOR`s um pra linha e outro pra coluna.

kaplan · Julho 6, 2005

cara você pode me dar uma ideia de logica....pq realmente o q eu quero é 5 registros em uma linha e 20 registros por pagina

explore · Julho 6, 2005

cara você pode me dar uma ideia de logica....pq realmente o q eu quero é 5 registros em uma linha e 20 registros por pagina

<{POST_SNAPBACK}>

Num entendi naum!

Salgado · Julho 6, 2005

Veja no tópico pendurado DUVIDAS FREQUENTES o post sobre "colunas".

kaplan · Julho 7, 2005

http://forum.imasters.com.br/public/style_emoticons/default/devil.gif consegui deu certo

olha ai o codigo

ASP

[*]

[*]<%@LANGUAGE="VBSCRIPT" %>

[*]<html>

[*]<head>

[*]<title>Paginação</title>

[*]</head>

[*]<body>

[*]<%

[*]registros = 12 'Registros por pagina

[*]pagina = Request.QueryString("pagina")

[*]If pagina = "" Then

[*] pagina = 1

[*]End If

[*]

[*]'Criando as variaveis

[*] Dim Conn

[*] Dim Rs

[*] Dim Sql

[*]

[*]'Fazendo a conexão com o Banco de Dados

[*] 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

[*]

[*]'Verifica o contador

[*] if contador=0 then

[*] response.write "<tr>"

[*] end if

[*] response.write "<td>"

[*] %>

[*] <table border="1">

[*] <tr>

[*] <%

[*]'Fazendo o Loop

[*] 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")%></td>

[*] <%

[*] 'Atribui o contador +1

[*] response.write "</td>"

[*] contador=contador+1

[*] if contador=3 then ' quantidade de colunas

[*] response.write "</tr>"

[*] contador=0

[*] end if

[*] rs.MoveNext

[*] Wend

[*]

[*] anterior = pagina - 1

[*] proxima = pagina + 1

[*] ultima = rs.PageCount

[*] primeira = 1

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

[*] If pagina <> 1 Then

[*] Response.Write "« <a href=default.asp?pagina="&primeira&">Primeira Página</a> "

[*] End If

[*] If pagina > 1 AND pagina <> 2 Then

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

[*] End If

[*] If pagina > 1 Then

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

[*] End If

[*] Response.Write "[ "&pagina&" ] "

[*] If Not rs.EOF Then

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

[*] End If

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

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

[*] End If

[*] If Not rs.EOF Then

[*] Response.Write "<a href=default.asp?pagina="&ultima&">Última Página</a> » "

[*] End If

[*]End If

[*]rs.Close

[*]Set rs = Nothing

[*]%>

[*]</tr>

[*]</table>

[*]</body>

[*]</html>

[*]

Queimar a cabeça de vez enquanto é bom ne, galera mais uma vez mto obrigado e q vcs fikem com Deus

Mário Monteiro · Julho 7, 2005

Queimar a cabeça de vez enquanto é bom ne, galera mais uma vez mto obrigado e q vcs fikem com Deus

valew cara, você tb fique com Deus

Arquivado

depois do 5 registro pula

Recommended Posts

kaplan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Tigger 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

renato_sl 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

kaplan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

explore 3

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

kaplan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante