<% html = "" html = html & "" html = html & "" html = html & " ..:: ‡ INCASIL CARROCERIAS ‡::.. " 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,Assunto,Mensagem sEMail = "incasil@argon.com.br" '***** Obtém valores preenchidos no Formulário ***** Nome = Request.Form("Nome") Email = Request.Form("Email") Telefone = Request.Form("Telefone") Assunto = Request.Form("Assunto") Mensagem = Request.Form("Mensagem") '***** Monta corpo da mensagem a enviar por e-mail sBodyText = sBodyText & " ..:: ‡ INCASIL CARROCERIAS ‡::.. " & 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 & "Assunto: " & Assunto &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 = "incasil@argon.com.br" ' Remetente da mensagem Mail.To = sEMail ' Destinatario da mensagem para Mail.Subject = " ..:: ‡ INCASIL CARROCERIAS ‡::.. CONTATO " '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 & "
" html = html & "



" & sMsgErr & "
" Else %> <% End If html = html & "

" html = html & "
" html = html & "" html = html & "" Response.Write html %> ..:: ‡ INCASIL CARROCERIAS ‡::..

Incasil Carrocerias

Sua mensagem foi enviada com sucesso!
Em breve retornaremos

Voltar

Centro Paulista Web & Marketing