Home
Quem Somos
Serviços
AVCB
Barrilete/Prumada de Incêndio
CIPA
Central de Alarme de Incêndio
Curso de Brigada de Incêndio
Elétrica/Hidráulica
Impermeabilização Predial
PCMSO
Piscinas
PPRA
Retrofit - Reformas em Geral
SPDA
Teste de Estanqueidade
Limpeza de Caixa D'água
Laudo de Análise Ar Condicionado
Laudo de Termografia Elétrica
Gestão Predial Web
Software
Vantagens
Tecnologia
Unidades
Contato
Contato
PRECISA DE SUPORTE OU INFORMAÇÕES? FALE CONOSCO!
<% If Not IsEmpty(Request.Form) Then Mensagem = "
Nome:
" & Trim(Request.Form("Campo1")) & "
" Mensagem = Mensagem & "
Condomínio/Empresa:
" & Trim(Request.Form("Campo2")) & "
" Mensagem = Mensagem & "
Email:
" & Trim(Request.Form("Campo3")) & "
" Mensagem = Mensagem & "
Telefone:
" & Trim(Request.Form("Campo4")) & "
" Mensagem = Mensagem & "
Assunto:
" & Trim(Request.Form("Campo7")) & "
" Mensagem = Mensagem & "
Mensagem:
" & Trim(Request.Form("Campo8")) & "
" Mensagem = Mensagem & "
IP:
" &request("REMOTE_ADDR") Set objMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.agxconsultoria.com.br" objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="atendimento@agxconsultoria.com.br" objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="ax87agb50$" objCDOSYSCon.Fields.update Set objMail.Configuration = objCDOSYSCon objMail.From = "atendimento@agxconsultoria.com.br" objMail.To = "atendimento@agxconsultoria.com.br" objMail.ReplyTo = Trim(request.form("campo3")) objMail.Subject = "Contato Via Site" objMail.HTMLBody = Mensagem objMail.Send Set objMail = Nothing Set objCDOSYSCon = Nothing %>
Seu Email foi enviado!
Obrigado, em breve
retornaremos o contato.
< Voltar
<% Else %>
Nome
Condomínio/Empresa
Email
Telefone
Assunto
Mensagem
<% End If %>