Paginaçao Com Limit

[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 "&nbsp;"

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

%>

[BrunO WatanabE]

OOo Gente esquece..já resolvi aki.. dei bobeira..AUHEuhauehuea

Fui..