Arquivo De Email Em Asp Estraga O <form>

[alexcalciunovelli]

socorro...

não entendo nada de ASP

hospedo os sites na GWMNet e eles fornecem um arquivo chamado "email.asp"

este arquivo faz os formularios em HTML chegarem ao email de destino...

o problema é que os dados do formulario, que estão na ordem correta, chegam ao email totalmente invertidos... sempre na mesma sequencia de inversão...

a pagina é esta: http://www.molasfalbo.com.br/cad-torcao.htm

o código do arquivo "email.asp" é este :

<%

'<form method="POST" action="email.asp">

' <input type="hidden" name="destino" value="suporte@gwmnet.com.br">

' <input type="hidden" name="formulario" value="formulario.htm">

' <input type="hidden" name="assunto" value="Formulario">

' <input type="hidden" name="obrigado" value="obrigado.htm">

From = Request.form("from")

Para = Request.form("destino")

Assunto = Request.form("assunto")

email = Request.form("email")

if LEN(From) < 1 then From = "postmaster@gwmnet.com.br"

if LEN(email) < 1 then email = "postmaster@gwmnet.com.br"

MSG = ""

Set Mail3 = CreateObject("CDONTS.Newmail")

Mail3.Value("Reply-To") = email

Mail3.From = "Formulario de Cadastro <postmaster@gwmnet.com.br>"

Mail3.To = Para

Mail3.Subject = Assunto

For Each Item IN Request.Form

item = LCase(Item)

if Item <> "destino" AND Item <> "assunto" AND Item <> "obrigado" AND Item <> "formulario" AND Item <> "enviar" then MSG = MSG + Item + " = " + Request.Form(Item) + chr(13)

Next

Mail3.Body = MSG

' Para encaminhar mensagens em HTML, utilize os itens abaixo

' Mail3.MailFormat = 0

' Mail3.BodyFormat = 0

Mail3.Send

Set Mail3 = nothing

Response.Redirect(Request.FORM("obrigado"))

%>

[dark0]

você copiou esse codigo do seu server?

no tópico de funcoes tem exemplos de codigos para o CDONTS, seu componente!

ate mais

[dark0]

<%
From    = Request.form("from")
Para    = Request.form("destino")
Assunto = Request.form("assunto")
email   = Request.form("email")
Mensagem= "Aqui você coloca a mensagem"
if LEN(From)  < 1 then From  = "postmaster@gwmnet.com.br"
if LEN(email) < 1 then email = "postmaster@gwmnet.com.br"

Set eObjMail = Server.CreateObject("CDONTS.NewMail")
eObjMail.to = para
eObjMail.from = NomeEmail & "<" & from & ">"
eObjMail.subject = Assunto
eObjMail.Importance = 1
eObjMail.BodyFormat = 0
eObjMail.MailFormat = 0
eObjMail.body = Mensagem 
eObjMail.send
Set eObjMail = nothing

Response.Write "E-mail enviado com sucesso!"
%>

[alexcalciunovelli]

Nomes dos Campos do <FORM>

nome

departamento

empresa

email

material

d

lo

de

di

et

ea

extremidades

enrolamento

tratamento_superficial

[dark0]

<%

From    = Request.form("from")

Para    = Request.form("destino")

Assunto = Request.form("assunto")

email  = Request.form("email")

Mensagem = "<br>" + request("nome")

Mensagem = Mensagem + "<br>" + request("departamento")

Mensagem = Mensagem + "<br>" + request("empresa")

Mensagem = Mensagem + "<br>" + request("email")

Mensagem = Mensagem + "<br>" + request("material")

Mensagem = Mensagem + "<br>" + request("d")

Mensagem = Mensagem + "<br>" + request("lo")

Mensagem = Mensagem + "<br>" + request("de")

Mensagem = Mensagem + "<br>" + request("di")

Mensagem = Mensagem + "<br>" + request("et")

Mensagem = Mensagem + "<br>" + request("ea")

Mensagem = Mensagem + "<br>" + request("extremidades")

Mensagem = Mensagem + "<br>" + request("enrolamento")

Mensagem = Mensagem + "<br>" + request("tratamento_superficial")

if LEN(From)  < 1 then From  = "postmaster@gwmnet.com.br"

if LEN(email) < 1 then email = "postmaster@gwmnet.com.br"

Set eObjMail = Server.CreateObject("CDONTS.NewMail")

eObjMail.to = para

eObjMail.from = NomeEmail & "<" & from & ">"

eObjMail.subject = Assunto

eObjMail.Importance = 1

eObjMail.BodyFormat = 0

eObjMail.MailFormat = 0

eObjMail.body = Mensagem

eObjMail.send

Set eObjMail = nothing

Response.Redirect "obrigado.htm"%>

fiz isso agora.. não testei..

teste e veja se funciona

ate mais

[dark0]

bom, duvida resolvida.

to fechando o tópico