Checkbox, array e consulta sql

[Rafael Estefano 0]

Boa tarde pessoal, sei que existem vários e vários tópicos sobre este assunto, mas não consegui tirar proveito e realizar a tarefa que estou precisando.

1 - Preciso pegar os valores de um checkbox que terá os valores dos grupos de e-mail

2 - preciso fazer uma consulta para cada valor para pegar todos os e-mail dentro do grupo

3 - todos os e-mail dentro de uma variável para enviar o conteúdo para todos eles

 

Como posso fazer isso ?

CODE

<%Dim checkbox, Meuarray, msg

checkbox = request.Form("checkbox")

MeuArray = split( checkbox , "," )

Set conexao = Server.CreateObject("ADODB.Connection")

DataSource = "Provider=SQLOLEDB;Server=dib_server_test;Database=registro_de_ocorrencia;Ui

d=sa;Pwd=desv$oft"

conexao.Open DataSource

for i = 0 to UBound(MeuArray)

deleta = i

do while not deleta <> ""

Query = "SELECT email FROM grupo_email WHERE nm_grupo = '"& checkbox &"'"

set RecSet = conexao.execute(Query)

loop

next

%>

 

 

Já estou quebrando cabeça a um tempão... já tentei um monte de coisa e não consegui fazer... sou iniciante em asp.... portanto, não se apavorem se estiver fazendo alguma asneira...

 

Valeu pessoal...

[Salgado 4]

Ao invés de usar a variável checkbox em sua SQL você deve usar a sua matriz MeuArray passando a posição. Dentro de seu laço For você faz tudo o que for preciso para enviar o e-mail.

[Rafael Estefano 0]

Primeiramente muito obrigado pela ajuda.

deveria ficar assim ? está correto ?

CODE

for i = 0 to UBound(MeuArray)

deleta = i

do while not deleta <> ""

Query = "SELECT email FROM grupo_email WHERE nm_grupo = '"& Meuarray(i) &"'"

set RecSet = conexao.execute(Query)

response.write "aaa"

loop

next

%>

 

coloquei o response.write só para fazer um teste, mas nada é exibido na página seguinte. Há algo errado com o loop ?

[Rafael Estefano 0]

Consegui algum progresso da seguinte forma

CODE

for i = 0 to Ubound(MeuArray)

Query = "SELECT email FROM grupo_email WHERE nm_grupo = '"& MeuArray(i) &"'"

set RecSet = conexao.execute(Query)

do while not RecSet.eof

response.write Recset("email")

response.write ";"

'response.write meuarray(i)

Recset.Movenext

loop

next

 

O único problema é que ele faz a primeira consilta e para, não faz a consulta e mostra os valores dos outros checkboxes...

[hargon 64]

Tenta isso aí:

MeuArray = Request.Form("checkbox")
If (inStr(MeuArray,",") > 0) Then
	MeuArray = "'" & replace(MeuArray,",","',") & "'"
Else
	MeuArray = "'" & MeuArray & "'"
End If

Query = "SELECT email FROM grupo_email WHERE nm_grupo in ("& MeuArray &")"
Set RecSet = conexao.execute(Query)
If Not RecSet.Eof Then
	While Not RecSet.Eof
		Response.Write Recset("email") & ";"
		Recset.Movenext
	Wend
End If
RecSet.Close
Set RecSet = Nothing