[Resolvido] Erro em ASP

[pastoverdejante 0]

Estou precisando de um apoio neste código abaixo.

Aparece o seguinte erro quando eu deleto um banner:

 

EXCLUSÃO DE BANNER

 

error '80020009'

/painel/DelBanner.asp, line 73

 

<!-- #include file="../Includes/BarraCimaAdmin.asp" -->

<!--#include file="Travar.asp"-->

<%

Dim VarAct

Dim VarBanner



VarAct = Request.QueryString("Act")

VarBanner = Request.QueryString("Banner")

%>

  <tr>

	<td valign="top">

	<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">

	  <tr>

		<td width="150" align="center" valign="top" bgcolor="#F9F9F9"<%=vCorEsquerda%>"><!-- #include file="../Includes/BarraEsqAdmin.asp" --></td>

		<td align="center" valign="top" bgcolor="#FFFFFF">

		  <table width="90%" border="0" cellspacing="0" cellpadding="0">

		  <tr>

			<td height="10"><img src="../Imagens/Blank.gif" width="1" height="1"></td>

		  </tr>

		  <tr>

			<td align="center" class="TituloCinzaMedio">EXCLUSÃO DE BANNER </td>

		  </tr>

		  <tr>

			<td align="center"> </td>

		  </tr>

		  <tr>

			<td align="center">

			<%

			If VarAct = "Deletar" Then

		

		

			'----------------------' Apaga as imagens referentes ao dado excluído via FSO	

			Set DelBanner = Conn.Execute("Select * From Banners Where Cod="& VarBanner) ' faz o select pra puxar o banner

									

			Set rsFSO = Server.CreateObject("Scripting.FileSystemObject") ' cria o objeto FSO

				

				If DelBanner("Banner") <> "" Then ' implementação pra não apresentar erro caso não tenha imagem no campo

					If rsFSO.FileExists(CaminhoBanner & DelBanner("Banner")) = True Then ' Se o arquivo especificado existir e for diferente da foto (s/ foto) então:

						rsFSO.DeleteFile (CaminhoBanner & DelBanner("Banner")) ' Apaga o arquivo especificado com o caminho e nome

					End If

				End If

			'-----------------------------------------------------------------------------

				

				Dim objDel

				Set objDel = Conn.Execute("DELETE FROM Banners WHERE Cod = "& VarBanner &"")

				Set objDel = Nothing

			

				Response.Write "<table align=center width='100%'>"& LinhaHorizontal2 &"<tr><td align='center' class='TextoCinzaEscuro'><br>O Banner selecionado foi excluído com sucesso!<br><br></td></tr>"& LinhaHorizontal2 &"<tr><td align='center'><a href='Banners.asp' class='TituloCinzaEscuro'>Voltar</a></td></tr></table>"

		

			Else

			

				Response.Write "<span class='TextoCinzaEscuro'>Tem certeza que deseja deletar o banner selecionado?</span><br><a href='DelBanner.asp?Banner="& VarBanner &"&Act=Deletar' class='TituloCinzaEscuro'>Sim</a>        <a href='java script:history.go(-1)' class='TituloCinzaEscuro'>Não</a>"

		

			End If

			%>

			</td>

		  </tr>

		</table>

		</td>

	  </tr>

	</table>

	</td>

  </tr>

<!-- #include file="../Includes/RodapeAdmin.asp" -->

[hargon 64]

Posta o que tem na linha 73

[xanburzum 169]

Inicio e Fim de Arquivos são verdadeiros, ou o registro atual foi cancelado. A operação pedida requer um registro atual. Na maioria das vezes isso acontece quando se tenta procurar um valor em um campo da Base de Dados e a variável que é utilizada para realizar a pesquisa não contem nenhum valor.

[pastoverdejante 0]

Posta o que tem na linha 73

 

contém este código

73 If DelBanner("Banner") <> "" Then ' implementação pra não apresentar erro caso não tenha imagem no campo

 

obrigado

[xanburzum 169]

o que esta sendo passado em Request.QueryString("Banner")

[hargon 64]

Posta a msg de erro completa. Deve está falando se o problema é a aspas, ou a recordset está fechada, se é o tipo de dados, etc...

[pastoverdejante 0]

Posta a msg de erro completa. Deve está falando se o problema é a aspas, ou a recordset está fechada, se é o tipo de dados, etc...

aparece somente este erro mesmo

 

error '80020009'

/painel/DelBanner.asp, line 73

 

mas o interessante é que este erro aparece as vezes não é sempre,

somente quando eu tento deletar alguns banners aleatoriamente

[pastoverdejante 0]

o que esta sendo passado em Request.QueryString("Banner")

amigo somente aparece isso mesmo nada mais, boa pergunta pq eu n achei Request.QueryString :(

 

obrigado

[hargon 64]

Posta o conteúdo inteiro da página de erro. Certamente não só isso que está postando.

[pastoverdejante 0]

Posta o conteúdo inteiro da página de erro. Certamente não só isso que está postando.

 

Amigo eu descobri o problema

 

é que quando eu deleto um banner o navegador n atualiza

sendo que não atualizando eu tento deletar o banner q já estava deletado para aparecer esta msg

 

no caso eu deletei e cliquei para atualizar a página, dai não apareceu mais o banner.

Eu uso o explorer 6 aqui.

 

Obrigado

[hargon 64]

Que bom que resolveu. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif