Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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")
>
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)&"')"<%
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
%>
você criou um objeto recordset com o nome de rsUsuario
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
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
next
response.Write("Cadastrado")
conn.Close()
'Destruímos o objeto
Set conn = Nothing
%>