tudo certo...quando da um loop pelo while da erro

[crucifier 0]

aih galera..tava dando esse erro na minha pagina...fui simplificando o codigo..simplificando...tirando as coisas..até deixar apenas o extremamente necessario..quando eu do um loop pelo wend nos registros ele fica carregando carregando a página..até dar o seguinte erro:

Response object error 'ASP 0104 : 80070057' Operation not Allowed /sistema/prefeitura/teste_cat.asp, line 0

meu codigo ta o seguinte:

<table width="500" border="0" cellspacing="0" cellpadding="0">  <tr>	<td align="center" valign="middle">Categoria</td>  </tr>  <tr>  <%	strCon = "Driver=MySQL ODBC 3.51 Driver; Server=servidor; Uid=usuario; Pwd=senha; Database=base_dados"  Set objCon = Server.CreateObject("ADODB.Connection")  objCon.Open strCon  set objrs = server.CreateObject("ADODB.Recordset")  sql = "Select * from pref_cat"  objrs.cursortype = 3  objrs.locktype = 1  objrs.open sql, objcon  ultimo = objrs.recordcount  while not objrs.eof  %>	<td align="center" valign="middle"><%=objrs("cat_categoria")%></td>  </tr>  <%  wend  objrs.close  set objrs = nothing  %></table>

se alguem puder me ajudar^^agradeço desde já..

[ska_ska 0]

cuidado para não "estragar" a memória do seu servidor, hein..ehehhe.. loops infinitos são malvados..

 

while not objrs.eof  %>	<td align="center" valign="middle"><%=objrs("cat_categoria")%></td>  </tr>  <%	 objrs.MoveNext ' <--- nunca se esqueça q o while/wend e o do while/loop, do/until não fazem o incremento automaticamente....  wend

;)

[naofuieu 0]

Pois é, cara.Testa aí e aviza nóis se deu certo, falow?

[crucifier 0]

kraio velho...eskeci totalmente do objrs.movenext...valew a ajuda aih..OAEUHoashuoUH ainda bem q eu nao tava testando um sistema de newsletter..meu amigo uma veiz eskeceu de fechar o loop tambem e mandou 10mil e-mail sem kerer..o servidor keria processar ele porq feiz trava td lamai ta beleza galera...valew mesmo hein!