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

[xanburzum 169]

evite duplicações de post no fórum, responda em apenas um post. Aguarde que removeremos os post duplicados.

[luiscarlos5046 3]

A duplicação não foi culpa minha... O site estava em manutenção no momento e deu erro no site quando postei...

[luiscarlos5046 3]

Como é que apaga os posts duplicados? Não achei opção pra isso!

[xanburzum 169]

Só aguardar que iremos remover. Você não tem privilégios para excluí-la.