Compramos seu carro batido

<%if request("acao")="enviar" then nome= replace(trim(request.Form("nome")),"'","") email= replace(trim(request.Form("email")),"'","") telefone= replace(trim(request.Form("telefone")),"'","") mensagem= replace(trim(request.Form("mensagem")),"'","") teste = teste & "
Contato realizado através do site CCB

" teste = teste & "Nome: " & nome & "
" teste = teste & "e-mail: " & email & "
" teste = teste & "Telefone: " & telefone & "
" if mensagem <> "" then mm = replace(mensagem,chr(13),"
") end if teste = teste & "Mensagem: " & mm & "

" if email <> "" then sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") Dim meuservidorsmtp Dim minhacontaautenticada Dim minhasenhaparaenvio Dim emailorigem Dim emaildestino emailorigem = "site@compracarrobatido.com.br" meuservidorsmtp = "localhost" cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = meuservidorsmtp cdoConfig.Fields.Item(sch & "smtpserverport") = 25 cdoConfig.Fields.Item(sch & "smtpconnectiontimeout") = 30 cdoConfig.Fields.Item(sch & "sendusername") = minhacontaautenticada cdoConfig.Fields.Item(sch & "sendpassword") = minhasenhaparaenvio cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.BodyPart.Charset = "iso-8859-1" cdoMessage.From = emailorigem cdoMessage.To = "batidaoveiculos@gmail.com" cdoMessage.Subject = "Contato através do Site CCB" cdoMessage.HTMLBody = teste cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing end if%>

Mensagem enviada com sucesso. Em breve, entraremos em contato!

<%else %>

?acao=enviar#anc1">

Converse com nossa equipe. Melhor avaliação do mercado e pagamento à vista.

Enviar

<%end if%>