[Resolvido] pegar valor de uma table dentro de um checkbox

[Jow Xavier 0]

Não cara queria q enviasse email apenas para as pessoas selecionadas no checkbox ...

[hargon 64]

sql = "SELECT * FROM membros WHERE nome = '"&box&"' "
set tab = cnn.execute(sql)
strP= tab("email")

Dessa forma está pegando apenas um e-mail, dos vários resultados... por isso tem que criar um loop e pagar os e-mails.

 

<input name="box" type="checkbox" value="<%=tab("nome")%>"/>
					  <input name="box_email" type="hidden" value="<%=tab("email")%>"/>

Dessa forma, quando você marca o checkbox, você não está informando qual e-mail deverá receber a mensagem. O checkbox está selecionando apenas ele mesmo, logo os nomes. Por isso o ideal é você fazer uma segunda consulta, antes de enviar, para pegar os e-mails.

[Adelar Tiemann jr 0]

Aew

 

olhe só você esta usando o mesmo nome do checkbox para isso???

 

se sim tente fazer da seguinte forma:

 

CODE

cont = 0

while not rs_pesoa.eof

response.write "<input type='checkbox' name='mail" & cont & "' value='" & rs_pessoa("mail") & "'>"

cont = cont+1

rs_pessoa.movenext

wend

response.write "<input type='hidden' name='total' value='" & cont & '>"

 

fassa assim na hora de montar o cara.

 

na hora de ler ele use

 

CODE

cont = 0

dim mails()

for i=0 to cont

redim preserv mails(i+1)

mails(i) = request.form("mail" & i)

next

 

ira ter varios espaços vazies desta forma intao na hora de enviar tera de tratalos

 

mais assim deve funcionar

 

vlw ae

 

euaxoteam.blogspot.com

[Jow Xavier 0]

Cara mas como q eu vou pegar o email correspondente ao nome ... usando apenas um checkbox com o valor do nome ?

[Jow Xavier 0]

Aew

 

olhe só você esta usando o mesmo nome do checkbox para isso???

 

se sim tente fazer da seguinte forma:

 

 

CODE

cont = 0while not rs_pesoa.eof response.write "<input type='checkbox' name='mail" & cont & "' value='" & rs_pessoa("mail") & "'>" cont = cont+1 rs_pessoa.movenextwendresponse.write "<input type='hidden' name='total' value='" & cont & '>"

 

fassa assim na hora de montar o cara.

 

na hora de ler ele use

 

 

CODE

cont = 0dim mails()for i=0 to cont redim preserv mails(i+1) mails(i) = request.form("mail" & i)next

 

ira ter varios espaços vazies desta forma intao na hora de enviar tera de tratalos

 

mais assim deve funcionar

 

vlw ae

 

euaxoteam.blogspot.com

 

 

--------------------

 

by CubS

Mas eu preciso passar o valor como nome ....

[Adelar Tiemann jr 0]

tipo você usa a mesma concatenação para o nome concatenando com alguma variavel desta forma você vai ter eles na mesma posição intao o nome0 vai ser o nome do mail0 e assim sussecivamente

[Jow Xavier 0]

tipo você usa a mesma concatenação para o nome concatenando com alguma variavel desta forma você vai ter eles na mesma posição intao o nome0 vai ser o nome do mail0 e assim sussecivamente

Cara eu ñ entendi como fazer ...

[Silvafabiano 0]

Opa

O que o Adelar quiz explicar é o seguinte

 

você vai ter a estrutura

 

<input type='checkbox' name='nome0' value='0'>

<input type='checkbox' name='mail0' value='0@123.com.br'>

 

<input type='checkbox' name='nome1' value='1'>

<input type='checkbox' name='mail1' value='1@123.com.br'>

 

<input type='checkbox' name='nome2' value='2'>

<input type='checkbox' name='mail2' value='2@123.com.br'>

 

...

 

entao tipo você vai ter nome0 e mail0 que vai corresponder ao nome e email da 1ª pessoa e assim sucessivamente.

 

Abraços

[Jow Xavier 0]

ok o valor q eu estou passando dentro do checkbox é o nome e como q eu vou pegar o email q está na mesma tablea do nome ???

Aki eu passo o valor

While Not tab.EOF

					  <%
					  cont = 0
					   
					  response.write "<input type='checkbox' name='box' '"& cont & "' value='" & tab("nome") & "'>"   
					  cont = cont+1 
					 
					tab.MoveNext
Wend 
response.write "<input type='hidden' name='total' value='" & cont & "'>"
%>

Aki eu recebo o valor..

cont = 0
dim mails()
for i=0 to cont 
redim preserv mails(i+1) 
mails(i) = request.form("box" & i)
next

... Mas como eu faço para ter o valor email ... q está na mesma tabela do nome ???

[Silvafabiano 0]

Aí no caso você está pegando o email e colocando em um vetor de mails

você vai fazer a mesma coisa com o nome

 

depois você vai tert um vetor

 

vai dar um for para iterar sobre o vetor e vai acessar os valores sendo

 

mails(0) e nomes(0) == primeiro

mails(1) e nomes(1) == segundo

.

.

.

 

espero que tenha entendido

 

exemplo

 

cont = 0
dim mails()
dim nomes()
for i=0 to cont
redim preserv mails(i+1)
redim preserv nomes(i+1)
mails(i) = request.form("boxEmail" & i)
nomes(i) = request.form("boxNome" & i)
next

depois

for i=0 to cont
sql = 'insert into tabela (nome,email) values ('"&nomes(i)&"','"&emails(i)&"')'
next
acho que é isso aí

[Jow Xavier 0]

mas ai para pegar um outro valor eu teria q usar um outro checkbox, certo ?

[Silvafabiano 0]

mas ai para pegar um outro valor eu teria q usar um outro checkbox, certo ?

Os valores de todos os checkbox estao nos respectivos vetores entendeu?

 

Entao tá tudo lá só precisa fazer um outro for para poder resgatar os valores que você quiser entendeu?

 

Abraços

[Jow Xavier 0]

Fiz assim:

cont = 0
dim nomes()
dim emails()
for i=0 to cont
redim preserv mails(i+1)
redim preserv nomes(i+1)
nomes(i) = request.form("box" & i)
emails(i) = request.form("boxEmail" & i)
next

for i=0 to cont
response.Write emails(i)
next

E me retonou esse erro:

Microsoft VBScript compilation error '800a03ed'

 

Expected '('

 

/thatto/jobs/compromissos/inserir_compromissos.asp, line 63

 

redim preserv nomess(i+1)

linha 63: redim preserv nomes(i+1)

[Adelar Tiemann jr 0]

Silvafabiano vlw por me ajudar a explicar aqui hehe

 

Opa

 

Jow você tbm pode usar campos hidden para pegar outros valores.

você faz eles da mesma forma que faria os checkbox, teria o mesmo indice no fim 0,1,2,...,n e pegaria os valores da mesma forma.

 

ai na hora de enviar o email tiria que fazer +- isso:

<div class='codetop'>CODE</div><div class='codemain' style='height:300px;white-space:pre;overflow-y:auto'>for i=0 to total

if trim(mail(i))<>"" then

call enviarMail(mail(i),nome(i))

end if

next</div>

 

lembrando que o nome(i) voce deve pegar da mesma forma que o e-mail porem pode usar um campo hidden

assim ele ira pegar ele pelo indice do checkbox.

 

outra coisa

lembre que todos os campos hidden estaram com o valor por isso você deve por no IF dentro do FOR o mail que é a variavel que foi pega dos chebox que nem todas tera falor apenas as que foram marcadas

 

espero estar ajudando :D/>

 

Vlw ae

[Jow Xavier 0]

Galera estou tentando entender aki mas não estou conseguindo

 

aki eu passo o valor do checkbox

While Not tab.EOF

					  <%
					  cont = 0
					   
					  response.write "<input type='checkbox' name='box' '"& cont & "' value='" & tab("nome") & "'>"   
					  cont = cont+1 
					 
					tab.MoveNext
Wend 
response.write "<input type='hidden' name='total' value='" & cont & "'>"
%>

Isso está correto ?

 

Agora na hora de receber isso ñ sei como fazer ... Cara me ajude a resolver isso ... tô precisando entregar um sistema q está atrasadão ... justamente por isso !!!

[Adelar Tiemann jr 0]

Cara

 

eu vou pegar algumas coisas que tenho no trabalho e monto pra ti certinho uma pagina

:D/>

 

só não sei se consigo para hj...

 

uma coisa que vi errado no seu codigo eh o nome do box

 

name='box" & cont & "'

 

o cont deve estar dentro das ' ' para poder fazer o nome dele assim

box0

box1

box2

 

e assim por diante

 

vlw ae

[Silvafabiano 0]

Acho que encontrei o erro

 

tenta mudar de preserv para preserve ok.

 

 

Acho que esse foi o problema ele nao achou a funcao

 

Abraços

[Jow Xavier 0]

Cara

 

eu vou pegar algumas coisas que tenho no trabalho e monto pra ti certinho uma pagina

 

 

só não sei se consigo para hj...

 

uma coisa que vi errado no seu codigo eh o nome do box

 

name='box" & cont & "'

 

o cont deve estar dentro das ' ' para poder fazer o nome dele assim

box0

box1

box2

 

e assim por diante

 

vlw ae

Cara se você puder fazer isso pra mim vou agrader muito ... pois realmente eu não estou conseguindo e já estou com o prazo de entrega estourado ...

 

Acho que encontrei o erro

 

tenta mudar de preserv para preserve ok.

 

 

Acho que esse foi o problema ele nao achou a funcao

 

Abraços

Brother realmente era por isso q ele ñ estava encontrando a função ... mas agora ñ está exibindo nada

[Silvafabiano 0]

Pode ser o nome do campo do form, tem umas aspas aí a mais eu acho

 

coloca assim

 

 

response.write "<input type='checkbox' name='box"& cont &"' value='"& tab("nome") & "'> "

 

valew

[Jow Xavier 0]

Cara agora tá mostrando, só q só mostra os nomes q estão dentro do for, fiz assim

cont = 0
dim nomes()
dim emails()
for i=0 to cont
redim preserve nomes(i+1)
redim preserve emails(i+1)
nomes(i) = request.form("box" & i)
emails(i) = request.form("boxEmail" & i)
next

for i=0 to cont
response.Write nomes(i)
next

Alterei aki para mostrar os emails

response.Write emails(i) e ñ mostra ...