Código:
la pregunta es el objeto ADODB tiene algun metodo para saber que da error y no insertar? osea intento insertar, si me da error por que la clave existe no lo inserta, saludos For Each Emails in readDatafile 'response.Write(Emails&"<br />") strsql = "SELECT email FROM EmailNewsletter2 WHERE email =" & Emails rs.Source = strsql rs.Open if(rs.EOF) then str_sqlavi = "INSERT INTO EmailNewsletter2 (email, activo) VALUES ('"& Emails &", 1)" cm.CommandText = str_sqlavi cm.Execute total_cargados = total_cargados + 1 else total_excluiodos = total_excluidos + 1 end if rs.close total_cargados = total_cargados + 1 Next