Produtos em Destaque
Eaí pessoal!
Eu realmente não nasci para ser programador! hehehehe
Cada uma que me aparece, que não sei resolver e tenho que recorrer aqui ao fórum.
O site de um cliente meu, tem alguns produtos em destaque (9) na página inicial de seu site, porem de tempo em tempo os produtos somem da página inicial e aparece lá um erro, o que isso pode ser?
Erro:
>
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/arquivos/centro.asp, line 68
Código do centro.asp:
<%
set conn = server.createobject("ADODB.Connection")
conn.open application("conexao"),"",""
%>
<%
set destaque = conn.execute("select * from extras where nome = 'destaque' order by indice desc")
if not destaque.eof and not destaque.bof then
if vartype(destaque("texto")) > 2 and destaque("texto") <> "" then
%>
<table width="415" height="25" cellpadding="0" cellspacing="0" align="center">
<tr><td height="10"></td></tr>
<tr>
<td height="29" background="/imagem/layout/bg_title.jpg" style="color:#FFF;"> <b>:: Destaque</b></td></td>
</tr>
<tr><td height="4"></td></tr>
</table>
<table width="415" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#333333" align="center" valign="middle">
<%server.execute "/sistemas/banners/banners.asp"%>
<!--img src="/fotos/<%'=destaque("texto")%>" width="415"-->
</td></td>
</tr>
<tr><td height="4"></td></tr>
</table><%
end if
end if
%>
<table width="415" height="29" cellpadding="0" cellspacing="0">
<td background="/imagem/layout/bg_title.jpg" style="color:#FFF;"> <b>:: Promoções</b></td></td>
</tr>
<tr><td height="4"></td></tr>
</table><%
conn.cursorlocation = 3
total = 0
'data = month(now) & "/" & day(now) & "/" & year(now)
data = date
set consulta3 = conn.execute("select * from produtos where destaque = true order by hora")
if not consulta3.eof and not consulta3.bof then
dia = day(date)
mes = month(date)
ano = year(date)
while not consulta3.eof
if day(consulta3("data")) <> dia or month(consulta3("data")) <> mes or year(consulta3("data")) <> ano then
deferenca_data = "SIM"
conn.execute("update produtos set data = '" & date() & "'")
end if
if consulta3("hora") > time then
diferenca_hora = "SIM"
conn.execute("update produtos set hora = '" & time() & "'")
end if
consulta3.movenext
wend
set consulta = server.createObject("ADODB.Recordset")
sql = "select * from produtos where data <= #" & data & "# and hora <= #" & time & "# and destaque = true order by hora"
consulta.open sql, conn
resultado = consulta.recordcount
indice = consulta("indice")
conn.execute("update produtos set data = '" & date & "', hora = '" & time & "' where indice = " & indice)end if
if consulta3.eof and consulta3.bof then
response.write "<table align='center' height='100'><tr><td align='center'><b><font color='#666666'>Não há nenhum Produto em destaque.</font></b></td></tr></table>"
else
%>
<table width="415" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td align="center" valign="top">
<table width="136" height="181" style="border:solid 1px #CCCCCC;">
<tr>
<td height="31" background="/imagem/layout/bg_produto.jpg" align="center" class="promocao"><a href="/monta.asp?link=produto&qual=<%=consulta("indice")%>" style="color:#CCCCCC;"><%=consulta("nome")%></a></td>
</tr>
<tr>
<td height="125" align="center"><a href="/monta.asp?link=produto&qual=<%=consulta("indice")%>"><img src="/fotos/miniaturas/<%=consulta("imagem")%>" height="125"></a></td>
</tr>
<tr>
<td height="20" align="center" background="/imagem/layout/bg_preco.jpg" class="promocao">
<b>
<%
if vartype(consulta("valor")) > 2 then
response.write "R$ " & formatnumber(consulta("valor"),2)
else
response.write "Consulte-nos"
end if
%>
</b>
</td>
</tr>
</table>
</td><%
if resultado >= 2 then
consulta.movenext
%>
<td align="center" valign="top">
<table width="136" height="181" style="border:solid 1px #CCCCCC;">
<tr>
<td height="31" background="/imagem/layout/bg_produto.jpg" align="center" class="promocao"><a href="/monta.asp?link=produto&qual=<%=consulta("indice")%>" style="color:#CCCCCC;"><%=consulta("nome")%></a></td>
</tr>
<tr>
<td height="125" align="center"><a href="/monta.asp?link=produto&qual=<%=consulta("indice")%>"><img src="/fotos/miniaturas/<%=consulta("imagem")%>" height="125"></a></td>
</tr>
<tr>
<td height="20" align="center" background="/imagem/layout/bg_preco.jpg" class="promocao">
<b>
<%
if vartype(consulta("valor")) > 2 then
response.write "R$ " & formatnumber(consulta("valor"),2)
else
response.write "Consulte-nos"
end if
%>
</b>
</td>
</tr>
</table>
</td><%
end if
if resultado >= 3 then
consulta.movenext
%>
<td align="center" valign="top">
<table width="136" height="181" style="border:solid 1px #CCCCCC;">
<tr>
<td height="31" background="/imagem/layout/bg_produto.jpg" align="center" class="promocao"><a href="/monta.asp?link=produto&qual=<%=consulta("indice")%>" style="color:#CCCCCC;"><%=consulta("nome")%></a></td>
</tr>
<tr>
<td height="125" align="center"><a href="/monta.asp?link=produto&qual=<%=consulta("indice")%>"><img src="/fotos/miniaturas/<%=consulta("imagem")%>" height="125"></a></td>
</tr>
<tr>
<td height="20" align="center" background="/imagem/layout/bg_preco.jpg" class="promocao">
<b>
<%
if vartype(consulta("valor")) > 2 then
response.write "R$ " & formatnumber(consulta("valor"),2)
else
response.write "Consulte-nos"
end if
%>
</b>
</td>
</tr>
</table>
</td><%
end if
if resultado >= 4 then
consulta.movenext
%>
</tr>
<tr><td colspan="3"><hr></td></tr>
<tr>
<td align="center" valign="top">
<table width="136" height="181" style="border:solid 1px #CCCCCC;">
<tr>
<td height="31" background="/imagem/layout/bg_produto.jpg" align="center" class="promocao"><a href="/monta.asp?link=produto&qual=<%=consulta("indice")%>" style="color:#CCCCCC;"><%=consulta("nome")%></a></td>
</tr>
<tr>
<td height="125" align="center"><a href="/monta.asp?link=produto&qual=<%=consulta("indice")%>"><img src="/fotos/miniaturas/<%=consulta("imagem")%>" height="125"></a></td>
</tr>
<tr>
<td height="20" align="center" background="/imagem/layout/bg_preco.jpg" class="promocao">
<b>
<%
if vartype(consulta("valor")) > 2 then
response.write "R$ " & formatnumber(consulta("valor"),2)
else
response.write "Consulte-nos"
end if
%>
</b>
</td>
</tr>
</table>
</td><%
end if
if resultado >= 5 then
consulta.movenext
%>
<td align="center" valign="top">
<table width="136" height="181" style="border:solid 1px #CCCCCC;">
<tr>
<td height="31" background="/imagem/layout/bg_produto.jpg" align="center" class="promocao"><a href="/monta.asp?link=produto&qual=<%=consulta("indice")%>" style="color:#CCCCCC;"><%=consulta("nome")%></a></td>
</tr>
<tr>
<td height="125" align="center"><a href="/monta.asp?link=produto&qual=<%=consulta("indice")%>"><img src="/fotos/miniaturas/<%=consulta("imagem")%>" height="125"></a></td>
</tr>
<tr>
<td height="20" align="center" background="/imagem/layout/bg_preco.jpg" class="promocao">
<b>
<%
if vartype(consulta("valor")) > 2 then
response.write "R$ " & formatnumber(consulta("valor"),2)
else
response.write "Consulte-nos"
end if
%>
</b>
</td>
</tr>
</table>
</td><%
end if
if resultado >= 6 then
consulta.movenext
%>
<td align="center" valign="top">
<table width="136" height="181" style="border:solid 1px #CCCCCC;">
<tr>
<td height="31" background="/imagem/layout/bg_produto.jpg" align="center" class="promocao"><a href="/monta.asp?link=produto&qual=<%=consulta("indice")%>" style="color:#CCCCCC;"><%=consulta("nome")%></a></td>
</tr>
<tr>
<td height="125" align="center"><a href="/monta.asp?link=produto&qual=<%=consulta("indice")%>"><img src="/fotos/miniaturas/<%=consulta("imagem")%>" height="125"></a></td>
</tr>
<tr>
<td height="20" align="center" background="/imagem/layout/bg_preco.jpg" class="promocao">
<b>
<%
if vartype(consulta("valor")) > 2 then
response.write "R$ " & formatnumber(consulta("valor"),2)
else
response.write "Consulte-nos"
end if
%>
</b>
</td>
</tr>
</table>
</td><%
end if
if resultado >= 7 then
consulta.movenext
%>
</tr>
<tr><td colspan="3"><hr></td></tr>
<tr>
<td align="center" valign="top">
<table width="136" height="181" style="border:solid 1px #CCCCCC;">
<tr>
<td height="31" background="/imagem/layout/bg_produto.jpg" align="center" class="promocao"><a href="/monta.asp?link=produto&qual=<%=consulta("indice")%>" style="color:#CCCCCC;"><%=consulta("nome")%></a></td>
</tr>
<tr>
<td height="125" align="center"><a href="/monta.asp?link=produto&qual=<%=consulta("indice")%>"><img src="/fotos/miniaturas/<%=consulta("imagem")%>" height="125"></a></td>
</tr>
<tr>
<td height="20" align="center" background="/imagem/layout/bg_preco.jpg" class="promocao">
<b>
<%
if vartype(consulta("valor")) > 2 then
response.write "R$ " & formatnumber(consulta("valor"),2)
else
response.write "Consulte-nos"
end if
%>
</b>
</td>
</tr>
</table>
</td><%
end if
if resultado >= 8 then
consulta.movenext
%>
<td align="center" valign="top">
<table width="136" height="181" style="border:solid 1px #CCCCCC;">
<tr>
<td height="31" background="/imagem/layout/bg_produto.jpg" align="center" class="promocao"><a href="/monta.asp?link=produto&qual=<%=consulta("indice")%>" style="color:#CCCCCC;"><%=consulta("nome")%></a></td>
</tr>
<tr>
<td height="125" align="center"><a href="/monta.asp?link=produto&qual=<%=consulta("indice")%>"><img src="/fotos/miniaturas/<%=consulta("imagem")%>" height="125"></a></td>
</tr>
<tr>
<td height="20" align="center" background="/imagem/layout/bg_preco.jpg" class="promocao">
<b>
<%
if vartype(consulta("valor")) > 2 then
response.write "R$ " & formatnumber(consulta("valor"),2)
else
response.write "Consulte-nos"
end if
%>
</b>
</td>
</tr>
</table>
</td><%
end if
if resultado >= 9 then
consulta.movenext
%>
<td align="center" valign="top">
<table width="136" height="181" style="border:solid 1px #CCCCCC;">
<tr>
<td height="31" background="/imagem/layout/bg_produto.jpg" align="center" class="promocao"><a href="/monta.asp?link=produto&qual=<%=consulta("indice")%>" style="color:#CCCCCC;"><%=consulta("nome")%></a></td>
</tr>
<tr>
<td height="125" align="center"><a href="/monta.asp?link=produto&qual=<%=consulta("indice")%>"><img src="/fotos/miniaturas/<%=consulta("imagem")%>" height="125"></a></td>
</tr>
<tr>
<td height="20" align="center" background="/imagem/layout/bg_preco.jpg" class="promocao">
<b>
<%
if vartype(consulta("valor")) > 2 then
response.write "R$ " & formatnumber(consulta("valor"),2)
else
response.write "Consulte-nos"
end if
%>
</b>
</td>
</tr>
</table>
</td>
<%end if%>
</tr>
</table><%
end if
set conn = nothing
set consulta3 = nothing
set consulta = nothing
%>
Linha 68:
indice = consulta("indice")
O que pode ser pessoal?
Pois está acontecendo isso seguidamente no site do cliente.
Abs
Discussão (8)
Carregando comentários...