Check & Formulário

[Fernando Rocha 0]

E ai Pessoal?!

Estou com um problema com este "dito" checkbox, na verdade é com o formulário todo, help!?!

 

O código é este:

 

<%@ LANGUAGE = "VBScript" %>

<%

Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.meuweb.com.br"

Mail.From = Request.form("De")

Mail.FromName = Request.form("nome")

Mail.AddAddress Request.form("Para")

Mail.Subject = Request.form("assunto")

Mail.Body = Request.form("Mensagem")

Mail.Body = Mail.Body & "ddd = "&Request.Form("ddd") &Chr(13), "<br>"

Mail.Body = Mail.Body & "telefone = "&Request.Form("telefone") &Chr(13), "<br>"

Mail.Body = Mail.Body & "Endereço = "&Request.Form("endereco") &Chr(13), "<br>"

Mail.Body = Mail.Body & "bairro = "&Request.Form("bairro") &Chr(13), "<br>"

Mail.Body = Mail.Body & "cidade = "&Request.Form("cidade") &Chr(13), "<br>"

Mail.Body = Mail.Body & "produtos = "&Request.Form("checkbox") &Chr(13), "<br>"

On Error Resume Next

Mail.Send ' Envia o e-mail

If Err <> 0 Then

Response.Write "Error encountered: " & Err.Description

else

response.write "Formulário enviado com sucesso!"

End If

%>

 

 

O Erro que ocorre:

 

Microsoft VBScript compilation error '800a0401'

 

Expected end of statement

 

/envio_form_orcamento.asp, line 10

 

Mail.Body = Mail.Body & "ddd = "&Request.Form("ddd") &Chr(13), "<br>"

 

Gostaria de receber este formulário linha por linha mas tá complicado.

[d.eleete 0]

Mail.Body = Mail.Body & "ddd = "&Request.Form("ddd") &Chr(13)&"<br>"

Veja se trocando aquela virgula de todos pelo simbolo de concatenação, não dá certo!!

[Fernando Rocha 0]

Pô cara! não entendi?!!!!

[Fernando B. 0]

MUDE:

Mail.Body = Mail.Body & "ddd = "&Request.Form("ddd") &Chr(13), "<br>"

PARA:

Mail.Body = Mail.Body & "ddd = " & Request.Form("ddd") & Chr(13) & "<br>"

Abraços,

Fernando Botelho

[Fernando Rocha 0]

Falow, galera!!! muitissimo grato!