Projeto Ave Dourada

<% Dim strNome Dim strEmail Dim strComentarios Dim strEnviar Dim mailer Dim strBody Dim strStatus strNome=Left(UCase(Request.Form("txtNome")),60) strFone=Left(Request.Form("txtFone"),60) strEmail=Trim(Left(LCase(Request.Form("txtEmail")),60)) strComentarios=Request.Form("txtComentarios") strEnviar=Trim(Request.Form("cmdEnviar")) strBody = "-----------------------------------------------------------------" & vbCrLf strBody = strBody & " DADOS DO FORMULÁRIO : " & vbCrLf strBody = strBody & "-----------------------------------------------------------------" & vbCrLf strBody = strBody & " Nome.......: " & strNome & vbCrLf strBody = strBody & " e-mail.......: " & strEmail & vbCrLf strBody = strBody & "-----------------------------------------------------------------" & vbCrLf strBody = strBody & strComentarios If strEnviar="enviar" Then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = strNome Mailer.FromAddress= strEmail Mailer.RemoteHost = "localhost" Mailer.AddRecipient "Projeto Ave Dourada", "renatoslcosta@hotmail.com" Mailer.Subject = "Contato Site Ave Dourada" Mailer.BodyText = strBody Mailer.SendMail Set Mailer = Nothing strStatus="Mensagem enviada com sucesso!" End If %> Projeto Ave Dourada

O Projeto Ave Dourada encontra-se temporariamente inativo.

Para contato preencha o formulário ao lado.

Atenciosamente,

Equipe Ave Dourada.