<%Dim VarAct, VarStatus VarAct = request("act")%> TecnoarCondicionados.Com.Br - Manutenção Preventiva e Assistência Técnica de Ar Condicionados para Empresas e Residências

CONTATO

Fale Conosco

 

<% 'Se abriu pagina contato agora if VarAct="" then%>
Seu nome:
E-mail:
Telefone:
Celular
Endereço:
Bairro:
CEP:
Cidade:
Estado:
Equipamento:
Comentários:
 
<%else%> <% VarNome = request("nome") VarEmail = request("email") VarTelefone = request("telefone") VarCelular = request("celular") VarEndereco = request("endereco") VarBairro = request("bairro") VarCEP = request("CEP") VarPR = request("pr") VarCidade = request("cidade") VarEstado = request("estado") VarEquipamento = request("equipamento") VarHorario = request("horario") 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 & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "" Corpo = Corpo & "
Data/Hora: "& Now() &"

Nome: "& VarNome &"

E-mail: "& VarEmail &"

Telefone: "& VarTelefone &"

Celular: "& VarCelular &"

Endereço: "& VarEndereco &"

Bairro: "& VarBairro &"

CEP: "& VarCEP &"

Cidade: "& VarCidade &"

Estado: "& VarEstado &"

Equipamento: "& VarEquipamento &"

Observações: "& VarObs&"

" Corpo = Corpo & "" Dim CCliente CCliente="" CCliente=CCliente & "" CCliente=CCliente & "" CCliente=CCliente & "" CCliente=CCliente & "" CCliente=CCliente & "" CCliente=CCliente & "" CCliente=CCliente & "" CCliente=CCliente & "" CCliente=CCliente & "" CCliente=CCliente & "" CCliente=CCliente & "" CCliente=CCliente & "" CCliente=CCliente & "" CCliente=CCliente & "" CCliente=CCliente & "" Cliente=CCliente & "
 
 
Olá, Sr. (a) " & VarNome & "
 
Seu contato foi recebido com sucesso por nossa equipe.
Em breve entraremos em contato.
 
Tecnoar - Ar Condicionados
Serviço de Atendimento ao Consumidor - 11 3931-8026 / 3931-9118
" If VarDiaPreferido="" then VarTitulo="Tecnoar - Ar Condicionados / Confirmação de Contato" VarTitulo2="tecnoarcondicionados.com.br: Contato de: " else VarTitulo="Confirmação de Visita Técnica" VarTitulo2="site: tecnoarcondicionados.com.br: Confirmação de Visita Técnica de: " end if varEmailSistema="contato@tecnoarcondicionados.com.br" varSenhaSistema="temp2468" varEmailCliente=VarEmail 'email para o cliente Set Mailer = Server.CreateObject("Persits.MailSender") Mailer.Host = "mail04.hstbr.net" Mailer.username=varEmailSistema Mailer.password=varSenhaSistema Mailer.FromName = "Tecnoar - Ar Condicionados" Mailer.From = "contato@tecnoarcondicionados.com.br" Mailer.AddAddress varEmail ' Define o charset do e-mail para 'ISO 8859-1' 'Mailer.CharSet = 2 ' copia para a loja 'e-mail do destinatário(loja) ' Mailer.AddBCC "Abastec", "suporte@mididata.com.br" Mailer.Ishtml=true Mailer.Subject = VarTitulo Mailer.body = CCliente Mailer.Send If Err = 0 Then funcao_mail_html = 0 Else funcao_mail_html = 1 End if Set Mailer = Nothing 'email para a loja 'CRIA A INSTANCIA COM O OBJETO CDOSYS Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'CRIA A INSTANCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SERVIDOR DE SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail04.hstbr.net" 'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 'Utilização de SSl 'objCDOSYSCon.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'ATIVAR RECURSO DE SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'USU?RIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = varEmailSistema 'SENHA DO USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = varSenhaSistema 'TEMPO DE TIMEOUT (EM SEGUNDOS) objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon 'NOME DO REMETENTE, E-MAIL DO REMETENTE objCDOSYSMail.From = varEmailCliente 'NOME DO DESINATARIO, E-MAIL DO DESINATÁRIO objCDOSYSMail.To = varEmailSistema 'ASSUNTO DA MENSAGEM objCDOSYSMail.Subject = "Email do site tecnoarcondicionados.com.br" 'CONTEÚDO DA MENSAGEM 'objCDOSYSMail.TextBody = "Teste do componente CDOSYS - Texto sem HTML" 'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody objCDOSYSMail.HtmlBody = Corpo On Error Resume Next 'ENVIA A MENSAGEM objCDOSYSMail.Send If Err <> 0 Then VarStatus = "Erro ao enviar o email: " & Err.Description Else VarStatus = "Sua mensagem foi enviada com sucesso !" End If 'DESTR?I OS OBJETOS Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing %>
   
  <%=VarStatus%>
   
<%end if%>

 

 

Telefones de Contato:

 

11 3931-8026
11 3931-9118

Dias e Horários de Atendimento

Atendimento de Segunda-feira à Sábado em horário comercial.