<%@ language=vbscript %> <% Option Explicit On Error Resume Next Response.Buffer = True %> <% function SoNumero(strAux ) Dim i , j , str str = strAux j = "" For i = 1 to Len(str) If Asc(Mid(str, i, 1)) < 48 Or _ Asc(Mid(str, i, 1)) > 57 Then Else j = j & Mid(str, i, 1) End If Next SoNumero= j end function function montarHorario (str) Dim aux if trim(str) = "" then aux = "Fechado" else aux = trim(str) end if montarHorario = aux end function function replaceHttp (str) Dim aux aux = lCase(trim(str)) aux = replace(aux," ","") aux = replace(aux," ","") aux = replace(aux,"http://","") aux = replace(aux,"https://","") aux = replace(aux,"http:/","") aux = replace(aux,"https:/","") aux = replace(aux,"http","") aux = replace(aux,"https","") replaceHttp = trim(aux) end function function replaceMascara (str) Dim aux aux = replace(str,"(","") aux = replace(aux,")","") aux = replace(aux,"-","") aux = replace(aux," ","") aux = replace(aux,"_","") aux = replace(aux,"/","") aux = replace(aux,"|","") replaceMascara = aux end function function formataTelefone(numero) Dim aux aux = trim(replaceMascara(numero)) aux = replace(aux," ","") if len(aux) = 10 then if left(aux,4) <> "0800" and left(aux,4) <> "0900" then aux = "("&left(aux,2)&") "&mid(aux, 3, 4)&"-"&right(aux, 4) else aux = left(aux,4)&"-"&mid(aux, 5, 6) end if end if if len(aux) = 11 then if left(aux,4) <> "0800" and left(aux,4) <> "0900" then aux = "("&left(aux,2)&") "&mid(aux, 3, 1)&" "&mid(aux, 4, 4)&"-"&right(aux, 4) else aux = left(aux,4)&"-"&mid(aux, 5, 7) end if end if formataTelefone = aux end function function removerIframeMaps (str) dim aux aux = trim(str) aux = replace(aux,"","") aux = replace(aux,"width=""400""","") aux = replace(aux,"width=""600""","") aux = replace(aux,"width=""800""","") aux = replace(aux,"width=""560""","") aux = replace(aux,"height=""300""","") aux = replace(aux,"height=""315""","") aux = replace(aux,"height=""450""","") aux = replace(aux,"height=""600""","") aux = replace(aux,"height=""560""","") aux = replace(aux,"frameborder=""0""","") aux = replace(aux,"style=""border:0""","") aux = replace(aux,"allow=""autoplay; encrypted-media""","") aux = replace(aux,"width='400'","") aux = replace(aux,"width='600'","") aux = replace(aux,"width='800'","") aux = replace(aux,"width='560'","") aux = replace(aux,"height='300'","") aux = replace(aux,"height='315'","") aux = replace(aux,"height='450'","") aux = replace(aux,"height='600'","") aux = replace(aux,"height='560'","") aux = replace(aux,"frameborder='0'","") aux = replace(aux,"style='border:0'","") aux = replace(aux,"allowfullscreen>","") aux = replace(aux,"allowfullscreen","") aux = replace(aux,"fullscreen","") aux = replace(aux,"allow='autoplay; encrypted-media'","") aux = replace(aux,"allow","") aux = replace(aux,"autoplay;","") aux = replace(aux,"autoplay","") aux = replace(aux,"encrypted-media","") aux = replace(aux,"encrypted","") aux = replace(aux,"""","") aux = replace(aux,"'","") aux = replace(aux,">","") aux = replace(aux,"<","") aux = replace(aux,"<","") aux = replace(aux," ","") aux = replace(aux," ","") aux = trim(aux) removerIframeTube = aux end function telefone1 = SoNumero(telefone1) telefone2 = SoNumero(telefone2) celular1 = SoNumero(celular1) celular2 = SoNumero(celular2) whatsapp = SoNumero(whatsapp) %> <%=title%>
<%if trim(enderecoImgProd1) <> "" then%> <%end if%>

Descrição do negócio

<%=descricaoNegocio%>

Iniciar conversa <%if enderecoEmpresaMaps <> "" then%> Como chegar? <%end if %>

Nossos contatos

Telefone

<%if trim(telefone1) <> "" then%>

<%end if%> <%if trim(telefone2) <> "" then%> <%end if%> <%if trim(celular1) <> "" then%> <%end if%> <%if trim(celular2) <> "" then%> <%end if%>

<%if trim(whatsapp) <> "" then%>
WhatsApp

<%if trim(whatsapp2) <> "" then%> <%end if%>

<%end if%> <%if endereco <> "" or cidade <> "" then%>
Endereço
<%if endereco <> "" then%> <%if enderecoEmpresaMaps <> "" then%>

<%=endereco%>

<%else%>

<%=endereco%>

<%end if %> <%else%>

<%=cidade%>

<%end if%>
<%end if%> <%if trim(facebookLink) <> "" or trim(emailCliente) <> "" or trim(siteCliente) <> "" then%>
Demais contatos

<%if trim(facebookLink) <> "" then%>

<%end if%> <%if trim(emailCliente) <> "" then%>
<%=emailCliente%>
<%end if%> <%if trim(emailCliente2) <> "" then%>
<%=emailCliente2%>
<%end if%> <%if trim(siteCliente) <> "" then%> <%end if%>

<%end if%>
  <%if trim(horarioSegunda) <> "" or trim(horarioTerca) <> "" or trim(horarioSexta) <> "" or trim(horarioSabado) <> "" then%>


Horário de Atendimento

Segunda-feira:
     <%=montarHorario(horarioSegunda)%>
Terça-feira:
     <%=montarHorario(horarioTerca)%>
Quarta-feira:
     <%=montarHorario(horarioQuarta)%>
Quinta-feira:
     <%=montarHorario(horarioQuinta)%>
Sexta-feira:
     <%=montarHorario(horarioSexta)%>
Sábado:
     <%=montarHorario(horarioSabado)%>
Domingo:
     <%=montarHorario(horarioDomingo)%>
<%end if%> <%if dinheiro or cartaoCredito or cartaoDebito or boletoBancario or convenio or cheque then%>


Meios de pagamentos


<%if dinheiro = true then%> | Dinheiro <%end if%> <%if boletoBancario= true then%> | Boleto <%end if%> <%if crediarioProprio then%> | Crediário <%end if%> <%if convenio then%> | Convênio <%end if%> <%if financiamento then%> | Financiamento <%end if%> <%if cartaoCredito then%> | Cartão de crédito <%end if%> <%if cartaoDebito then%> | Cartão de débito <%end if%> <%if cartaoAlimentacao then%> | Cartão alimentação <%end if%> <%if cartaoRefeicao then%> | Cartão refeição <%end if%> |


<%end if%>
<% if telefone1 = "" then telefone1 = celular1 end if %>

Ficou interessado?

Então fale conosco agora!

Ligar Agora Iniciar conversa

Logo Cerne Digital

Criação de Sites e Anúncios no Google para Micro e Pequenas Empresas.

Solicite nossos serviços:
Anunciar no Google   |   Criar meu site


WhatsApp