BrunO WatanabE

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

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

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