Formulário de Contato
<% if (Request.Form("txtNome") <> "") Then Dim objMail Set objMail = Server.CreateObject("SMTPsvg.Mailer") objMail.RemoteHost = "smtp.cartorioviamopolis.com.br" objMail.FromName = Request.Form("txtNome") objMail.FromAddress = Request.Form("txtEMail") objMail.AddRecipient "Cartório Viamopólis", "contato@cartorioviamopolis.com.br" objMail.Subject = "Contato do Site" objMail.BodyText = "Nome: " & Request.Form("txtNome") & VbCrLf & "Empresa: " & Request.Form("txtEmpresa") & VbCrLf & "E-Mail: " & Request.Form("txtEmail") & VbCrLf & "Telefone: " & Request.Form("txtTelefone") & VbCrLf & "Cidade: " & Request.Form("txtCidade") & " - " & Request.Form("selEstado") & VbCrLf & "Assunto: " & Request.Form("txtassunto") & VbCrLf & "Mensagem: " & Request.Form("txtMensagem") If objMail.SendMail Then Response.Write "

Sua mensagem foi enviada com sucesso!


" Else Response.Write "

Erro no envio de e-mail: " & objMail.Response & vbcrlf & "Tente novamente mais tarde.


" End If Set objMail = Nothing end if %>
* Nome:
Empresa:
* E-mail:
*Telefone:
Cidade:
Estado:
* Assunto:
*Mensagem:
  * Campos Obrigatórios