<% if Request.Form("botao") = "" then %>
Seu nome
Seu email
Mensagem
<% else Set oMail = Server.CreateObject("Persits.MailSender") oMail.Host = "mail.dominio.com.br" oMail.From = "contato@dominio.com.br" oMail.UserName = "contato@dominio.com.br" oMail.PassWord = "senha" oMail.FromName = Request.Form("nome") oMail.AddAddress "contato@dominio.com.br", "Página de contato" oMail.AddReplyTo Request.Form("email"), Request.Form("nome") oMail.Subject = "Contato pelo site" oMail.Body = Request.Form ("mensagem") oMail.Send If Err <> 0 Then Response.Write "

Ocorreu um erro: " & Err.Description & "

" else Response.Write("

Obrigado, seu e-mail foi enviado com sucesso!

") End If Set oMail = Nothing end if %>