ScriptTimeout

[DJ W 0]

E ai galera, beleza???Mais uma vez conto com ajuda de vcs....Seguinte, fiz os seguintes códigos:Conexão ao BD

<%'Conexão com o BDSet Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("../bd/estatisticas.mdb") Conn.open%>

Agora o código para fazer a busca no BD e verificar horário e o número de acessos:

<%    'Verifico na tabela horas, o horário que tem o maior número    'de acessos    SQL = "Select * from horas"    Set Rs_horas = Conn.Execute(SQL)    Rs_horas.MoveFirst()    maior = 0    While not Rs_horas.EOF              acessos = Rs_horas("acessos")              if acessos > maior Then   maior = acessos  hora = Rs_horas("hora")              End if      Wend %>

Agora para exibir dentro de uma tabela

<td valign="middle"><%=hora%> com <%=acessos%> visitas</td>

Quando tento visualizar a página, me exibe a mensagem de que o script excedeu o limite de execução: ScriptTimeout!!Já tentei colocar Server.ScriptTimeOut = 10000 e nada ...deu a mesma mensagem...Alguém tem idéia do que pode estar acontecendo???Agradeço desde já qualquer ajuda....[]`sWescley

[DJ W 0]

E ai galera ninguém para ajudar????[]`sWescley

[Salgado 4]

Seu select retorna só um registro ou centenas de milhares?

Seu While esta sem .MoveNext!

[DJ W 0]

Opa Salgado,O erro era o falta do Movenext()... :rolleyes: Como falam por ai: "A pressa é a inimiga da perfeição"Valeu![]`sWescley