<% If Request("Send") <> "" Then Mensagem = "" Mensagem = Mensagem &"" & vbcrlf Mensagem = Mensagem & ""& vbcrlf Mensagem = Mensagem & ""& vbcrlf Mensagem = Mensagem & ""& vbcrlf Set Mail = Server.CreateObject("Persits.MailSender") Mail.Username = "odontoagape@odontoagape.com.br" Mail.Password = "odonto01" Mail.Host ="mail.odontoagape.com.br" Mail.From = Request("Email") ' From address Mail.FromName = Request("Nome") ' optional Mail.AddAddress Request("To") Mail.Subject = "Contato" msg = "

Esta é uma Mensagem recebida do site www.odontoagape.com.br- Contato

Nome: " & request("nome")& "

Email: " & request("Email")& "

Telefone: (" & request("DDD")& ") " & request("Telefone")& "

Empresa: " & request("Empresa") & "

Assunto: " & request("Assunto") & "

Mensagem:
" & replace(request("Mensagem"), chr(13),"
") & "

" Mail.body = Mensagem & Msg Mail.IsHTML = True bSuccess = False On Error Resume Next Mail.Send ' send message If Err <> 0 Then ' error occurred response.write "" else %> <%End If End If %>

Nome
E-mail
Tel:
Empresa
Assunto
Mensagem