Ir para conteúdo

POWERED BY:

Arquivado

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

mateushim

erro com que num sei onde ta

Por , em ASP Clássico

Recommended Posts

mateushim    0

mateushim
Postado

daew pessoal

to com um grande erro

q n sei solucionar

espero que alguem possa

 

é esse o erro que dah

 

ADODB.Field erro '80020009' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /destaque/capa.asp, line 0

aqui esta o codigo fonte

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="Connections/Jornal.asp" --><!--#include file="padroesJornal.asp" --><!--#include file="funcoes.asp" --><%Session("PaginaAtual") = "CAPA"%><%gravalog("CAPA")%><%Set Upload = Server.CreateObject("Persits.Upload.1")%><%if request.Form("data") <> "" then  gravalog("EDIÇÕES ANTERIORES - " & request.Form("data"))  Session("data_atual") = request.Form("data")end ifdata = Month(Session("data_atual")) & "/" & Day(Session("data_atual")) & "/" & Year(Session("data_atual"))Set Principal = Server.CreateObject("ADODB.Recordset")Principal.ActiveConnection = MM_Jornal_STRINGPrincipal.Source = "SELECT id, titulo, legenda_foto1, credito_foto1, resumo FROM Jornal_Conteudo WHERE id_jornal = " & session("id_jornal") & " AND data = '" & data & "' AND foto_principal='S'"Principal.Open()if NOT Principal.EOF then  cNomeArq = "\Conteudo_" & Session("id_jornal") & "_1_" & Principal("id") & ".JPG"  if Upload.FileExists(Server.MapPath("Imagens/FotosConteudo") & cNomeArq) Then	foto_principal = "\Conteudo_" & Session("id_jornal") & "_1_" & Principal("id") & ".JPG"  end ifend iftem_ultimasnoticias = "false"Set UltimasNoticias = Server.CreateObject("ADODB.Recordset")UltimasNoticias.ActiveConnection = MM_Jornal_STRINGUltimasNoticias.Source = "SELECT data, hora, texto FROM Jornal_UltimasNoticias WHERE id_jornal = " & session("id_jornal") & " AND data = '" & data & "'"UltimasNoticias.Open()if NOT UltimasNoticias.EOF then  tem_ultimasnoticias = "true"end ifSet Editoriais = Server.CreateObject("ADODB.Recordset")Editoriais.ActiveConnection = MM_Jornal_STRINGEditoriais.Source = "SELECT TOP 9 c.id, n.nome_pagina, c.titulo, c.resumo FROM Jornal_Conteudo AS c, Jornal_Niveis AS n WHERE c.id_jornal = " & session("id_jornal") & " AND c.data = '" & data & "' AND c.materia_principal<>'S' AND c.foto_principal<>'S' AND c.materia_capa='S' AND c.id_nivel = n.id ORDER BY newid()"Editoriais.Open()'foto_capa = "capa_" & Session("id_jornal") & "_" & year(Session("data_atual")) & month(Session("data_atual")) & day(Session("data_atual")) & ".jpg"%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><title>:: Destaque Catarinense ::</title><script language="JavaScript" type="text/JavaScript"><!--	function MM_jumpMenu(targ,selObj,restore)	{ 			//v3.0			  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'"); 		 if (restore) selObj.selectedIndex=0;	}		//--></script><link href="destaque.css" rel="stylesheet" type="text/css"></head><body leftmargin="0" topmargin="0"><table width="770" border="0" cellspacing="0" cellpadding="0">  <tr>	<td colspan="3"><!--#include file="topo.asp"--> </td>  </tr>  <tr>	<td width="155" align="left" valign="top"><!--#include file="menu.asp"--> </td>	<td width="485" align="center" valign="top"><!--#include file="banners.asp"--> <table width="475"  border="0" cellspacing="0" cellpadding="0">  <tr>	<td width="325">	<!--#include file="destaque.asp"--></td>	<td width="150" align="right" valign="top"><!--#include file="enquete.asp"--></td>  </tr>  <tr>	<td colspan="2"><!--#include file="ultimas_noticias.asp"--> </td>	</tr>  <tr>	<td valign="top"><!--#include file="mais_noticias_capa.asp"--></td>	<td align="right" valign="top"><!--#include file="outras_noticias_capa.asp"--><!--#include file="impresso.asp"--></td>  </tr></table></td>	<td width="130" align="center" valign="top"><!--#include file="acoes.asp"--><!--#include file="especiais_capa.asp"--><!--#include file="galerias_capa.asp"--><!--#include file="selos.asp"--> </td>  </tr></table><% principal.Close %><!--#include file="rodape.asp"--></body></html>

espero que alguem me ajude

por favor

 

abraço

Compartilhar este post

Link para o post
Compartilhar em outros sites

N3G4T1V3    0

N3G4T1V3
Postado

Amigo primeiro mude isso:if NOT Principal.EOF and Principal.BOF then 'MUDEI ESSA LINHA cNomeArq = "\Conteudo_" & Session("id_jornal") & "_1_" & Principal("id") & ".JPG" if Upload.FileExists(Server.MapPath("Imagens/FotosConteudo") & cNomeArq) Then foto_principal = "\Conteudo_" & Session("id_jornal") & "_1_" & Principal("id") & ".JPG" end ifend ifdepois se você tiver usando um campo data para busca no access você deve usar assim na select:AND data = #" & data & "#de tambem um response.write no seu select para ver se ele está recebendo os dados okveja se isso resolve se naum posta ae

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