<%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

visita tÉCNICA

Agendamento

 

<% 'Se abriu pagina contato agora if VarAct="" then%>
Seu nome:
E-mail:
Telefone:
Celular
Endereço:
Bairro:
CEP:
Cidade:
Estado:
Equipamento:
Dia Preferido:
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") VarDiaPreferido = request("theDate2") VarDefeito = request("defeito") 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 & "" 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 &"

Defeito apresentado: "& VarDefeito &"

Dia Preferido: "& VarDiaPreferido &"

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 & "
 
Sua solicitação de visita técnica foi recebida com sucesso.
Em breve entraremos em contato.
 
Tecnoar - Ar Condicionados
Serviço de Atendimento ao Consumidor - 11 2639-5344 / 2639-5283
" If VarDiaPreferido="" then VarTitulo="Tecnoar - Ar Condicionados / Confirmação de Visita" VarTitulo2=" Visita Tecnica de: " else VarTitulo="Confirmação de Visita Técnica" VarTitulo2="Visita Técnica de: " end if Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail") Mailer.FromName = "Tecnoar - Ar Condicionados" Mailer.FromAddress = "contato@tecnoarcondicionados.com.br" Mailer.RemoteHost = "localhost" Mailer.AddRecipient "", 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.Subject = VarTitulo Mailer.HtmlText = CCliente Mailer.SendMail If Err = 0 Then funcao_mail_html = 0 Else funcao_mail_html = 1 End if Set Mailer = Nothing Set Mail = Server.CreateObject("Persits.MailSender") 'Servidor de SMTP Mail.Host = "localhost" 'E-mail do remetente Mail.From = VarEmail 'Remetente Mail.FromName = VarNome Mail.AddAddress "contato@tecnoarcondicionados.com.br" 'Assunto da mensagem Mail.Subject = VarTitulo2 & 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 VarStatus = "Erro ao enviar o email: " & Err.Description Else VarStatus = "Sua solicitação foi enviada com sucesso !" End If %>
   
  <%=VarStatus%>
   
<%end if%>

 

 

Sobre a Visita Técnica:

Profissionais de prontidão para solicitações de Instalação de Ar Condicionado, Manutenção Preventiva de Ar Condicionado, Vistoria de Ar Condicionado, Assistência Técnica de Ar Condicionado.

Dias e Horários

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