Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xbr

erro ADODB.Recordset error '800a0bcd'

Por , em ASP Clássico

Recommended Posts

xbr    0

xbr
Postado

Bom dia

 

eu estou com um erro na busca.asp, quando eu coloco uma palavra que não exista no banco de dados apareçe esse erro:

 

ADODB.Recordset error '800a0bcd' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /windows/busca.asp, line 46

se tira a line 46 não abri as outras pagina ( Página(s): 12 3 4 5 6 )

 

line 46 seria:

 

43 - rs.Open SQL, Conexao, 344 -  rs.CacheSize = regs45 -46 -  rs.MoveFirst47 -  rs.PageSize =regs48 - 49 -50 -  rs.AbsolutePage = pag51 - if rs.EOF then%>

Mais se tira a line 46 não vai abri as não vai abri as outra paginas ( pagina (s): 1 3 4 5 )

 

busca.asp

 

<!--#include file="conectar.asp"--><html><head><title> "nome"</title><style>input {background-color: #0688B9;font-family: Verdana;font-size: 9pt;color: #FFFFFF;border: 1px solid #FFFFFF;vertical-align: middle}</style><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#FFFFFF" link="#000000" vlink="#000000" alink="#73BCF2"><font face="Verdana" size="2"><font size="1"><font color="#000000"><script language="JavaScript">function abrejanela(sURL){newwindow=open(sURL,"ver","scrollbars=no,toolbar=no,directories=no,menubar=no,resizable=no,status=no,with=320,height=60");}//</script><% AbreConexaoIf Request.querystring("a") = "1" Thens=request.querystring("s")regs=5pag=request.querystring("pagina")If pag = "" thenpag = 1End ifSql = "SELECT * FROM download WHERE nome LIKE '%"&s&"%' OR descricao LIKE '%"&s&"%' "Set rs = Createobject("ADODB.  rs.AbsolutePage = pagif rs.EOF then%><font color="#FFFFFF" size="2">Nenhum arquivo encontrado, na busca pela palavra <b><%=s%></b></font><% elsecontador = 0 %></font></font></font><div align="center">  <table width="547" border="1" cellpadding="3" cellspacing="0" bordercolor="#2FFF2F" bordercolorlight="#FFFFFF">	<tr bordercolor="#FFFFFF">	  <td height="20" colspan="3" background="img/x1.jpg"><font color="#000000" size="1" face="verdana"><a href="download.asp?id=<%=rs("id")%>"><%=rs("nome")%></a></font>		<div align="center"></div>		<div align="center">		  <div align="left"><font size="1"><font face="verdana"><font face="verdana"><font face="verdana"><font face="verdana"></font></font></font></font></font></div>		</div>	  </td>	</tr>	<tr>	  <td height="116" colspan="3" bgcolor="#FFFFFF"><table width="100%" height="108">		  <tr bordercolor="#CCCCCC">			<td width="21%" height="102"><div align="center"><font color="#000000"><img src="<%=rs("foto") %>" width="95" height="95" border="0"></font></div>			</td>			<td width="79%"><p><font color="#000000" size="1" face="verdana"><%=rs("descricao")%></font> </p>				<p> </p>				<p> </p>				<div align="center"> </div>			</td>		  </tr>		</table>	  </td>	</tr>	<tr>	  <td bgcolor="#FFFFFF"><font color="#000000" size="1" face="verdana">Tamanho: <%=rs("tamanho")%></font></td>	  <td colspan="2" bgcolor="#FFFFFF"><font color="#A8E6FD" size="1"><font size="1" color="#FFFFFF"><font color="#A8E6FD" size="1"><font size="1" color="#FFFFFF"><font color="#000000" size="1" face="verdana">Licença: <%=rs("licenca")%> </font><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="verdana">	</font></font></font></font></font></font></td>	</tr>	<tr>	  <td bgcolor="#FFFFFF"><font color="#000000" size="1" face="verdana">Adicionado		  em: <%=rs("adicionado")%></font></td>	  <td colspan="2" bgcolor="#FFFFFF"><font color="#000000" size="1" face="verdana">Sistema</font><font color="#000000" size="1" face="verdana">: <%=rs("idioma")%></font><font color="#A8E6FD" size="1"><font size="1" color="#FFFFFF"><font color="#A8E6FD" size="1"><font size="1" color="#FFFFFF"></font></font></font></font></td>	</tr>	<tr>	  <td width="251" height="26" background="img/x2.jpg" bgcolor="#FFFFFF"><font color="#A8E6FD" size="1"><font size="1" color="#FFFFFF"><font color="#A8E6FD" size="1"><font size="1" color="#FFFFFF"> </font></font></font></font><font color="#A8E6FD" size="1"><font size="1" color="#FFFFFF"><font color="#A8E6FD" size="1"><font size="1" color="#FFFFFF"><font color="#000000" face="Verdana, Arial, Helvetica, sans-serif"><font size="1" face="verdana">Média					de votos: <%=rs("media")%> <a href="java script:abrejanela('voto.asp?id=<%=rs("id")%>')">Avaliar</a></font></font></font></font></font></font></td>	  <td colspan="2" background="img/x2.jpg" bgcolor="#FFFFFF">		<div align="left">		  <div align="left"><font size="1" face="verdana"><font color="#000000">Cliques: </font></font><font color="#A8E6FD" size="1" face="verdana"><%=rs("cliques")%></font></div>		</div>	  </td>	</tr>  </table>  <font color="#000000"><font color="#000000" size="1" face="verdana"><BR>  <% rs.MoveNextLoop %>pagina=request.querystring("pagina")Response.Write "<a href='" & request.servervariables("script_name") & "?s="&s&"&a="&request.querystring("a")&"&pagina=" & i & "'>" & i & "</a> "End IfNextEnd if %></font></font></div></font><form method="GET" action="busca.asp">  <div align="right"><font color="#000000" size="2" face="Verdana">	<div align="center">	  <input type="hidden" name="a" value="1">	  <font face="Verdana" size="2"><font face="verdana"><font color="#000000"><font size="1"><font face="verdana" size="2"><font size="1" color="#000000"><font color="#000000" size="2" face="Verdana">	  </font><font face="Verdana" size="2"><font face="verdana">	  <input type="text" name="s" size="15" value="Buscar por" style="color: #000000; border: 1px solid #008000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #FFFFFF">	  <font face="verdana" size="2"><font size="1" color="#000000"><font color="#000000" size="2" face="Verdana">	  <input name="submit2" type="submit" style="color: #000000; border: 1px solid #000000; background-color: #FFFFFF" value="Pesquisar">	  </font></font><font size="2"> </font></font><font face="verdana" size="2"><font size="1" color="#000000"><font color="#000000" size="2" face="Verdana"></font></font></font></font></font></font></font></font></font></font></font></div>  </font></div></form><font face="Verdana" size="2"><font color="#000000" size="1" face="verdana"><% Else %></font><font face="verdana"><form method="GET" action="busca.asp"><font face="verdana"><input type="hidden" name="a" value="1"></font><input type="text" name="s" size="25" value="Buscar por" style="color: #000000; border: 1px solid #008000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #FFFFFF"><font face="verdana" size="2"><font size="1" color="#000000"><font color="#000000" size="2" face="Verdana"><input type="submit" value="Pesquisar" style="color: #000000; border: 1px solid #000000; background-color: #FFFFFF"></font></font><font size="2">  </font></font><font face="verdana" size="2"><font size="1" color="#000000"><font color="#000000" size="2" face="Verdana"></font>   </font></font></form><font color="#000000" size="1" face="verdana"><% End If %>

aguardo respostas.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Abraça esse RS.moveFirst com um IF testando se não é o EOF.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xbr    0

xbr
Postado

Abraça esse RS.moveFirst com um IF testando se não é o EOF.

eu tentei assim
if rs.MoveFirst
mais n deucomo ficara o codigo de mudar o EOF ?para não dar o erro presisa apareçer essa mensagem
Nenhum arquivo encontrado, na busca pela palavra <b><%=s%></b></font>

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

retire

ASP
rs.CacheSize = regs
 
  rs.MoveFirst
  rs.PageSize =regs
 
 
  rs.AbsolutePage = pag
e coloque abaixo de

ASP
<% else
contador = 0 %>
Foram encontrados <%=rs.recordcount%> arquivos, na busca pela palavra <b><%=s%></b><BR>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xbr    0

xbr
Postado

retire

ASP
rs.CacheSize = regs
 
  rs.MoveFirst
  rs.PageSize =regs
 
 
  rs.AbsolutePage = pag
e coloque abaixo de

ASP
<% else
contador = 0 %>
Foram encontrados <%=rs.recordcount%> arquivos, na busca pela palavra <b><%=s%></b><BR>
isso que você falo deu certo mais fico assim no lugar lá.

 

Foram encontrados 30 arquivos, na busca pela palavra rs.CacheSize = regs rs.MoveFirst rs.PageSize =regs if rs.AbsolutePage = pag
eu coloquei assim

 

<% elsecontador = 0 %>Foram encontrados <%=rs.recordcount%> arquivos, na busca pela palavra <b><%=s%></b><BR> rs.CacheSize = regs  rs.MoveFirst  rs.PageSize =regs  if rs.AbsolutePage = pag<BR>
mais fico de fora. como será o jeito certo ?

 

esse codigos ficaram soltos na pagina

 

rs.CacheSize = regs  rs.MoveFirst  rs.PageSize =regs  if rs.AbsolutePage = pag

Compartilhar este post

Link para o post
Compartilhar em outros sites

xbr    0

xbr
Postado

eu tentei coloca abaixo mais abaixo ja não tem esse codigo

 

if rs.EOF then%>

tem um jeito de fazer que nen você falo mais com o 

if rs.EOF then%>

 

abaixo dos codigo que você disse pra mudar ?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito