<% html = "" html = html & "" html = html & "" html = html & "Accounting Master" html = html & "" Response.Write html Dim sMsgErr '***** Executa as ações desta página ***** Sub ProcessaPagina() '***** Declaração das Variáveis ***** Dim Nome,Email,Telefone,Mensagem sEMail = "accounting@accountingmaster.com.br" '***** Obtém valores preenchidos no Formulário ***** Nome = Request.Form("Nome") Email = Request.Form("Email") Telefone = Request.Form("Telefone") Mensagem = Request.Form("Mensagem") '***** Monta corpo da mensagem a enviar por e-mail sBodyText = sBodyText & "Contato - Accounting Master" & vbCrLf & vbCrLf'corpo sBodyText = sBodyText & " " & vbCrLf 'corpo sBodyText = sBodyText & "Nome: " & Nome &vbCrLf 'corpo sBodyText = sBodyText & "Email: " & Email &vbCrLf 'corpo sBodyText = sBodyText & "Telefone: " & Telefone &vbCrLf 'corpo sBodyText = sBodyText & "Mensagem: " & Mensagem &vbCrLf 'corpo sBodyText = sBodyText & "----------------------------------------------" & vbCrLf 'corpo '***** Envia E-Mail para o destinatário ***** On Error Resume Next sMsgErr = "" Set Mail = Server.CreateObject("CDONTS.NewMail") Mail.From = "accounting@accountingmaster.com.br" ' Remetente da mensagem Mail.To = sEMail ' Destinatario da mensagem para Mail.Subject = "Accounting Master" 'assunto Mail.Body = sBodyText 'corpo da mensagem montada acima Mail.Send If Err > 0 Then sMsgErr = "Ocorreu o seguinte erro ao tentar enviar o e-mail: " & Err.Description End If On Error GoTo 0 End Sub '***** Executa as ações desta página ***** ProcessaPagina html = "" If (sMsgErr <> "") Then html = html & "" html = html & "
" html = html & " " html = html & " " html = html & "
" html = html & "



" & sMsgErr & "
" Else %> Accounting Master
" html = html & "




Obrigado por entrar em contato
Em breve retornaremos...



Voltar
<% End If html = html & "
" html = html & "
" html = html & "" html = html & "" Response.Write html %>