Código Com Erro

[Crystal]

Olá pessoal!!

Tenho um código que lista e-mails de um banco de dados, em Access.

Eu não sei o que está acontecendo, pois fiz umas alterações e o código fica carregando durante um tempo e logo depois retorna um erro, dizendo que a página não pôde ser exibida.

Segue o código, para me ajudarem:

<%

Set Conexao = Server.CreateObject("ADODB.Connection")

ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bd-emails.mdb") & ";Persist Security Info=False"

Conexao.Open ConnString

Set rs = Conexao.Execute("select top 10 * from emails")

Do Until rs.EOF

Response.Write rs("email") & "<br>"

Loop

rs.Close

Set rs = Nothing

%>

Desde já obrigada!!

[dnlmosilva]

cara faltou o rs.MoveNext antes do LOOP...

Deve estar fazendo loop infinito..

Abraços...

[Crystal]

Oi dnlmosilva

Poxa era isso mesmo....acabei de fazer aqui.

Muito obrigada!!