De 50 em 50...

[PauloPauladaPower 0]

Turma, será que alguém me ajuda?

Seguinte: tenho um sisteminha que funciona como um catálogo de e-mails. Nele você pode criar grupos e cadastrar os e-mails dentro destes grupos.

Há também um sisteminha de newsletter, que trabalha com os e-mails do sistema acima.

Pois bem. Na hora de enviar uma nova newsletter, tenho a opção de escolher para qual grupo quero enviar. Por exemplo:

 

Supondo que tenho três grupos (grupo A, B e C)

Eu quero enviar a newsletter para os e-mails contidos nos grupos A e C apenas. Seleciono estes dois grupos via formulário com checkboxes.

 

Pelo modo que fiz, gravo o mailing coletado acima em um banco de dados temporário. Assim, fica uma linha com os e-mails separados por ponto-e-vírgula (;).

Mas, meu servidor aceita enviar 50 e-mails por vez.

Assim, eu queria fazer de modo que, ao gerar o mailing na tabela temporária citada acima, fosse criando 50 e-mails por linha. O código vem abaixo:

 

'vai pegar o ID dos grupos

For each record in request("ID")

 

'seleciona no mailing apenas os e-mails dos grupos requeridos na linha acima

Set MRs = con.execute("SELECT * FROM mailing WHERE grupo = "&record&"")

 

 

 

'zerando contador

cont = 0

 

'loop que grava os e-mails separados por ponto-e-vírgula

while not MRs.eof

montarmailing = montarmailing & MRs("email") & ";"

con.execute("UPDATE sendmailing SET mailing = '"&montarmailing&"' WHERE chave = '"&varchave&"'")

cont = cont + 1

 

Mrs.movenext

 

wend

 

'vai para o próximo grupo no FOR

next

 

> O resultado disso no BD é o seguinte:

1 | fulano@fulano.com;fulano@fulano.com;fulano@fulano.com;

 

> Queria algo assim:

1 | fulano@fulano.com;

2 | fulano@fulano.com;

3 | fulano@fulano.com;

 

Obrigado pela atenção

[m/ster 0]

Se eu entendi certo faça o loop da seguinte forma:

 

while not MRs.eof  montarmailing = MRs("email") & ";"  con.execute("INSERT INTO sendmailing(mailing) VALUES('"&montarmailing&"'))  cont = cont + 1  Mrs.movenextwend

Isso fará cadastrar cada email em um registro diferente:

 

1 | fulano@fulano.com;

2 | fulano@fulano.com;

3 | fulano@fulano.com;