Porquê nos contratar

Solicitar visita

Sem compromisso

<%Dim VarAct VarAct = request("act") If VarAct="" then%>

Solicite uma visita para obter informações sobre a metodologia aplicada ao processo de inventário, sobre o equipamento utilizado, como deve ser a preparação, entre outros.

Nome:
Email:
Telefone
Endereço Completo:
CEP:
Cidade:
Estado:
Assunto:
Mensagem

<%else%> <% VarNome = request("nome") VarEmail = request("email") VarTelefone = request("telefone") VarEndereco = request("endereco") VarCEP = request("cep") VarCidade = request("cidade") VarEstado = request("estado") VarAssunto = request("assunto") VarObs = request("obs") Corpo = "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "

Data/Hora:	"& Now() &"

Nome:	"& VarNome &"

E-mail:	"& VarEmail &"

Telefone:	"& VarTelefone &"

Endereço:	"& VarEndereco &"

CEP:	"& VarCep &"

Cidade:	"& VarCidade &"

Estado:	"& VarEstado &"

Estado:	"& VarAssunto &"

Mensagem:	"& VarObs&"

" Corpo = Corpo & "" Set Mail = Server.CreateObject("Persits.MailSender") 'Servidor de SMTP Mail.Host = "mail04.hstbr.net" mail.Username = "atendimento@webinventarios.com.br" mail.Password = "temp2468" 'E-mail do remetente Mail.From = VarEmail 'Remetente Mail.FromName = VarNome Mail.AddAddress "atendimento@webinventarios.com.br" 'Assunto da mensagem Mail.Subject = "Contato recebido do site de "& VarNome 'Corpo da mensagem Mail.Body = Corpo 'Utilize este código caso o formato do e-mail seja HTML Mail.IsHTML = True 'Utilize este código caso for enviar anexo. 'Mail.AddAttachment("E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\o-arquivo"), On Error Resume Next Mail.Send If Err <> 0 Then MsgEnvio = "Erro ao enviar o email: " & Err.Description Else MsgEnvio = "Sua mensagem foi enviada com sucesso. Em breve entraremos em contato." End If %>

<%=MsgEnvio%>

<%end if%>

Telefone: 11 3104-5608
E-mail: atendimento@webinventarios.com.br
Endereço: Rua Morais Madureira, 23 Pirituba, CEP:02977-030-São Paulo-SP