Para
saber os Preços dos nossos PRODUTOS no Atacado e Varejo, envie uma
mensagem ou entre em contato pelo FONE (19) 3831 4710
<%
if(request("Send")="Enviar") then
Dim Mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.IsHTML = False
' dados para autenticacao no servidor SMTP
Mail.Host = "localhost"
Mail.Username = "mbianchi@mbianchi.com.br"
Mail.Password = "manlio2008"
' email de origem
Mail.From = Request.Form("fromemail")
Mail.FromName = Request.Form("FromName")
Mail.AddAddress "mbianchi@mbianchi.com.br"
Mail.Subject = Request.Form("Subject")
Mail.Body = Request.Form("Body")
On Error Resume Next
' enviar email
Mail.Send
' codigo opcional para exibir mensagem de sucesso ou nao ao enviar o email
If Err <> 0 Then
Response.Write "
Ocorreu um erro: " & Err.Description & "
"
End If
If Err = 0 Then
'Response.Write("
Obrigado, seu e-mail foi enviado com sucesso!
")
Response.Redirect "confirmacao.asp"
End If
Set Mail = Nothing
end if
%>
Faltou
alguma informação? Sua opinião é muito
importante... Fale Conosco!!!
Qualquer
informação que desejar, enviaremos ou entraremos em contato
para lhe informar. Para melhor atende-lo, deixe seu telefone de contato