Erro De Eof

[Guest Weber]

Andei olhando nos outros tópicos que postaram com o mesmo problema qur este meu fiz as mudanças e nada...

Poderiam me informar se há algo a mais errado?

ERRO:

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/adm/resultado.asp

CODIGO:

...

<%

' Início do loop

If not rsCad_Empresa.EOF Then

Do until rsCad_Empresa.EOF

%>

<!--Início tabela onde mostrará os resultados da consulta -->

<table width="698" border="0" align="center" cellpadding="0" cellspacing="0">

<tr bgcolor="#e1e1ea">

<td width="386" bgcolor="#F2F1FE" class="conteudo_lista"><div align="left"></div>

<div align="left">&nbsp;&nbsp;&nbsp;<%=rsCad_Empresa("Razao_Social")%></div></td>

<td width="3" bgcolor="#FFFFFF" class="conteudo_lista">&nbsp;</td>

<td width="94" bgcolor="#F2F1FE" class="conteudo_lista">&nbsp;&nbsp;&nbsp;&nbsp;<%=rsCad_Empresa("Tipo_Empresa")%></td>

<td width="3" bgcolor="#FFFFFF" class="conteudo_lista">&nbsp;</td>

<td width="66" bgcolor="#F2F1FE" class="conteudo_lista">&nbsp;&nbsp;&nbsp;&nbsp;<%=rsCad_Empresa("UF")%></td>

<td width="10" bgcolor="#FFFFFF"><div align="center"></div></td>

<td width="32" bgcolor="#FFFFFF"><div align="center"><a href="visualiza_cliente.asp?Id_Empresa=<%=rsCad_Empresa("Id_Empresa")%>"><img src="imagens/Icons/visualizar.jpg" alt="Visualizar Cliente" width="25" height="25" border="0"></a></div></td>

<td width="38" bgcolor="#FFFFFF"><div align="center"><a href="inserir_contato.asp?Id_Empresa=<%=rsCad_Empresa("Id_Empresa")%>"><img src="imagens/Icons/contato_insere.jpg" alt="Incluir Contato" width="25" height="25" border="0"></a></div></td>

<td width="36" bgcolor="#FFFFFF"><div align="center"><a href="edita_Cliente.asp?Id_Empresa=<%=rsCad_Empresa("Id_Empresa")%>"><img src="imagens/Icons/engranagem.jpg" alt="Editar Cliente" width="25" height="25" border="0"></a></div></td>

<td width="30" bgcolor="#FFFFFF"><div align="center"><a href="msn_deleta_cliente.asp?Id_Empresa=<%=rsCad_Empresa("Id_Empresa")%>"><img src="imagens/Icons/exclusao.jpg" alt="Excluir Cliente" width="25" height="24" border="0"></a></div></td>

</tr>

<tr>

<td height="3" colspan="10" class="conteudo_lista"></td>

</tr>

</table>

<!--Fim tabela que mostrou os resultados da consulta -->

<%

' Fim loop

rsCad_Empresa.Movenext

Loop

Call fechaconexao

Else

' Mensagem para quando não tiver registros com os parâmetros pedidos

Response.Write "<br><br><font size='3' color='red'><B>Não foram encontrados registros...</B></font><br><br><br><br>"

End if

%> </div>

</div>

</td></tr>

</table>

</body>

</html>

[cyberalexxx]

tenta criar o loop assim:

' Início do loop
If not rsCad_Empresa.EOF Then
Do while not rsCad_Empresa.EOF

[Guest weber]

Galera. resolvi, tinha uns RS conflitando na pg....

Valeu

[cyberalexxx]

OK!!

Tópico Fechado!!