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

Olá pessoal,
estou iniciando em ASP e já me surgiu um problema, não consigo conectar no banco de dados.
Estou usando o Windows XP Professional, e o IIS 5

Depois de algum tempo aparece a mensagem:

HTTP 500.100 - Servidor interno Erro - erro do ASP
Internet Information Services

-------------------------------------------------------

Informações técnicas (para a equipe de suporte)
Tipo de erro:
Active Server Pages, ASP 0113 (0x80004005)
O tempo máximo de execução de um script foi excedido.
Você pode alterar esse limite especificando um novo valor para a propriedade Server.ScriptTimeout ou
alterando o valor nas ferramentas de administração do IIS.
/asp/conect.asp

-------------------------------------------------------

O fonte do arquivo é esse:
<%
dim conexao,rsclientes,strsql,constring

strsql = "select id, nome, telefone FROM cadastro ORDER BY nome"
constring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:Inetpubwwwrootancoclientes.mdb"
Server.ScriptTimeout = 1
set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open constring
set rsclientes = Server.CreateObject("ADODB.Recordset")
set rsclientes = conexao.execute(strsql)
'Exibe o conteúdo do banco de dados
while not rsclientes.EOF
response.write rsclientes("id") & " - "
response.write rsclientes("nome") & " - "
response.write rsclientes("telefone")
wend
rsclientes.close
conexao.close
set conexao = nothing
set rsclientes = nothing
%>

-------------------------------------------------------

Se alguém tiver o código de como faz a conexão, também agradeço!

Olá pessoal,
estou começando a estuar ASP agora e no livro que eu estou acompanhando cita um exemplo do reponse.buffer.
fala que com o response.buffer=true, é armazenado as informações no buffer e depois da instrução response.flush as infomações são enviadas para o navegador e após um response.clear ele limpa o buffer.
Mas não dá nenhum exemplo, para que eu poderia usar isso ?? e se eu usar me ajudaria em que ???

Agradeço a todos!