1 reply to this topic

[RQG_]

Olá pessoal,
estou tendo um probleminha com paginação. Está dando um erro que não consigo identificar. Talvez alguém possa me ajudar, e alguém tiver usando um código que está funcionando e puder me passar eu agradeço.

Erro: Erro de compilação do Microsoft VBScript (0x800A0408)
Caractere inválido
/asp/paginacao.asp, line 17
intpagina=1
------------------------------------------------------------------------------------------------
Código

<%
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.ConnectionString = "DBQ=" & Server.MapPath("clientes.mdb") & ";"
Conn.ConnectionString = Conn.ConnectionString & "Driver={Microsoft Access Driver (*.mdb)};"
Conn.Open
'objeto recordset
Set RS = Server.CreateObject("Adodb.RecordSet")
RS.PageSize = 5

sql = "SELECT * FROM cadastro"
RS.Open sql,Conn,3,3
If RS.EOF then
Response.Write "Nenhum registro encontrado!"
Response.End
Else
If Request.QueryString("pagina")= "" then
 intpagina=1
Else
 If Cint(Request.QueryString("pagina"))<1 then
  intpagina=1
 Else
  If Cint(Request.QueryString("pagina"))>RS.PageCount then
   intpagina=RS.PageCount
  Else
   intpagina=Request.QueryString("pagina")
  End If
 End if
End if
End if

RS.AbsolutePage=intpagina
intrec=0
%>

<p align="center"><b>
Pagina <%=intpagina%> de <%=RS.PageCount%>
</b>
<div align="center">
 <center>
 <table border="0" width="75%">
<%While intrec<RS.PageSize and not RS.EOF%>
   <tr>
     <td width="18%"><%=RS("marca")%></td>
     <td width="25%"><%=RS("moto")%></td>
     <td width="17%"><%=RS("ano")%></td>
     <td width="20%"><%=RS("cor")%></td>
     <td width="20%"><%=FormatCurrency(RS("preco"))%></td>
   </tr>
 
<%
 RS.MoveNext
 intrec=intrec+1
Wend%>
</table>
 </center>
</div>
<p align="center">

<%
If intpagina>1 then %>
    <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a>
<%end if
For i=1 to RS.PageCount
If i = Cint(intpagina) then%>
 [<%=i%>]
<% else %>
 <a href="paginacao.asp?pagina=<%=i%>">[<%=i%>]</a>
<%end if
Next
If strcomp(intpagina,RS.PageCount)<>0 then %>
    <a href="paginacao.asp?pagina=<%=intpagina+1%>">Próxima</a>
<%end if%>

[[webmaster]®]

Veja estes links
http://www.portalfir...?showtopic=2126
http://www.asp4devel...do=ver&id=l0524