[Resolvido] Problema com Split e Insert

[Leandro Ribeiro 0]

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 =.