Nenhuma resposta neste tópico

[daniellimao]

Boa...

tudo bom pessoal?

Bem, por favor, me ajudem, se possível, estou com o problema:

Tenho um formulário, que é em asp, mas eu não entendo nada de programação, e queria apenas que vcs me dissem onde e como eu faço pra formatar o email recebido, em minha caixa de emails.
O ruim é q nesse script não é declarado todos os campos do form, ele pega quantos campos tiverem, mesmo sem declara-los... segue abaixo o código:


<%


on error resume next

destino = request("email")
resposta = request("resposta")
subject = request("subject")
nome = request.form("nome")
livros = request.Form("livros")


quantidade = cint(request.form("quantidade de Dez Choros"))
quantidade = quantidade + cint(request.form("quantidade de Suite Sexta em Ré Nº 2"))
quantidade = quantidade + cint(request.form("quantidade de Suite Sexta em Ré"))
quantidade = quantidade + cint(request.form("quantidade de 14 Peças para Violão"))

resposta = resposta & "?nome=" & nome & "&discos=" & livros & "&quantidade=" & quantidade & ""
For Each x In Request.Form
message = message & x & ": " & Request.Form(x) & vbCrLf
Next

SET objNewMail = Server.CreateObject("JMail.SMTPMail")

objNewMail.AddRecipient destino
objNewMail.Sender = "meu_email" 'esta conta deverá ser criada

objNewMail.Subject = subject


objNewMail.ServerAddress = "mail.meuservidor.com.br:25"


objNewMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")


' mandar

objNewMail.Body = message
objNewMail.Execute

' acabar
SET controlFields = Nothing
SET requiredFields = Nothing
SET objNewMail = nothing


response.redirect(resposta)
%>


Onde eu coloco alguma linha de formatação, por favor.

Agradeço a todos!

abs