Inserir dados múltiplos na variável

[ukow 1]

Olá!

Estou montando um pequeno sistema de envio de emails, e estou com um probleminha.

Ao enviar é preciso que selecione uma categoria e quando realiza o envio, preciso que o sistema me traga em uma única variável todos os emails da tabela.

exemplo:

envio = joão@uol.com.br, maria@uol.com.br, pedro@uol.com.br

E assim vai.

Isso é possível? Se sim, quais alterações preciso fazer no meu código?

Obrigado :D

selecione2 = "SELECT * FROM TB_USERS where Tipo_usuario = '" & request.form("emails")  & "'"
Set RS_Categoria = Server.CreateObject("ADODB.Recordset")
RS_Categoria.Open selecione2, MM_Cn_emailMkt2_STRING

 idmail = RS_Categoria("email")

[xanburzum 169]

olha estes exemplos:

if qtd_produtos = "" then
Response.write("erro..."
response.redirect("outra_pagina.asp")
else
qtd_produtos = split(Request.Form("qtd_produtos"),",")
if qtd_produtos = ""
produtos= Split(Request.Form("produtos"), ",")

For i = 1 To Request.Form("produtos").Count

Response.write request.form("produtos")(i)&"<BR>" & request.form("qtd_produtos")(i)&"<BR>"
SQL = "INSERT INTO lista (lista_prodID,lista_quant) Values ('"&request.form("produtos")(i)&"','"&request.form("qtd_produtos")(i)&"')"

OUTRO EXEMPLO

<%
dim conn
'Criamos o objeto de conexão
Set conn = Server.CreateObject("ADODB.Connection")
 
'Abrimos uma conexão com o banco de dados - [IMPORTANTE] altere os dados abaixo com as informações de sua base de dados
conn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;PORT=3306;DATABASE=database;USER=root;PASSWORD=211613;OPTION=3;")

checkbox = request.form("teste").Count

response.Write("<br>"&checkbox&"<br />")

for i = 0 to checkbox-1

'response.Write(split(Request.Form("teste"),",")(i)&"<br />")

set inerir = conn.execute("insert into arquivomb (arquivo,notafiscal) values ("&split(Request.Form("teste"),",")(i)&","&Request.Form("users")&")")

next

response.Write("Cadastrado")

conn.Close()
'Destruímos o objeto
Set conn = Nothing

%>

[ukow 1]

olha estes exemplos:

if qtd_produtos = "" then
Response.write("erro..."
response.redirect("outra_pagina.asp")
else
qtd_produtos = split(Request.Form("qtd_produtos"),",")
if qtd_produtos = ""
produtos= Split(Request.Form("produtos"), ",")

For i = 1 To Request.Form("produtos").Count

Response.write request.form("produtos")(i)&"<BR>" & request.form("qtd_produtos")(i)&"<BR>"
SQL = "INSERT INTO lista (lista_prodID,lista_quant) Values ('"&request.form("produtos")(i)&"','"&request.form("qtd_produtos")(i)&"')"

OUTRO EXEMPLO

<%
dim conn
'Criamos o objeto de conexão
Set conn = Server.CreateObject("ADODB.Connection")
 
'Abrimos uma conexão com o banco de dados - [IMPORTANTE] altere os dados abaixo com as informações de sua base de dados
conn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=localhost;PORT=3306;DATABASE=database;USER=root;PASSWORD=211613;OPTION=3;")

checkbox = request.form("teste").Count

response.Write("<br>"&checkbox&"<br />")

for i = 0 to checkbox-1

'response.Write(split(Request.Form("teste"),",")(i)&"<br />")

set inerir = conn.execute("insert into arquivomb (arquivo,notafiscal) values ("&split(Request.Form("teste"),",")(i)&","&Request.Form("users")&")")

next

response.Write("Cadastrado")

conn.Close()
'Destruímos o objeto
Set conn = Nothing

%>

Olá! Tentei dessa forma e obtive o erro: O objeto não dá suporte para a propriedade ou método: 'Count'

O que pode ser?

Set rsUsuario = Server.CreateObject("ADODB.Recordset")
rsUsuario.Open "SELECT * from TB_USERS", objConnection1


dim variavel
variavel = rsUsuario("id_user").Count

response.Write("<br>"&variavel&"<br />")

for i = 0 to variavel-1

next

%>

[xanburzum 169]

você criou um objeto recordset com o nome de rsUsuario