Que tipo de erro??

[cgrunenberg 0]

Oi pessoal, estou iniciando em ASP e o programa tá dando um erro que não sei mais o que fazer para corrigir, alguém pode dar-me pistas.O Erro aponta para essa linha: <%if NOT RsPesq.EOF then%>E entendo que ele não está encontrando RsPesq, é isso???Valeu!!!!

[cgrunenberg 0]

Lucas, eu coloquei o seu response.write, mas continuou a mesma mensagem de erro, por isso estou postando o código completo da página. Não sei mais o que fazer, acho que o problema está no final do código nas últimas linhas que estão comentadas e não deveriam estar.

 

<% @ LANGUAGE = "vb script:void()" OnClick="document.FrmPesquisa.SortOrder.value='EMAIL_SUBJECT';document.FrmPesquisa.submit();return false;" class="sbd5">Pesquisa</a></td>	<td><a href="java script:void()" OnClick="document.FrmPesquisa.SortOrder.value='DISP_STATUS';document.FrmPesquisa.submit();return false;" class="sbd5">Status</a></td>	<td><a href="java script:void()" OnClick="document.FrmPesquisa.SortOrder.value='DISP_DATA';document.FrmPesquisa.submit();return false;" class="sbd5">Data</a></td>	<td align=middle><font class=sbd> </td>	</tr>	<%	cont = 0	contador = 1	'faça enquanto não for verdadeiro que ...	do until RsPesq.AbsolutePage <> CurrentPage Or RsPesq.EOF		EMAIL_ID			= Trim(RsPesq("EMAIL_ID"))		EMAIL_SUBJECT		= Trim(RsPesq("EMAIL_SUBJECT"))		EMAIL_DATASTATUS	= Trim(RsPesq("MOD_DATA"))		DISP_ID				= Trim(RsPesq("DISP_ID"))		E1				  = DISP_ID		DISP_STATUS			= Trim(RsPesq("DISP_STATUS"))		DISP_DATA			= Trim(RsPesq("DISP_DATA") & "")		Enviados			= Trim(RsPesq("Enviados")) 		teste = cont / 2	%> 		<!-- cor de fundo das linhas --> 		<tr <%if teste=0 then%> bgcolor="<%=m_sCor(2)%>" <%else%> bgcolor="<%=m_sCor(1)%>" <%end if%>>		<td></td>				<!-- abre a janela quando clicado no nome da pesquisa --> 		<td valign=middle align=left>			<a href="java script:void(0)" class="sbd2" onclick="java script:janela('preview.nix?<%=Q1%>&C3=<%=EMAIL_ID%>&E1=<%=DISP_ID%>')"><%=EMAIL_SUBJECT%></a>		</td>				<td>			<!-- retira o link das condições de status			<a href="caracteristicas.nix?A1=<%=SID%>&A2=<%=GRUPO_ID%>&C3=<%=EMAIL_ID%>&E1=<%=E1%>&S1=<%=DISP_STATUS%>">-->			<font class=sbd>			<!--<%if DISP_STATUS="N" then%>				Agendado			<%elseif DISP_STATUS="S" then%>-->				Enviado			<!--<%else%>				<nobr>[não agendado]</nobr>			<%end if%>			</a>-->		</td>		<td><!-- Formata a data no campo data -->			<font class=sbd><nobr><%=FormataData(DISP_DATA)%></nobr>		</td>		<!-- condição que ativa o botão excluir-->		<%if DISP_STATUS="N" then%>			<form method=POST action="<%=HTTP_URL%>/disparo/apagar.nix?<%=Q1%>&C1=<%=Server.URLEncode(EMAIL_SUBJECT)%>&C3=<%=EMAIL_ID%>&D2=<%=DISP_ID%>">		<%else%> 			<form method=POST action="excluir.nix?<%=Q1%>">		<%end if%>		<input type=hidden name=DISP_ID value="<%=DISP_ID%>">		<input type=hidden name=P1 value="<%=P1%>">		<input type=hidden name=P2 value="<%=P2%>">		<input type=hidden name=P3 value="<%=P3%>">		<td align=middle>			<input type=submit value="Excluir" class="bt_laranja">		</td>		</form>		</tr>		<%contador = contador + 1		RsPesq.MoveNext		cont = cont + 1		if cont > 0 and cont <> 1 then			cont = 0		end if	Loop%>	<%RsPesq.MoveFirst()%><% 'auxSortOrder = disp_data e SortOrder = disp_data desc	auxSortOrder = replace(ucase(SortOrder)," DESC","")	CurrentLine = request("CurrentLine")	if CurrentLine = "" then	  CurrentLine = 1	end If			'* TABELA DE PAGINAS	'RsPesq = recordset que executa a stored	'PageSize = 20 linhas de resultado	'CurrentRecord = ???? (não retorna resultado)	'CurrentPage = número da página que está sendo exibida	'auxSortOrder = disp_data	'index.asp = arquivo que está sendo paginado	'CurrentLine = 1	'Call TabelaPaginacao (RsPesq, PageSize, CurrentRecord, CurrentPage, auxSortOrder, "index.asp",CurrentLine,3,17)	'Chama a função TabelaPaginação informando os parâmetros para compor a tabela na página%><%else%> <!-- Se não houverem registros a serem exibidos como resposta imprimir na tela: Nenhum...-->		<p><br>		<center>		<%=m_sFonte(3)%>		<b>Nenhum registro encontrado</b><%end if%></td></tr></table><%	Footer() 'Função que executa o rodapéEnd Sub	'******************************************************* 'Const PageSize = 20 'a variável PageSize não pode ser modificada (const)m_sTitulo = "Pesquisas"m_sSubTitulo = "Histórico"'* * * * * * * * * * * * * * * * * * * * * * * * * * * * *'* VERIFICA SE O CLIENTE JA ESTA ATIVO'* * * * * * * * * * * * * * * * * * * * * * * * * * * * *SID	   = Trim(Request("A1"))GRUPO_ID  = Trim(Request("A2"))ID_SESSAO = VerificaSID(SID, GRUPO_ID)if ID_SESSAO = 0 then	Response.Redirect HTTP_URL & "/index.asp"end if'* * * * * * * * * * * * * * * * * * * * * * * * * * * * *action = Trim(Request("action"))Q1 = "A1=" & SID & "&A2=" & GRUPO_IDConexaoSQL()'* * * PAGINAÇÃO:STP = "AL063_LISTAR_PESQUISAS @GRUPO_ID='"& GRUPO_ID &"'"DefSortOrder = "DISP_DATA DESC"'Call ListarTabela(RsPesq, STP, DefSortOrder)'* * * * * * * * *Formulario()%>

Ao postar códigos por favor utilize a tag

 (botão  no editor), isso facilita a leitura de seu código e posterior ajuda!

[Salgado 4]

Poste aqui qual a mensagem de erro está aparecendo.

[cgrunenberg 0]

Object required: 'RsPesq' /emarketing_novo/teste/index.asp, line 14

[Mário Monteiro 179]

voce crtiaou este objeto???poruqe se for este codigo acima voce come;a a referencia-lo sem ter criado

[cgrunenberg 0]

Pelo que sei ela está criada dentro da função Listar Tabela:Set RecordSet = Server.CreateObject("ADODB.Recordset") RecordSet.CursorLocation = 3 RecordSet.open STP, conn, adOpenStatic, adLockBatchOptimistic, adCmdTextcerto???