Testem Esse Form-email - Fórum WMO
Fórum WMO: Testem Esse Form-email - Fórum WMO
Ir para[=>]
{img:Logo}[=>]
Entrar[=>]
Cadastre-se[=>]
Ajuda[=>]
Pesquisar Mais opções[=>]
Fórum[=>]
Membros[=>]
Calendário[=>]
Home[=>]
> Desenvolvimento[=>]
> ASP[=>]
Regras[=>]
Ver novo conteúdo[=>]
Página 1 de 1 Novo tópico Responder Testem Esse Form-email pra ver de funciona
#1[=>]
{img:Membro offline} Fabioz[=>]
Novato no fórum {img:Ícone} Grupo: Usuários Posts: 23 Cadastrado: 21-junho 04 Reputação: 0 Neutral Postou 24 junho 2004 - 04:48 Alguem poderia testar esse form-email, porque já não sei mais o que fazer, ela da a mensagemde confirmação, não acusa erro, mas nunca chega o e-mail, pensei que era problema do host, mas testei em outro e não deu, mesma coisa, confirma o enviu mas nunca chega.
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 = "" + "Nome: " + Nomex + "
" + "Email: " + Emailx + "
" + "Mensagem: " + Mensagemx + ""
Response.Write "
essa é sua mensagem
"
Response.Write Nomex & "
"
Response.Write Emailx & "
"
Response.Write Armazenax & "
"
%>
<%
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.From = Nomex
objNewMail.To = "tresdk4@hotmail.com"
objNewMail.Subject = "Mensagem da 3DK"
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!!!!!!
■Next Page
･Full Browser
pt.abc-yoga.podzone.org | Contact