Marina

Valeu!!! Agora já sei qual é o erro q esta apresentando no browser Server object error 'ASP 0177 : 800401f3' Server.CreateObject Failed /faleconosco/enviar.asp, line 14 na linha 14 apresenta .......... 'Cria o objeto set mailer = server.createobject("SMTPsvg.Mailer") Mailer.FromName = sNameFrom Mailer.FromAddress = sEmailFrom ................. é esse o erro q apresenta! mas ele esta correto, alguma sugestao? muito Obrigada!!! Ah! quanto a presença feminima, também obrigada! Gostei muito do site e estarei sempre visitanto.

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 %>