Não estou conseguindo enviar o formulario, não sei onde esta o erro.
No browser apresenta "A pg não pode ser exibida" "Há um problema com a página que você está tentando acessar e ela não pode ser exibida."
Tem um detalhe..... uso um provedor, so q esse formulario quero q o meu e-mail do hotmail receba, sera q tem alguma restriçao quanto a isso no envio?
alguém sabe onde possa estar errado no meu script?
Agradeço desde já!!!!! Obrigada!!!!
<%
'Declarando variveis
Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto
'Pegando os dados digitados nos campos e colocando em variaveis
sNameFrom = Request.Form("nome")
sEmailFrom = Request.Form("email")
sEmailTo = [b]"EMAIL PARA ONDE SERA ENVIADO O FORMULARIO"[/b]
sNameTo = "Formulario"
sText = Request.Form("mensagem")
sAssunto = Request.Form("assunto")
'Cria o objeto
set mailer = server.createobject("SMTPsvg.Mailer")
Mailer.FromName = sNameFrom
Mailer.FromAddress = sEmailFrom
'Host para envio de emails
Mailer.RemoteHost = [b]"SMTP DO MEU PROVEDOR"[/b]
Mailer.AddRecipient sNameTo, sEmailTo
Mailer.Subject = sAssunto & " - E-mail"
'Montar texto para envio
strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf
strMsgFooter = sText
Mailer.BodyText = strMsgHeader & strMsgFooter
' Se for enviado redirecionar para obrigado.asp
if Mailer.SendMail then
Response.Redirect "obrigado.asp"
else
' Se não for enviado mostra o erro que ocoreu
Response.Write ("Ocorreu um erro.")
Response.Write ("O Erro é " & Mailer.Response)
end if
%>
Pergunta
Marina
Olá!!!
Não estou conseguindo enviar o formulario, não sei onde esta o erro.
No browser apresenta "A pg não pode ser exibida" "Há um problema com a página que você está tentando acessar e ela não pode ser exibida."
Tem um detalhe..... uso um provedor, so q esse formulario quero q o meu e-mail do hotmail receba, sera q tem alguma restriçao quanto a isso no envio?
alguém sabe onde possa estar errado no meu script?
Agradeço desde já!!!!! Obrigada!!!!
<% 'Declarando variveis Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto 'Pegando os dados digitados nos campos e colocando em variaveis sNameFrom = Request.Form("nome") sEmailFrom = Request.Form("email") sEmailTo = [b]"EMAIL PARA ONDE SERA ENVIADO O FORMULARIO"[/b] sNameTo = "Formulario" sText = Request.Form("mensagem") sAssunto = Request.Form("assunto") 'Cria o objeto set mailer = server.createobject("SMTPsvg.Mailer") Mailer.FromName = sNameFrom Mailer.FromAddress = sEmailFrom 'Host para envio de emails Mailer.RemoteHost = [b]"SMTP DO MEU PROVEDOR"[/b] Mailer.AddRecipient sNameTo, sEmailTo Mailer.Subject = sAssunto & " - E-mail" 'Montar texto para envio strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf strMsgFooter = sText Mailer.BodyText = strMsgHeader & strMsgFooter ' Se for enviado redirecionar para obrigado.asp if Mailer.SendMail then Response.Redirect "obrigado.asp" else ' Se não for enviado mostra o erro que ocoreu Response.Write ("Ocorreu um erro.") Response.Write ("O Erro é " & Mailer.Response) end if %>Link para o comentário
Compartilhar em outros sites
7 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.