Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Jow Xavier

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

Por , em ASP Clássico

Recommended Posts

Silvafabiano    0

Silvafabiano
Postado

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 ...

 

O nome do campo com o email é boxEmail mesmo, pq se o nome esta pegando nao tem pq o email nao esta pegando tb.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Esse é o ponto cara para exibir email eu teria q usar um outro checkbox, mas só posso usar um checkbox ... como eu faria para ter o valor do email tbm com o mesmo checkbox ?? Tá assim

 

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 & "'>"
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Silvafabiano    0

Silvafabiano
Postado

É cara aí tu complicou mesmo, tu pode fazer por javascript ou entao fazer o seguinte concatenar isso aí com um #

depois lá no for você vai dar um split

 

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



Exemplo


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

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

nao testei ok veja aí se funciona

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Então isso é muito complicado né cara, tipo pegar dois valores dentro de um checkbox hauhauhua ... teste o script e deu esse erro

Microsoft VBScript runtime error '800a0009'

 

Subscript out of range: '[number: 1]'

 

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

linha 68: emails(i) = parametro(1)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Silvafabiano    0

Silvafabiano
Postado

Espera aí vou testar

 

Pronto tá aí é que tinha que testar para saber se campo nao tava vazio hehehehe foi mals

 

 

cont = request("total")
		dim nomes()
		dim emails()
		for k=0 to Cint(cont)				
			redim preserve emails(k+1)
			redim preserve nomes(k+1)
			if trim(request("nome" & k)) <> "" then
				parametros = Split(request("nome" & k),"#")
				nomes(k) = parametros(0)
				emails(k) = parametros(1)
			end if 
		next
		
		for i=0 to Cint(cont)
			if emails(i) <> "" then
				Response.Write("<br>nome  :"& nomes(i) & "<br>")
				response.Write("email :"&emails(i))
			end if
		next

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado 

While Not tab.EOF
if cor ="#FFFFFF" then
cor = "#EEEEEE"
else
cor ="#FFFFFF"
end if
response.Write "<tr bgcolor="& cor &">" %>
				  <td width="10%" height="15"> 
					<div align="center"> 
					  <% 'Passamos valor do e-mail para checkbox que separa valores escolhidos por ",". 
					  cont = 0
					   
					  response.write "<input type='checkbox' name='box' '"& cont & "' value='" & tab("email")&"'>"
					  cont = cont+1 
					 
					  %>
					 
																 				  
					   </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
Wend 
response.write "<input type='hidden' name='total' value='" & cont & "'>"
%>

 

cont = request("total")
		dim nomes()
		dim emails()
		for k=0 to Cint(cont)				
			redim preserve emails(k+1)
			redim preserve nomes(k+1)
			if trim(request("nome" & k)) <> "" then
				parametros = Split(request("nome" & k),"#")
				nomes(k) = parametros(0)
				emails(k) = parametros(1)
			end if 
		next
		
		for i=0 to Cint(cont)
			if emails(i) <> "" then
				Response.Write("<br>nome  :"& nomes(i) & "<br>")
				response.Write("email :"&emails(i))
			end if
		next

Compartilhar este post

Link para o post
Compartilhar em outros sites

Silvafabiano    0

Silvafabiano
Postado 

While Not tab.EOF
if cor ="#FFFFFF" then
cor = "#EEEEEE"
else
cor ="#FFFFFF"
end if
response.Write "<tr bgcolor="& cor &">" %>
				  <td width="10%" height="15"> 
					<div align="center"> 
					  <% 'Passamos valor do e-mail para checkbox que separa valores escolhidos por ",". 
					  cont = 0
					   
					  response.write "<input type='checkbox' name='box' '"& cont & "' value='" & tab("email")&"'>"
					  cont = cont+1 
					 
					  %>
					 
																 				  
					   </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
Wend 
response.write "<input type='hidden' name='total' value='" & cont & "'>"
%>

 

cont = request("total")
		dim nomes()
		dim emails()
		for k=0 to Cint(cont)				
			redim preserve emails(k+1)
			redim preserve nomes(k+1)
			if trim(request("nome" & k)) <> "" then
				parametros = Split(request("nome" & k),"#")
				nomes(k) = parametros(0)
				emails(k) = parametros(1)
			end if 
		next
		
		for i=0 to Cint(cont)
			if emails(i) <> "" then
				Response.Write("<br>nome  :"& nomes(i) & "<br>")
				response.Write("email :"&emails(i))
			end if
		next

 

2 Erros

 

1°

você nao concatenou o # esqueceu hehehehehhehe

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

 

2° o nome do campo tá box lá tá request.form("nome")

 

entao altera aí e veja ok

 

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Ficou assim mas continua sem exibir nada

cont = request("total")
		dim nomes()
		dim emails()
		for k=0 to Cint(cont)				
			redim preserve emails(k+1)
			redim preserve nomes(k+1)
			if trim(request("box" & k)) <> "" then
				parametros = Split(request("box" & k),"#")
				nomes(k) = parametros(0)
				emails(k) = parametros(1)
			end if 
		next
		
		for i=0 to Cint(cont)
			if emails(i) <> "" then
				Response.Write("<br>nome  :"& nomes(i) & "<br>")
				response.Write("email :"&emails(i))
			end if
		next

Compartilhar este post

Link para o post
Compartilhar em outros sites

Silvafabiano    0

Silvafabiano
Postado

Ficou assim mas continua sem exibir nada

cont = request("total")
		dim nomes()
		dim emails()
		for k=0 to Cint(cont)				
			redim preserve emails(k+1)
			redim preserve nomes(k+1)
			if trim(request("box" & k)) <> "" then
				parametros = Split(request("box" & k),"#")
				nomes(k) = parametros(0)
				emails(k) = parametros(1)
			end if 
		next
		
		for i=0 to Cint(cont)
			if emails(i) <> "" then
				Response.Write("<br>nome  :"& nomes(i) & "<br>")
				response.Write("email :"&emails(i))
			end if
		next

 

mudou essa linha

 

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Fugindo um pouco do raciocinio tenho esse script, só ñ exibe o email qd é selecionado mais de um usuário ... Qd seleciono um ele exibe o email ...

 

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

 

box=request.Form("box")

sql = "Select * from membros where nome = '"&box&"' " 
set tab = cnn.execute(sql)

While Not tab.EOF
box_email= tab("email")
tab.MoveNext
Wend 
response.Write box_email

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

mudou essa linha

 

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

Sim mudei

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Cara tá aparecendo o email agora, mas o nome ñ aparece ... preciso do nome pois tenho q gravar o nome no banco de dados e preciso do email para enviar email para o nome selecionado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Silvafabiano    0

Silvafabiano
Postado

Cara tá aparecendo o email agora, mas o nome ñ aparece ... preciso do nome pois tenho q gravar o nome no banco de dados e preciso do email para enviar email para o nome selecionado

 

hehehe repara aí na linha

 

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

 

coloca para

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

 

valew

espero que seja isso :)/>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Adelar Tiemann jr    0

Adelar Tiemann jr
Postado

Aew

 

xD

cara a grosso modo ele ficou assim:

Nao esquece de mudar os valors nos values

 

CODE
<%@ Language=VBScript%>

<html>

<head>

<title>Pagina</title>

</head>

<body>

<%

dim i,cont

 

dim contador

contador = Request.Form("contador")

dim mail()

dim contato()

for i=0 to contador

redim preserve mail(i+1)

mail(i) = Request.Form("mail" & i)

redim preserve contato(i+1)

contato(i) = Request.Form("contato" & i)

next

 

'escreve os e-mails que deverao ser enviados

for i=0 to contador

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

response.Write "<br>enviar e-mail para: " & contato(i)

end if

next

 

response.Write "<form method='POST' name='formulario' action='pagina.asp'>"

cont = 0

for i=0 to 10

'nos valores coloque os campos que vem do banco

response.Write "<input type='checkbox' name='mail" & cont & "' value='" & cont & "'>"

response.Write "<input type='hidden' name='contato" & cont & "' value='" & cont & "'>"

cont = cont+1

next

'nao tenho mta certeza disso \/

cont = cont-1' para retirar o ultimo pois ele fica sobrando.

 

response.Write "<input type='hidden' name='contador" & cont & "' value='" & cont & "'>"

response.Write "</form>"

%>

</body>

</html>

 

tenta colar isso em uma pagina e ver uq acontece

 

vlw ae

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Fiz isso e ñ funcionou ... e tbm só está aparecendo qd são para dois escolhidos ... Cara ValeuUu PELA AJUDA amanhã agenta tenta resolver, agora tenho q ir pro curso hauhauhauha Abraçãoooo até ++

Compartilhar este post

Link para o post
Compartilhar em outros sites

Silvafabiano    0

Silvafabiano
Postado

Aew

 

xD

cara a grosso modo ele ficou assim:

Nao esquece de mudar os valors nos values

 

CODE
<%@ Language=VBScript%>

<html>

<head>

<title>Pagina</title>

</head>

<body>

<%

dim i,cont

 

dim contador

contador = Request.Form("contador")

dim mail()

dim contato()

for i=0 to contador

redim preserve mail(i+1)

mail(i) = Request.Form("mail" & i)

redim preserve contato(i+1)

contato(i) = Request.Form("contato" & i)

next

 

'escreve os e-mails que deverao ser enviados

for i=0 to contador

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

response.Write "<br>enviar e-mail para: " & contato(i)

end if

next

 

response.Write "<form method='POST' name='formulario' action='pagina.asp'>"

cont = 0

for i=0 to 10

'nos valores coloque os campos que vem do banco

response.Write "<input type='checkbox' name='mail" & cont & "' value='" & cont & "'>"

response.Write "<input type='hidden' name='contato" & cont & "' value='" & cont & "'>"

cont = cont+1

next

'nao tenho mta certeza disso \/

cont = cont-1' para retirar o ultimo pois ele fica sobrando.

 

response.Write "<input type='hidden' name='contador" & cont & "' value='" & cont & "'>"

response.Write "</form>"

%>

</body>

</html>

tenta colar isso em uma pagina e ver uq acontece

 

vlw ae

 

 

Perfeito só tinha alguns errinhos, mas tudo trank 100% agora

 

 

dim i,cont

dim contador
contador = Request.Form("contador")
dim mail()
dim contato()
for i=0 to contador
	redim preserve mail(i+1)
	mail(i) = Request.Form("mail" & i)
	redim preserve contato(i+1)
	contato(i) = Request.Form("contato" & i)
next

'escreve os e-mails que deverao ser enviados
for i=0 to contador
	if trim("" & mail(i) )<>"" then
		response.Write "<br>enviar e-mail para: " & contato(i)
	end if
next

response.Write "<form method='POST' name='formulario' action='testelightbox2.asp'>"
cont = 0
for i=0 to 10
'nos valores coloque os campos que vem do banco
response.Write "<input type='checkbox' name='mail" & cont & "' value='" & cont & "'>"
response.Write "<input type='hidden' name='contato" & cont & "' value='" & cont & "'>"
cont = cont+1
next
'nao tenho mta certeza disso \/
cont = cont-1' para retirar o ultimo pois ele fica sobrando.

response.Write "<input type='hidden' name='contador' value='" & cont & "'>"
Response.Write("<input type='submit' value='dsds'>")
response.Write "</form>"

Valew

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Bom dia galera, vamos tentar resolver este problema e está me deixando louco, bom se eu falar pra vcs q eu estou entendendo isso é mentira, algumas partes eu estou conseguindo pegar ... Vou estudar este script depois de pronto huahuhahahauha ...

 

Vamos lá ñ entendi como montar a minha página onde eu tenho o formulário ... o meu script está assim

 

While Not tab.EOF
if cor ="#FFFFFF" then
cor = "#EEEEEE"
else
cor ="#FFFFFF"
end if
response.Write "<tr bgcolor="& cor &">" %>
				  <td width="10%" height="15"> 
					<div align="center"> 
					  <% 'Passamos valor do e-mail para checkbox que separa valores escolhidos por ",". 

					 
					  %>
					  <input name="box" type="checkbox" value="<%=tab("nome")%>"/>
																 				  
					   </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
Wend
Veja q eu uso um While para exibir uma tabela zebrada ou seja uma linha mais escura e outra mais clara, tbm exibo o nome do usuário e o email junto com um checkbox ...

 

 

Nestá página q recebe o valor do form fiz assim:

dim i,cont

dim contador
contador = Request.Form("contador")
dim mail()
dim contato()
for i=0 to contador
	redim preserve mail(i+1)
	mail(i) = Request.Form("mail" & i)
	redim preserve contato(i+1)
	contato(i) = Request.Form("contato" & i)
next

'escreve os e-mails que deverao ser enviados
for i=0 to contador
	if trim("" & mail(i) )<>"" then
		response.Write "<br>enviar e-mail para: " & contato(i)
	end if
next
Está correto isso ... POr favor dá uma força ai para incrementar esse script no meu código

 

Abraçossss

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito