Remover registros se existir e não exibir erro se não existir

[luiscarlos5046 3]

Olá Galera!

 

Estou apanhando em uma coisa simples que já fiz de outras formas, e agora esse código me exibe erro não terminando a execução correta do mesmo.

 

Preciso verificar se existe cadastro nessas 2 tabelas, se existir vou remover... se não tiver nada cadastrado não exibir erro.

Acontece que acho que o erro é exibido por não existir dados na tabela.

 

Onde estou errando?

 

 

set rsA = cn.execute("SELECT * FROM esptec WHERE id_produto="& id &" ")
set rsB = cn.execute("SELECT * FROM prod_detalhes_fotos WHERE id_produto="& id &" ")

if not rsA.eof then
    strsql = " DELETE FROM esptec "
    strsql = strsql & " WHERE id_produto IN ("& id &")"
    cn.execute(strsql)
end if

if not rsB.eof then
    strsql = " DELETE FROM prod_detalhes_fotos "
    strsql = strsql & " WHERE id_produto IN ("& id &")"
    cn.execute(strsql)
end if

[rafaeldupalio 5]

veio vc repetiu o post varias vezes. deleta la por favor

[xanburzum 169]

verifique através do If e acrescente o Then e depois o else para insert.

 

if not rsA.eof then
strsql = " DELETE FROM esptec "
strsql = strsql & " WHERE id_produto IN ("& id &")"
cn.execute(strsql)

else

' aqui seu INSERT
end if

 

 

 

olha este exemplo:

antes de inserir, iremos verificar através de uma consulta, se os dados , já existem no banco, caso exista, iremos redirecionar o user para a pagina de formulário novamente, com uma mensagem de erro, faremos isso através da SQL:
“SELECT login FROM login WHERE login=’”&varlogin&”‘”
rsselect.open SQLselect,conexao,1,3
if not rsselect.eof then
response.redirect(“incluir_form_treina.asp?msgeof=1″)
Precebam que nesta parte do código, if not rsselect.eof then, se não for final do arquivo, ou seja, já existe os dados, caso contrário, inserimos ele, e redirecionamos, para a pagina de administração com sucesso.
Incluir_action_treina.asp
<% ‘incluir_action.asp => fazer a inclusao no BD, antes fazendo uma verificaçao
‘no BD através de SQL Select if not rs.eof then
‘redireciono para incluir_form.asp?msgeof=1 else
‘incluo no bd atraves da SQL Insert e redireciono para adiministraçao.asp?msg=1
‘e lá receberá um mensagem de sucesso
Option explicit
‘declaro as var
dim varlogin, varemail, varsenha, conexao, conDBQ, constring, rsselect, SQLselect, rsinsert, SQLinsert
‘recupero todos os dados
varlogin=trim(request.form(“login”))
varsenha=trim(request.form(“senha”))
varemail=trim(request.form(“email”))
‘crio a conexao
%>
<!–#include file=”conn/conexao1.asp”–>
<% ‘abrir a conexao
call abreconexao
‘crio o rsselect para verificar se os dados jah estaun cadastrados
set rsselect=server.createobject(“ADODB.Recordset”)
‘crio o SQLselect
SQLselect=”SELECT login FROM login WHERE login=’”&varlogin&”‘”
rsselect.open SQLselect,conexao,1,3
if not rsselect.eof then
response.redirect(“incluir_form_treina.asp?msgeof=1″)
set rsselect=nothing
else 
‘crio o rsinsert para inseiri os dados no bd
set rsinsert=server.createobject(“ADODB.Recordset”)
‘crio o SQLinsert pra incluir no bd
SQLinsert=”INSERT INTO login(login,senha,email) values(‘”&varlogin&”‘,’”&varsenha&”‘,’”&varemail&”‘)”
rsinsert.open SQLinsert,conexao,1,3
response.redirect(“administracao_treina.asp?msg=1″)
set rsinsert=nothing
end if 
call fechaconexao %>