Paginação X TimeOut

[ythalorossy 0]

Olá Helpimaster!!!

 

Seguinte:

 

Tenho o seuguinte codiço de páginação

 

<%Set Conn = server.CreateObject("ADODB.Connection")Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("clientes.mdb")set RS = server.CreateObject("AdoDb.Recordset")Rs.pageSize = 5SQL = "Select * From contatos"RS.open SQL,Conn,3,3	IF Rs.EOF then	Response.write "Nenhum arquivo 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 IFRS.AbsolutePage = intpaginaintrec = 0while intrec < RS.PageSize And not RS.EOFresponse.write RS("nome") & " - " & RS("telefone") & " - " & RS("email") & "<BR>"	IF RS.EOF then	response.write ""	END IFWendIF intpagina > 1 then%><a href="index.asp?pagina=<%=intpagina -1%>">Anterior</a><%END IFIF strcomp(intpagina,RS.PageCount) <> 0 then %>    <a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próxima</a> <% END IF%><%Recordset1.Close()Set Recordset1 = Nothing%>

mas o que acontece é que ao invés de paginar que seria sea função principal, ele fica processando ate aparece a página "Esta página não pode ser exibida", logo abaixo vem as explicações, como o tempo expirou...

 

Tenho em minha maquina o windows XP, com IIS instalado rodando ASP e PHP...

 

Gostaria de saber se realmente o código aciamesta certo...

 

Agradeço a atenção.

 

Ythalo Rossy

[ska_ska 0]

você fez o chamado loop infinito...

while intrec < RS.PageSize And not RS.EOF  response.write RS("nome") & " - " & RS("telefone") & " - " & RS("email") & "<BR>"  IF RS.EOF then     response.write ""  END IFWend

antes do WEND deveria ter um RS.MoveNext ne... pq se naum ele sempre vai ficar no 1o. registro...

 

so um obs....

cuidado q loops mal elaborados diminui muito o desempenho do seu servidor podendo ateh parar o serviço de WWW...