BrunO WatanabE
-
Total de itens
3 -
Registro em
-
Última visita
Posts postados por BrunO WatanabE
-
-
E o seguinte.
o Codigo ta dando esse erro aki quando eu pulo pra pagina 2
You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near 'ORDER BY 'id' DESC LIMIT 20, 20' at line 1
ae quando passo pra pagina 3 da esse erro no limit
You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near 'ORDER BY 'id' DESC LIMIT 40, 20' at line 1
e assim por diante... acho q o problema esta na divisao bem onde esta marco de
vermelho no codigo..
já tentei de td mas não consegui..
se alguém poder me ajudar...
<%
id=request.QueryString("id")
' Abre a Conexão com o Banco de Dados
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.ConnectionString = "driver=MySQL ODBC 3.51 Driver;DATABASE=banco;SERVER=server;UID=user;PASSWORD=senha"
Conexao.Open
' Select para obter o total de registros da tabela
Set rs = Conexao.Execute("SELECT COUNT(id) As total_registros FROM agendaWHERE festa = "&id&"")
total_registros = rs("total_registros")
rs.Close
Set rs = Nothing
' Variával com o total de registros listados por página.
registros_pg = 20
' Variável com o número de colunas a ser mostrado.
numero_colunas = 4
' Obtem o número total de paginas.
total_paginas = total_registros / registros_pg
If (Instr(total_paginas, ",") > 0) Then total_paginas = Int(total_paginas + 1)
' Verifica a página atual
pagina = Request.QueryString("pagina")
If (Not IsNumeric(pagina)) Then
pagina = 1
ElseIf IsEmpty(pagina) Or pagina < 1 Then
pagina = 1
ElseIf Int(pagina) > Int(total_paginas) Then
pagina = Int(total_paginas)
End If
' Pega o número do primeiro registro a obter na sql
reg_inicio = pagina * registros_pg - registros_pg
Response.Write "<table width='100%' border='1' cellspacing='0' cellpadding='0'>"
' SQL para pegar os registros.
Set rs = Conexao.Execute("SELECT * FROM agenda WHERE festa = "&id&" ORDER BY 'id' DESC LIMIT "& reg_inicio &", "& registros_pg&"")
If rs.EOF Then
Response.Write "Nenhum registros encontrado"
Else
While Not rs.EOF
Response.Write "<tr>" & VbCrLf
For i = 1 To numero_colunas
Response.Write "<td>"
If Not rs.EOF Then
Response.Write "<a href=""foto.asp?id="&RS.Fields("id").Value&""" target=""page""><img src=""imagem/p/"&RS.Fields("foto").Value&""" width=""70"" height=""50"""" border=""0"">" & VbCrLf
rs.MoveNext
Else
Response.Write " "
End If
Response.Write "</td>"
Next
Response.Write "</tr>" & VbCrLf
Wend
End If
rs.Close
Set rs = Nothing
Response.Write "</table>"
Response.Write "<hr>"
' Fecha a conexão com o banco de dados
Conexao.Close
Set Conexao = Nothing
'INÍCIO DOS LINKS DA PAGINAÇÃO.
If Int(total_paginas) > 1 Then
Response.Write "<b>Páginas:</b> "
' Aqui você define quantos links mostrará antes e depois da pagina atual.
links = 5
' Aqui é criado os links antes da página atual.
For i = (pagina - links) To (pagina - 1)
If i > 0 Then
Response.Write " <a href='?pagina="& i &"'>"& i &"</a> "
End If
Next
'Imprime o número da página atual
Response.Write " <b>"& pagina &"</b> "
' Aqui é criado os links após a página atual.
For i = (pagina + 1) To (pagina + links)
If i > total_paginas Then Exit For
Response.Write " <a href='?pagina="& i &"'>"& i &"</a> "
Next
End If
%>
-
Cara usa o for e o next
tipo esse aki.
<table>
<%
While Not rs.EOF%>
<tr><%
For i = 1 To 4 ' o 4 e a quantidade de colunas
%>
<td>
<%If Not rs.EOF Then%>
<%=rs("campo")%>
<% rs.MoveNext
End If%>
</td>
<%Next%>
</tr>
<%Wend
%></table>
mas a quantidade de linhas vai depender da quantidade de registros q você tem em seu banco de dados
espero te ajudado
Paginaçao Com Limit
em ASP
Postado
OOo Gente esquece..já resolvi aki.. dei bobeira..AUHEuhauehuea
Fui..