Como verificar registros antes de Importar TXT

Olá pessoal, estou com um novo problema na importação de um txt, preciso que o sistema verifique se existem registros já cadastrados no banco e se houver entao é carregada uma página (mensagem de erro).

Quando colocado em pratica esta ocorrendo um erro no Loop.

Erro que apresenta no navegador.

Erro de compilação do Microsoft VBScript erro '800a040e'

'loop' sem 'do'

,line 137

loop

Código até o momento

SQL = "Select * from tbl_cotacaoExter where cod_periodo = "&request("periodo")&" AND nome_produto = "&request(arrayLinha(0))&""
SQL2 = "INSERT INTO tbl_cotacaoExter (cod_produto, nome_produto, qtd_prod, estoque, un_medida, cod_periodo) VALUES ('"&arrayLinha(0)&"','"&arrayLinha(1)&"','"&arrayLinha(2)&"','"&arrayLinha(3)&"','"&arrayLinha(4)&"','"&cod_periodo&"')"

Set RS = conexao.execute(SQL)

if RS.EOF <> true then
response.write "<script>location = 'erro_cadgrupoproduto.asp'</script>"

else
conexao.execute(SQL2)
'Passar para próxima linha
loop

'Destruiremos e fecharemos o FSO e o acesso ao arquivo de texto
varArquivo.Close
Set varArquivo = Nothing
Set objFSO = Nothing

'Destruiremos e fecharemos a conexão com o banco de dados
conexao.close
Set Conexao = nothing
end if
Alguém tem alguma idéia de como solucionar?