Either BOF or EOF is True, or the current record has been deleted

[Silvia_cowgirl 0]

alguém sabe me dizer que erro é esse...

 

ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

 

/formulario/administrador.asp, line 79

 

<%if modo = "" then   if codigo = "" then	  set rsAdministrador = Server.CreateObject("ADODB.Recordset")	  SQL = "Select * from tbl_cadastrousuarios order by nome ASC"	  rsAdministrador.open SQL, Conn		 if rsAdministrador.bof and rsAdministrador.eof then %>			<table width="100%" border="0" cellpadding="0" cellspacing="0">  <tr valign="middle"> 	<td bgcolor="#FFFFFF"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">NENHUM 		USUÁRIO CADASTRADO!</font></div></td>  </tr><td align="left" bgcolor="#FFFFFF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">  </font></td>  </tr>  <tr valign="middle"> 	<td align="right" bgcolor="#FFFFFF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="administrador.asp?modo=listalog&inicia=1">LOGS</a> 	  - <a href="administrador.asp?modo=novo">NOVO USUÁRIO</a></font></td></table>					 		  <%else 			 varProximo = inicia + 11			 varAnterior = inicia - 11			 varCor = "#FFFFFF"			 varLinhas = 0 %><table width="500" border="0" cellpadding="1" cellspacing="1">  <tr valign="middle"> 	<td align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">CÓD.</font></td>	<td align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">USUÁRIO</font></td>	<td align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">FUNCIONARIO</font></td>	<td align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">ATIVO</font></td>	<td align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">A</font></td>	<td align="center"><font face="Verdana, Arial, Helvetica, sans-serif"><font size="1">E</font></font></td>  </tr>  <% 'Para fazer avançar os registros a variavel inicia conta 11 registros regrecivos				do while inicia <> 1				   rsAdministrador.movenext				   inicia = inicia - 1   				loop				'Após avançar os registros ele inicia a contagem e visualização de mais 11 registros				do while rsAdministrador.eof = false				   varCodigo = rsAdministrador.fields("codigo")				   				   varFiltro1 = rsAdministrador.fields("usuario")				   varFiltro2 = Replace(varFiltro1,"§39§","'") ''				   varFiltro3 = Replace(varFiltro2,"§34§","´") '"				   varFiltro4 = Replace(varFiltro3,"§35§",chr(35)) '#				   varFiltro5 = Replace(varFiltro4,"§37§",chr(37)) '%				   varFiltro6 = Replace(varFiltro5,"§38§",chr(38)) '&				   varUsuario = Replace(varFiltro6,"§42§",chr(42)) '*		 				   varFiltro1 = rsAdministrador.fields("nome")				   varFiltro2 = Replace(varFiltro1,"§39§","'") ''				   varFiltro3 = Replace(varFiltro2,"§34§","´") '"				   varFiltro4 = Replace(varFiltro3,"§35§",chr(35)) '#				   varFiltro5 = Replace(varFiltro4,"§37§",chr(37)) '%				   varFiltro6 = Replace(varFiltro5,"§38§",chr(38)) '&				   varNome = Replace(varFiltro6,"§42§",chr(42)) '*				   				   varAtivo = rsAdministrador.fields("exibir")										 				   'Muda a cor das linhas				   If varCor = "#DFF2FF" then					  varCor = "#FFFFFF"				   else					  varCor = "#DFF2FF"				   end if				   ' Verifica se possui menos que 11 registros, caso sim exibe-os				   if varLinhas < 11 then %>  <tr valign="middle"> 	<td height="22" align="center" bgcolor="<%=varCor%>"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=varCodigo%></font></td>	<td align="center" bgcolor="<%=varCor%>"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=varUsuario%></font></td>	<td align="center" bgcolor="<%=varCor%>"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=varNome%></font></td>	<td align="center" bgcolor="<%=varCor%>"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=varAtivo%></font></td>	<td align="center" bgcolor="<%=varCor%>"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="administrador.asp?modo=alterar&codigo=<%=varCodigo%>">A</a></font></td>	<td align="center" bgcolor="<%=varCor%>"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="administrador.asp?modo=excluiregistro&codigo=<%=varCodigo%>">E</a></font></td>  </tr>  <%else 				   end if				   rsAdministrador.movenext				   varLinhas = varLinhas + 1				loop %>  <tr valign="middle"> 	<td height="24" colspan="6"> <div align="right"> 		<table width="100%" border="0" cellspacing="0" cellpadding="0">		  <tr valign="middle"> 			<td align="left"> <font color="#0066CC" size="1" face="Verdana, Arial, Helvetica, sans-serif"> 			  <%			response.Write(session("confirmacao"))			session("confirmacao") = ""			%>			  </font></td>			<td align="right"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="administrador.asp?modo=listalog&inicia=1">LOGS</a> 			  - <a href="administrador.asp?modo=novo">NOVO USUÁRIO</a> 			  <% ' Cria os links para as páginas					  rsAdministrador.movefirst					  'Conta quantos registros tem no Banco					  varNumerodeRegistros = 0					  do while rsAdministrador.eof = false						 varNumerodeRegistros = varNumerodeRegistros + 1						 rsAdministrador.movenext					  loop					  'Exibe todas as páginas como links 					  rsAdministrador.movefirst					  varInicia = 1 'Qual registro deve iniciar					  varLinhas = 0 'Conta quantos registros exibiu					  varPagina = 1 'Exibe o nº da página 		  					  if varProximo > varNumerodeRegistros then						 if varAnterior > 0 then %>			  - <a href="administrador.asp?inicia=<%=varAnterior%>" >Anterior</a> 			  <%end if					  else			  						 if varAnterior > 0 then %>			  - <a href="administrador.asp?inicia=<%=varAnterior%>">Anterior</a> - 			  <a href="administrador.asp?inicia=<%=varProximo%>">Próximo</a> 			  <%else%>			  - <a href="administrador.asp?inicia=<%=varProximo%>">Próximo</a> 			  <%end if					  end if %>			  </font></td>		  </tr>		</table>

obrigada.

[Silvia_cowgirl 0]

Falta você usar um IF para ver se tem registro! Veja http://forum.imasters.com.br/index.php?showtopic=157795 B)

desculpe, mas como assim, como eu posso fazer isso?eu sou nova nessa área.obrigada

[Mário Monteiro 179]

pelo que vi voce até fez em parte o que devia...Voce temif rsAdministrador.bof and rsAdministrador.eof thenbeleza é isso mesmo, aqui voce testa se tem algo para trabalhar, só que depois tem umelse e voce não faz mais este teste... por isso o erro ocorreo certo para mais de um possivel registro como resposta seria fazer este teste em um loop while...

[Silvia_cowgirl 0]

pelo que vi voce até fez em parte o que devia...Voce temif rsAdministrador.bof and rsAdministrador.eof thenbeleza é isso mesmo, aqui voce testa se tem algo para trabalhar, só que depois tem umelse e voce não faz mais este teste... por isso o erro ocorreo certo para mais de um possivel registro como resposta seria fazer este teste em um loop while...

Como posso fazer isso??grata.