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

[Silvafabiano 0]

Vamos lá

 

Nao testei ok

 

<!-- ESTE É O FORMULÁRIO -->
	<%
	dim cont = 0
	While Not tab.EOF
		if cor ="#FFFFFF" then
			cor = "#EEEEEE"
		else
			cor ="#FFFFFF"
		end if		
	%>
		<tr bgcolor="<%=cor%>">
			<td width="10%" height="15">
				<div align="center">
					<!-- Campo que vai aparecer que vai conter o nome -->				  
					<input name="nome<%=cont%>" type="checkbox" value="<%=tab("nome")%>"/>
					<!-- Campo que NAO vai aparecer que vai somenente conter o email -->				  
					<input name="email<%=cont%>" type="hidden" value="<%=tab("email")%>"/>
				</div>
			</td>
			<td width="45%" height="15" class="titulo2" ><%=tab("nome")%></td>
			<td width="45%" height="15" class="titulo2" ><%=tab("email")%></td>
		 </tr>
	<% 	tab.MoveNext
		cont = cont + 1
	wend	
	%>
	<input type='hidden' name='TotalCampos' value="<%=cont%>">"
	
<!-- FIM DO FORMULÁRIO -->



<!-- PAGINA QUE VAI PROCESSAR O FORMULARIO -->
<%
dim i,totalCampos
totalCampos = Request.Form("TotalCampos") ' aqui contem a quantidade de campos gerados no form
dim emails() ' array de emails
dim nomes() ' array de nomes
for i=0 to totalCampos ' fazendo um for até a quantidade de campos gerados
	redim preserve emails(i+1) ' redimensionando o array e preservando os valores contidos nele
	emails(i) = Request.Form("email" & i) ' pegando o valor do campo email e colocando no array
	redim preserve nomes(i+1) ' redimensionando o array e preservando os valores contidos nele
	nomes(i) = Request.Form("nome" & i) ' pegando o valor do campo nome e colocando no array
next

'escreve os e-mails que deverao ser enviados
for i=0 to totalCampos ' fazendo um for até a quantidade de campos gerados
	if trim("" & emails(i) ) <> "" then ' se a posição do array de nomes nao estiver vazio entao mostra o nome e o email para quem vai enviar
		response.Write "<br>enviar e-mail para: " & nomes(i)
		response.Write "<br>E-mail : " & emails(i)
	end if
next
%>
<!-- FIM DA PAGINA QUE VAI PROCESSAR O FORMULARIO -->

[Jow Xavier 0]

Deu esse erro

Microsoft VBScript compilation error '800a0401'

 

Expected end of statement

 

/thatto/jobs/compromissos/compromissos.asp, line 142

 

dim cont = 0

linha 142 dim cont = 0

[Silvafabiano 0]

Hahahahah foi mal tenta assim

 

dim cont

cont = 0

[Jow Xavier 0]

Vixe tá pegando o email de todos os usuários ... e deveria pegar o email apenas dos usuários selecionados !!!

[Silvafabiano 0]

Já sei espera aí ehehehehehe problema de lógica hahahaha

 

 

Tenta aí agora

 

<!-- PAGINA QUE VAI PROCESSAR O FORMULARIO -->
<%
dim i,totalCampos
totalCampos = Request.Form("TotalCampos") ' aqui contem a quantidade de campos gerados no form
dim emails() ' array de emails
dim nomes() ' array de nomes
for i=0 to totalCampos ' fazendo um for até a quantidade de campos gerados
	redim preserve emails(i+1) ' redimensionando o array e preservando os valores contidos nele
	redim preserve nomes(i+1) ' redimensionando o array e preservando os valores contidos nele
	if trim(""&Request.Form("nome" & i)) <> "" then
		emails(i) = Request.Form("email" & i) ' pegando o valor do campo email e colocando no array
		nomes(i) = Request.Form("nome" & i) ' pegando o valor do campo nome e colocando no array
	end if
next

'escreve os e-mails que deverao ser enviados
for i=0 to totalCampos ' fazendo um for até a quantidade de campos gerados
	if trim("" & emails(i) ) <> "" then ' se a posição do array de nomes nao estiver vazio entao mostra o nome e o email para quem vai enviar
		response.Write "<br>enviar e-mail para: " & nomes(i)
		response.Write "<br>E-mail : " & emails(i)
	end if
next
%>
<!-- FIM DA PAGINA QUE VAI PROCESSAR O FORMULARIO -->

[Jow Xavier 0]

Velho q isso brother funcionou perfeito huahhauhauhuah Valeuuuu mesmo de coração muito bom, agora faz o script de email pra mim pois axo q vou precisar de uma função split para enviar mais de um email kkkkk, sacanagem isso né brother ... ValeuUuUuU mesmo brigadãoooo ... Abraçossss ... Problema Resolvido ... Agenta se encontra em próximo post hauahuha

 

Obs: O script de email pode deixar q eu faço abraçosss

[Silvafabiano 0]

Valew hehehehehehe estamos aí para isso

 

Abraços.

[Jow Xavier 0]

Aproveitando o tópico como vou unserir uma função Split aki

 

for i=0 to totalCampos ' fazendo um for até a quantidade de campos gerados
	if trim("" & emails(i) ) <> "" then ' se a posição do array de nomes nao estiver vazio entao mostra o nome e o email para quem vai enviar
		response.Write "<br>enviar e-mail para: " & nomes(i)
		response.Write ", " & emails(i)
	end if
next

[Adelar Tiemann jr 0]

Aew

 

o cara que bom que ajudamo

XD

 

cara para enviar o e-mail assim fica realmente melhor se você fizer um for e enviar um email por vez

 

mas se quiser fazer com o split:

 

junte tudo nume mesma variavel que nao seja vetor e depois

 

variavel = split(variacel,"o caracter")

 

vlw ae

[Jow Xavier 0]

Opa beleza cara funcionou perfeito o email nem precisei usar Split, se eu fosse usar seria isso

jow = split(emails(i),", ")

[Jow Xavier 0]

Pq ñ estou mais conseguindo gravar o valor do checkbox selecionado no banco de dados, como faço pra resolver ???

[Jow Xavier 0]

Já resolvi era só mandar inserir dentro do for onde está a função nomes(i) ... PROBLEMA RESOLVIDO abraçosssss Valeuuuu