[Resolvido] Problema com Split e Insert

Olá Pessoal, estou com um problema aparentemente simples, estou tentando inserir vários registro de e-mail existente em uma TextArea separados por virgula. Estou utilizando o split para divisão, mas no momento do insert apenas o primeiro é inserido, os demais são inseridos em branco, vejam o código.

<%
Dim endemails, i
endemails = Split(Request.Form("enderecos"),",")

For i = 0 to Ubound(endemails)
Response.Write("Inserido:" & endemails(i) & "<br/>")

 SQL = "Insert Into tbl_catalogoEnderecos(email) Values('"&endemails(i)&"')"
 Set rs = conexao.execute(SQL)

 Next

Resolvido: por uma falta de atenção deixei o Set rs =.