Ir para conteúdo

POWERED BY:

Arquivado

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

Waldek

Alguém sabe consertar isso?

Por , em ASP Clássico

Recommended Posts

Waldek    0

Waldek
Postado

Não consigo consertar esse problema? Alguém pode me ajudar.

 

ADODB.Recordset error '800a0bcd'

 

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

 

/galeriadefotos/config/menu.asp, line 59

 

</script>
<meta name="generator" content="Namo WebEditor v5.0">
<style type="text/css">
<!--
body {
background-color: #FFFFFF;
}
-->
</style></head>
<body text="#0066FF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center">
 <form name="form1" method="post">
   <select name="quantia" onChange="MM_jumpMenu('parent.frames[\'rightFrame\']',this,0)">
     <option value="10">Mostrar</option>
     <option value="menu.asp?quantia=5&data=<%=request.querystring("data")%>">5</option>
     <option value="menu.asp?quantia=10&data=<%=request.querystring("data")%>">10</option>
     <option value="menu.asp?quantia=15&data=<%=request.querystring("data")%>">15</option>
     <option value="menu.asp?quantia=20&data=<%=request.querystring("data")%>">20</option>
     <option value="menu.asp?quantia=40&data=<%=request.querystring("data")%>">40</option>
     <option value="menu.asp?quantia=50&data=<%=request.querystring("data")%>">50</option>
     <option value="menu.asp?quantia=100&data=<%=request.querystring("data")%>">100</option>
   </select>
 </form>
</div>

<p align="center" style="line-height:100%; margin-top:0; margin-bottom:0;"><!-- Programação e vizualização dos cadastros -->
<%
Dim objRs, x, intpage, strquantidade, data
intpage = request.QueryString("txtpage")
data = request.QueryString("data")
Set objRS = Server.CreateObject("Adodb.recordset")
call  Abreconexao
strquantidade = request.querystring("quantia")
session("quantia") = strquantidade
if session("quantia") = "" then
 objrs.pagesize = 5
else   
 objrs.pagesize = session("quantia")
end if  
 objRs.open "Select * From fotos where data = '"&data&"' order by id" , Objconn, 3, 3 
 if intpage = "" then
   intpage = 1
end if
objrs.absolutepage = cint(intpage)
x = 1
 while  NOT objRs.EOF and x <= objrs.pagesize
%>
<div align="center">
 <p style="line-height:25%; margin-top:0; margin-bottom:0;"><a href="exibefoto.asp?foto=<%=objrs("id")%>" target="exibe"><img src="fotos/<%=objrs("foto")%>" width="100" height="75" border="0"></a></div>
<p align="center" style="line-height:25%; margin-top:0; margin-bottom:0;"> <%
if x mod 2 = 0 then
response.write "</td></tr><tr>"
end if
x = x + 1
ObjRs.movenext
wend
%>
<%if cint(intpage) > 1 then 'se for maior que a pagina 1 ira aparecer
%>
<a href="menu.asp?txtpage=<%=intpage-1%>&quantia=<%=strquantidade%>&data=<%=request.querystring("data")%>"><img src="images/anterior.gif" width="16" height="16" border="0" alt="Página anterior"></a> 
<%end if%>
<%if cint(intpage) < objrs.pagecount then 'quantidade de paginas
%>
<a href="menu.asp?txtpage=<%=intpage+1%>&quantia=<%=strquantidade%>&data=<%=request.querystring("data")%>"><img src="images/proxima.gif" width="16" height="16" border="0" alt="Próxima página"></a> 
<%end if%>
<%
objrs.close
set ObjRs= Nothing
call fechaconexao
%>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

se tudo estiver correto seu code, A causa mais provável, é que não há registro. Por exemplo, isso iria acontecer se os critérios de sua SQL nao forem satisfeito,Se você está certo de que há resultados, você pode verificar que a versão mais recente do MDAC,Outra razão possível é que você está usando um procedimento armazenado que opera em uma tabela temporária, ou row-affecting afetando outras antes de sua instrução select. Para contornar este problema, emita o seguinte no início do seu procedimento armazenado,SET NOCOUNT ON, mas no seu caso dê um response.write na sua string SQL para ver o que esta sendo passado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

e por favor poste a exatamente a linha 59, a qual apresenta o erro

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