<%@ Page Language="VB" AutoEventWireup="false" CodeFile="contato.aspx.vb" Inherits="contato" %> <%@ Import Namespace="System" %> <%@ Import Namespace="System.Web.Mail" %> <% Dim strPara As String Dim strDe As String Dim strtexto As String Dim strNome As String Dim strMensagem As String Dim strEmail As String strPara = "atendimento@casadocrador.com.br" strDe = Request.Form("atendimento@casadocrador.com.br") strNome = Request.Form("nome") strMensagem = Request.Form("mensagem") strEmail = Request.Form("email") strtexto = "Nome: " + strNome + vbCrLf + "Email: " + strEmail + vbCrLf "Mensagem: " + strMensagem SmtpMail.Send("atendimento@casadocrador.com.br", strPara, strEmail, strtexto) Response.Redirect("index.html") %>