[Resolvido] FOREACH em ASP

[Rod.Web 0]

Olá pessoal tenho este cod. em html e preciso que ele seja enviado no email, mas os valores nao estao chegando

em html esta assim

 

HTML

<input name="Escolha" type="checkbox" id="Escolha" value="protosemitico" />
	  Proto-Semítico <img src="" alt="fotoo" width="167" height="32" align="absmiddle" id="Proto" style="background-color: #003366" /><br />
	  <br />
	  <input name="Escolha" type="checkbox" id="Escolha" value="txt1" /> 
		  <input name="Escolha" type="checkbox" id="Escolha" value="txt2" /> 
		  <input name="Escolha" type="checkbox" id="Escolha" value="txt3" /> 
		  <input name="Escolha" type="checkbox" id="Escolha" value="txt4" /> 
	  <input type="reset" name="Reset" value="Cancelar" />
	  <input type="submit" name="Submit2" value="Enviar" />

 

em asp tenho isso, mas nao estou conseguindo nada com esse jeito, alguem poderia me dar uma luz da forma correta em asp.:

 

ASP

<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.dominio.com.br"
Mailer.FromName = request.form("Nome")
Mailer.FromAddress = request.form("Email")
Mailer.AddRecipient "Contato" , "eu@mail.com"
Mailer.Subject = "Solicitação" 

Mailer.BodyText = "Nome: " & request.form("Nome") & vbcrlf
Mailer.BodyText = "E-mail: " & request.form("Email") & vbcrlf
Mailer.BodyText = "Fone: " & request.form("Fone") & vbcrlf

Mailer.BodyText = "Cidade: " & request.form("Cidade") & vbcrlf
Mailer.BodyText = "Estado: " & request.form("Estado") & vbcrlf
Mailer.BodyText = "País: " & request.form("Pais") & vbcrlf

Mailer.BodyText = "Escolha: " & request.form("Escolha") & vbcrlf


if Mailer.SendMail then 
end if
%>

esta sem o foreach o cod. acima, pois nao consegui fazer funcionar do jeito que estava,

 

Att

RodWeb

[Ted k' 126]

e qual é o erro que gera?

pelo menos está colocando um email que exista, e um SMTP que funcione?

[Rod.Web 0]

Ted K,

sim o email estou recebendo, a questao é que para o 'campo Escolha' não aparece nada, vem em branco, enquanto os outros estao chegando preenchidos normais.

 

 

Att

Rod Web

[Ted k' 126]

você está usando campo checkbox, tem que trocar o nome deles. ou se não usa uma conta, assim:

 

Dim mode,mode_a,i
mode=Request("Escolha")
mode_a=split(mode,",")
For i=LBound(mode_a) to UBound(mode_a)
Mailer.BodyText = "Escolha: " & mode_a(i) & vbcrlf
Next

[Rod.Web 0]

Ted K,

desculpa minha igno, mas eu coloquei o cod, que você falou nesta parte, e nao deu certo (nas veio as opçoes dos checkboxes selecionadas

 

<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.meudominio.com.br"
Mailer.FromName = request.form("Nome")
Mailer.FromAddress = request.form("Email")
Mailer.AddRecipient "Teste Form" , 

"meuemail@gmail.com"
Mailer.Subject = "Solicitação " 

Mailer.BodyText = "Nome: " & request.form("Nome") & vbcrlf
Mailer.BodyText = "E-mail: " & request.form("Email") & vbcrlf
Mailer.BodyText = "Fone: " & request.form("Fone") & vbcrlf

Mailer.BodyText = "Cidade: " & request.form("Cidade") & vbcrlf
Mailer.BodyText = "Estado: " & request.form("Estado") & vbcrlf
Mailer.BodyText = "País: " & request.form("Pais") & vbcrlf


Dim mode,mode_a,i
mode=Request("Escolha")
mode_a=split(mode,",")
For i=LBound(mode_a) to UBound(mode_a)
Mailer.BodyText = "Escolha: " & mode_a(i) & vbcrlf
Next
if Mailer.SendMail then 
end if
%>

[hargon 64]

Altere essa linha para:

Mailer.BodyText = Mailer.BodyText & "Escolha: " & mode_a(i) & vbcrlf

Poste o resultado.

[Rod.Web 0]

Altere essa linha para:

Mailer.BodyText = Mailer.BodyText & "Escolha: " & mode_a(i) & vbcrlf

Poste o resultado.

 

VLWWW HARGON!

 

Deu certo, Obrigado!

 

 

Att

RodWeb

[hargon 64]

Bacana. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif