se alguem puder testar eu agradesso
o script : enviam.asp
<% Response.Expires = 0 %>
<% REM Previous line is used to work around proxy caching problems. %>
<%
if request("enviar") = "enviar" then
Dim Nomex, Emailx, Mensagemx, Armazenax
Nomex = Request.Form("Nome")
Emailx = Request.Form("Email")
Mensagemx= Request. Form("mensagem")
Armazenax = "<HTML><HEAD><BODY>" + "Nome: " + Nomex + "<BR>" + "Email: " + Emailx + "<BR>" + "Mensagem: " + Mensagemx + "</HTML></HEAD></BODY>"
Response.Write "<br><br><br><br><center><b><font face=tahoma size=2 color=#000666>essa é sua mensagem</center></font></b><br>"
Response.Write Nomex & "<BR>"
Response.Write Emailx & "<BR>"
Response.Write Armazenax & "<BR>"
%>
<%
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.From = Nomex
objNewMail.To = "tresdk4@hotmail.com"
objNewMail.Subject = "Mensagem da 3DK<b></b>"
objNewMail.BodyFormat = 0
objNewMail.MailFormat = 0
objNewMail.Body = Armazenax
e=objNewMail.Send
Set objNewMail = Nothing
if e then
Response.Write "Mensagem não enviada"
else
Response.Write "Mensagem enviada com sucesso!!!!!!!!!!!!!!!!!!!!"
end if
response.end
end if
%>
valeu
Edição feita por: Fabioz, 24/06/2004, 15:49.