<%
' =================================================================
'
' WWW.BRASITES.COM.BR - HOSPEDAGEM COM LOJA VIRTUAL GRÁTIS
'
' C O N F I G U R A Ç Õ E S G E R A I S D A S U A L O J A
' Altere todos os dados que desejar
'
' I N D I C E
'
' 1. CONFIGURAÇÃO DE BANCO DE DADOS E TIPO DE CONEXÃO
' 2. CONFIGURAÇÃO DE FRETE
' 3. CONFIGURAÇÕES GERAIS
' 4. CONFIGURAÇÕES DO BOLETO BANCÁRIO
' 5. CONFIGURAÇÕES DAS CORES DA SUA LOJA
'
' =================================================================
VersaoDb = 2
StringdeConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../db/aa.mdb")
'#########################################################################################################
' 2. CONFIGURAÇÃO DE FRETE
'#########################################################################################################
'*** 2.1 ENTREGA NACIONAL OU ESTADUAL (VIA CORREIOS)
'## Colocar a Forma de Entrega dos pedidos via Sedex?
entrega_sedex="Sim" 'Deixe "Sim" ou "Nao"
seu_cep = "06114150" 'Digite o CEP de sua loja usando somente numeros
'## Você deseja testar Offline e sem Conexao Internet?
sem_calculo_online_SiteCorreios = "Nao"
'IMPORTANTE: Deixe "Sim" caso voce NÃO esteja conectado na Internet (para nao travar Calc. de Frete),
'pois o cálculo vem do site dos Correios, mas setando para "Sim" será colocado um valor fictício de R$ 10,00
'## Serviço Adicional dos Correios para entrega do pedido SOMENTE para o Cliente, digite "S" para ativar ou "N" para não ativar
mao_propria = "N"
'## Serviço Adicional dos Correios de Aviso de Recebimento da encomenda na casa do Cliente, digite "S" para ativar ou "N" para não ativar
aviso_recebimento = "N"
'## Serviço de Seguro do próprio Correios da encomenda do Cliente, digite "S" para ativar ou "N" para não ativar
cobrar_seguro_produto = "N"
'Obs 1: Quando o cliente opta por Sedex a Cobrar, este valor é cobrado obrigatoriamente pelos Correios
'Obs 2: O seguro é 1% do valor da compra
'## Colocar a Opção de Pagamento do pedido via Sedex a Cobrar?
entrega_sedex_a_cobrar="Nao" 'Deixe "Sim" ou "Nao"
'*** 2.2 ENTREGA REGIONAL (Via Motoboy, Tele-Entrega [com Carro próprio] ou similares que são cobrados Taxas Fixas)
'## Colocar a Forma de Entrega dos pedidos via Motoboy?
entrega_motoboy="Sim" 'Deixe "Sim" ou "Nao"
'## Descricao da Forma de Entrega dos pedidos a Domicilio
descricao_forma_entrega_motoboy = "Delivery" '(Por padrão está como Motoboy, mas pode ser outro como "Tele-Entrega" , etc...)
'## Tarifa para Entrega dos pedidos via Motoboy (se valor com CENTAVOS, digite COM PONTO - Exemplo: 4.50 )
tarifa_entrega_motoboy = 20.00
'## Descricao da Regiao da Entrega dos pedidos via Motoboy
descricao_regiao_entrega_motoboy = "Entrega para SP Capital, Osasco, Cotia: coloque a opção frete grátis"
'*** 2.3 ENTREGA PESSOAL (Via Download, Pessoalmente ou similares que NÃO são cobrados)
'## Colocar a Forma de Entrega com Frete Grátis?
entrega_download="Sim" 'Deixe "Sim" ou "Nao"
'IMPORTANTE: Caso deixe Sim, por questoes de logica DESATIVE as formas de entrega anteriores ( entrega_motoboy="Nao" e entrega_sedex="Nao")
'## Descricao da Forma de Entrega dos pedidos a Domicilio
descricao_forma_entrega_download = "Frete Grátis" '(Por padrão está como Frete Grátis, mas pode ser outro como "Pessoalmente" , etc...)
'## Tarifa para Entrega dos pedidos via Frte Grátis
tarifa_entrega_download = 0
'## Descricao da Regiao da Entrega dos pedidos via Frete Grátis
descricao_regiao_entrega_download = "Frete Grátis para SP Capital, Osasco e Cotia."
'---> ENCOMENDA NORMAL IMPLEMENTADO POR MATEUS MORAES (jusivansjc@yahoo.com.br)
'*** 2.4 ENCOMENDA NORMAL
'## Colocar a Forma de Entrega dos pedidos via Encomenda Normal?
entrega_encomenda="Nao" 'Deixe "Sim" ou "Nao"
'## Descrição da Forma de Entrega dos pedidos a Domicilio
descricao_forma_entrega_encomenda = "Encomenda Normal"
'## Configuração das Regiões para frete via Encomenda Normal (Modelo Padrão configurado para o PARANÁ - CAPITAL)
' 1. Configure o Estado em que sua loja se encontra para ZERO
' 2. Configure os demais Estados de acordo com o arq em anexo (ENCOMENDA_NORMAL.xls), ou pelas tabelas disponibilizadas
' pelos Correios: http://www.correios.com.br/servicos/precos_tarifas/nacionais/tar_encomenda_normal.cfm
' 3. Dê uma olhada em http://www.correios.com.br/servicos/precos_tarifas/nacionais/pdf/ENC_NORMAL_PR.pdf
' para entender melhor a configuração desse tipo de frete. No caso do Paraná, por ser LOCAL (conforme o PDF acima),
' ele leva o valor 0 no valor abaixo, os da 2a coluna leva o valor 1 e assim por diante
estado_sp = 0
estado_rs = 1
estado_sc = 1
estado_sp = 1
estado_go = 2
estado_mg = 2
estado_rj = 2
estado_ms = 2
estado_df = 3
estado_es = 3
estado_ba = 4
estado_mt = 4
estado_to = 4
estado_se = 5
estado_al = 5
estado_ro = 5
estado_ac = 6
estado_ma = 6
estado_pa = 6
estado_pe = 6
estado_pb = 6
estado_rn = 6
estado_ce = 7
estado_pi = 7
estado_ap = 7
estado_am = 8
estado_rr = 8
'###################################################################################
' 3. CONFIGURAÇÕES GERAIS
'###################################################################################
'## Escreva o nome do administrador da loja para suporte via Administrador
Seu_nome = "BRASITE"
'## Você deseja Usar Criptografia de 64 BITS em sua loja?
Cripto_Ativa = "Sim" 'Deixe "Sim" para usar ou então escreva "Nao"
'## Você deseja mostra 4, 6 ou 8 produtos no inicio da sua loja?
mostrar_produtos_fachada=8 'Digite 4 ou 6 ou 8
'## Você deseja colocar Destaque de Produto na página inicial? (produto aleatório)
mostrar_produto_destaque_fachada="Sim" 'Deixe "Sim" para usar ou então escreva "Nao"
'## Você deseja mostra qtos produtos por página (paginas Secoes e Pesquisa)?
mostrar_produtos_por_pagina_na_secao=12
'## Você deseja mostrar o aviso de estoque "Esgotado" automaticamente , qdo acabar o estoque do Produto?
'Se Sim, o produto ficará "Visível", mas aparecerá um aviso de estoque "Esgotado". Este aviso não aparecerá se o produto já estava com o status de "Não Visível"
'Se Nao, o produto ficará com o status de "Não Visível" ao público, qdo acabar o estoque do Produto.
mostrar_produto_esgotado="Nao" 'Deixe "Sim" ou "Nao"
'## Você deseja mostrar as Opções de Cartões de Creditos como Forma de Pgto?
mostrar_pgtos_com_cartoescredito="Nao" 'Deixe "Sim" para usar ou então escreva "Nao"
'## Você deseja limitar a compra de um produto conforme a qtidade Máxima fixada na área administrativa?
mostrar_limite_max_prod_compra="Nao" 'Deixe "Sim" ou "Nao"
'Em caso de Nao, pode acontecer de o cliente comprar mais do que tem no estoque, portanto poderá aparecer para o Administrador estoques "negativos"
'## Você deseja mostrar o Formulário para o Cliente solicitar por email produtos que estão como "Esgotados"?
mostrar_form_email_prod_esgotado="Sim" 'Deixe "Sim" para usar ou então escreva "Nao"
'## Você deseja mostrar o link de Política de Trocas no Quadro Atendimento?
mostrar_politica_de_trocas="Sim" 'Deixe "Sim" ou "Nao"
'## Nome da imagem da Logo da Loja (coloque dentro da Pasta /Imagens/ de cada linguagem)
arquivo_logo_loja="logo1.gif"
'## Dados da loja
Nome_da_sua_loja = "Grafcolor DigiEx"
CNPJ_da_sua_empresa = "061.103.313/0001-16"
Razao_Social = "A.O.Costa EPP"
Email_da_sua_loja = "oliveira@grafcolor.com.br"
Slogan_da_sua_loja = "Sua gráfica sem segredos."
Endereco_do_site = "www.grafcolor.com.br/lojafranquia"
'ATENÇÃO: Escreva o endereço virtual da sua loja sem o Http:// e sem o / no final
Endereco_da_sua_loja = "Rua Aristides Belline, 191"
Bairro_da_sua_loja = "Km 18 da Castelo Branco"
Cidade_da_sua_loja = "Osasco"
Estado_da_sua_loja = "S.Paulo"
Pais_da_sua_loja = "Brasil"
Telefone_da_sua_loja = "(0xx11)6822-5442"
'## Dados bancarios - Banco 1
Seu_banco = "Bradesco"
Sua_agencia = "127"
Sua_conta_corrente = "253890-3"
Nome_do_cedente = "A.O.Costa EPP"
'## Dados bancarios - Banco 2 ( 'Se nao for usar , deixe os 4 campos abaixo como "" )
Seu_banco2 = ""
Sua_agencia2 = ""
Sua_conta_corrente2 = ""
Nome_do_cedente2 = ""
'## Confirurações de e-mail
Host_da_loja = "mail.grafcolor.com.br" ' --> Se o componente usado for CDONTS deixe esse campo assim: "-"
'## Escolha o componente e desmarque o comentário
'Componente_usado = "AspEmail"
'Componente_usado = "AspMail"
'Componente_usado = "AspQmail"
Componente_usado = "CDOSYS"
'Componente_usado = "JMail"
'## Banners da Loja
Banner_AdMentor="Sim" '--> Coloque "Sim" se for usar Banners via Sistema Admentor, da Area Administrativa, ou deixe como ""
Banner_Fixo="" '--> Para usar um banner fixo, coloque o nome da imagem entre as aspas, coloque a imagem na pasta Banners e deixe Banner_AdMentor=""
'## Fonte da loja
Fontes_da_loja = "tahoma,verdana,arial,helvetica"
'## Dias para entrega dos pedidos
Dias_para_entrega = 6
'## Mostrar Quadro Linguagens na Loja
mostrar_quadro_linguagens="Nao" '--> 'Deixe "Sim" ou "Nao"
'## Mostrar Contador na Loja
mostrar_contador="Sim" '--> Coloque "Sim" se quiser mostrar
'## Tipo da Moeda Corrente
strLgMoeda = "R$" ' REAL - R$ - Brasil
strLgMoedax = "Reais" ' Nome da moeda no plural
'###################################################################################
' 5. CONFIGURAÇÕES DE PAGAMENTO VIA BRPAY
'###################################################################################
'## Você deseja colocar a opção BRpay como Forma de Pagamento?
brpay_aceitar_pagamentos = "Nao" 'Deixe "Sim" para usar ou então escreva "Nao"
brpay_email = "suporte@brasites.com.br" 'Seu email cadastrado na BRpay
brpay_moeda = "BRL" 'Tipo de moeda que o seu site trabalha. (BRL = Brasil Real)
brpay_token = "E49DE8DC0F68C7C427A3BDECCA39707F" 'Digite o seu Token cadastrado na BRpay. Você poderá recuperar/gerar seu Token, através
'do menu "Meus Dados >> Retorno Automático"
brpay_aceitar_cartao_credito = "Sim" 'Deixe "Sim" caso você aceite pagamentos por cartão de crédito
'através da BRpay, ou escreva "Nao" caso você não aceite pagamentos por cartão de crédito pela BRpay
brpay_tipo_calculo_frete = "1" 'Digite o tipo de cálculo de frete que você deseja que a BRpay calcule
'Você deverá configurar o tipo de cálculo de frete no menu "Meus Dados >> "Preferências Web e Frete"
'**** OPÇÕES ****
' "0" - Sem frete / frete grátis
' "1" - Cobre sempre o valor especificado no campo frete (para múltiplos itens será sempre cobrado o
' valor total do frete especificado no campo frete).
' "2" - Cobre o frete do item que tiver o maior valor de frete no carrinho de compras e para os itens
' restantes cobre um valor adicional por cada item extra. Cobrar por cada item extra: R$ ,
' "3" - Cobre por peso baseado na tabela dos Correios e no CEP informado pelo cliente. O cliente poderá
' optar por escolher entre pagar por Encomenda Normal ou Sedex.
'****************
brpay_tipo_frete = "" 'Digite o tipo de frete que você usa
'Você deverá configurar esta opção apenas se estiver utilizando na variável "brpay_tipo_calculo_frete"
'a opção número "3", e desejar sempre que a BRpay calcule por este tipo de frete
'**** OPÇÕES ****
' "" - O cliente poderá escolher o tipo de envio/frete
' "EN" - Sempre calcular o frete utilizando a opção de Encomenda Normal
' "SD" - Sempre calcular o frete utilizando a opção de Sedex
'****************
'###################################################################################
' 4. CONFIGURAÇÕES DO BOLETO BANCÁRIO
'###################################################################################
'## Você deseja colocar a opção Boleto como Forma de Pagamento?
mostrar_pagamento_por_boleto="Sim" 'Deixe "Sim" para usar ou então escreva "Nao"
'caminho_boleto = "boleto_hsbc.asp" ' use este caminho para utilizar o boleto do HSBC
'caminho_boleto = "boleto_bb1.asp" ' use este caminho para utilizar o boleto do BANCO DO BRASIL
caminho_boleto = "boleto_bradesco.asp" ' use este caminho para utilizar o boleto do BRADESCO
'caminho_boleto = "boleto_itau.asp" ' use este caminho para utilizar o boleto do ITAÚ
'## Informações bancárias referente ao seu Boleto ( Alguns campos são opcionais )
bol_nr_cedente="2000-5/159225-0" 'numero do seu codigo cedente (não é necessário para alguns bancos)
bol_agencia = "127" 'agencia
bol_dagencia = "9" 'digito da agencia (não é necessário para alguns bancos)
bol_conta = "253890" 'conta (não é necessário para alguns bancos)
bol_dconta = "3" 'digito da conta (não é necessário para alguns bancos)
bol_carteira = "25" 'código da carteira
bol_convenio = "" 'numero do seu convenio (não é necessário para alguns bancos)
bol_cedente = "Grafcolor Digital Express" 'Geralmente é o nome da loja e o nome do cedente no banco
'## Observações no Boleto ( Campos opcionas )
' Voce pode colocar alguma instrução para o cliente, por exemplo "Obrigado por comprar na Grafcolor digiEx, sua gráfica sem segredos"
obs_linha1 = "Para agilizar o seu atendimento, envie-nos um email após o pagamento para" ' Observação Linha 1
obs_linha2 = "sac@grafcolor.com.br informando o número do seu pedido (número do documento acima) e o banco usado para pagamento." ' Observação Linha 2
obs_linha3 = "EMBORA O PRAZO DE VENCIMENTO DESTE BOLETO SEJA PARA 06 DIAS, LEMBRE-SE O PRAZO DE ENTREGA DO SEU PEDIDO SÓ CONTARÁ APÓS A COMPROVAÇÃO DO PGTO." ' Observação Linha 3
obs_linha4 = "" ' Observação Linha 4
obs_linha5 = "A Grafcolor digiEx agradece o seu pedido." ' Observação Linha 5
'## Instruções ao Caixa do Banco (Por exemplo "Não Receber após o vencimento"
instr_linha1 = "PAGAR PREFERIVELMENTE NO BRADESCO" ' Instrucoes Linha 1
instr_linha2 = "NÃO ACEITAR APÓS VENCIMENTO" ' Instrucoes Linha 2
instr_linha3 = "" ' Instrucoes Linha 3
instr_linha4 = "" ' Instrucoes Linha 4
instr_linha5 = "" ' Instrucoes Linha 5
'###################################################################################
' 5. CONFIGURAÇÕES DAS CORES DA SUA LOJA
'###################################################################################
'Dica: Acesse o arquivo tabela_de_cores.asp para ver a Tabela de Cores e os respectivos códigos hexadecimais
'Cor do fundo na resolução 1024x768
Cor_de_fundo = "#ebefef"
'Cor principal da loja
Cor_principal = "#ffffff"
'Cor das linhas
Cor_das_linhas = "#cccccc"
'Cor da borda do contador de visitas
Cor_do_Contador = "#fcc701"
'Cor da barra de menu e copyright
Cor_do_menu = "#c0c0c0"
'Cor principal dos links
Cor_dos_links ="#000000"
'Cor secundaria dos links
Cor_dos_links_secundarios ="#808080"
'Cor do texto dos menus
Texto_dos_menus = "#ffffff"
'Cor do texto da loja
Texto_da_loja = "#000000"
'Cor da borda do carrinho de compras
Cor_da_borda_carrinho_de_compras = "#000000"
'Cor do texto do menu de navegacao de fechamento de compras
Cor_texto_menu_fechamento_compras = "#ff4500" 'Exemplo: #0000ff ou #ff4500
'##################################################################
'####################################################################
'
' NAO ALTERE ESSA PARTE, VOCÊ PODERÁ ESTRAGAR SUA LOJA !
'
'####################################################################
'Inicia as variaveis da Aplicação
application("razaoloja") = Razao_Social
application("nomeloja") = Nome_da_sua_loja
application("emailloja") = Email_da_sua_loja
application("slogan") = Slogan_da_sua_loja
application("urlloja") = Endereco_do_site
application("endereco11") = Endereco_da_sua_loja
application("bairro11") = Bairro_da_sua_loja
application("cidade11") = Cidade_da_sua_loja
application("estado11") = Estado_da_sua_loja
application("pais11") = Pais_da_sua_loja
application("fone11") = Telefone_da_sua_loja
application("CORREIOSseucep11") = seu_cep
application("CORREIOSmaop11") = mao_propria
application("CORREIOSaviso11") = aviso_recebimento
application("bancopag") = Seu_banco
application("contapag") = Sua_conta_corrente
application("pagpara") = Nome_do_cedente
application("agpag") = Sua_agencia
application("bancopag2") = Seu_banco2
application("contapag2") = Sua_conta_corrente2
application("pagpara2") = Nome_do_cedente2
application("agpag2") = Sua_agencia2
application("fonte") = Fontes_da_loja
application("maopropria") = Preco_da_mao_propria
application("diasentrega") = Dias_para_entrega
application("corfundo") = Cor_de_fundo
application("cor1") = Cor_das_linhas
application("cor2") = Cor_do_menu
application("cor3") = Cor_principal
application("cor4") = Cor_dos_links
application("cor5") = Cor_dos_links_secundarios
application("cor6") = Cor_do_Contador
application("fontebranca") = Texto_dos_menus
application("fontepreta") = Texto_da_loja
application("corborda") = Cor_da_borda_carrinho_de_compras
application("nomecontato") = Seu_nome
application("HostLoja") = Host_da_loja
application("ComponenteLoja") = Componente_usado
application("Cripto_Ativa") = Cripto_Ativa
'>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<
Server.ScriptTimeOut = 60 '*** Evite usar mais do que 60 segundos
application("vsversao") = "OPEN 3.0 - Pack 5"
application("ultimaatualizacao") = "Sexta, 07 de Maio de 2006"
application("link_comunidade") = ""
set abredb = Server.CreateObject("ADODB.Connection")
abredb.Open(StringdeConexao)
'>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<
'Executa a função GLOBAL
set rsglobal = abredb.execute("SELECT * FROM compras Order by idcompra desc")
if rsglobal.eof then
Session("orderID") = ""
end if
rsglobal.close
set rsglobal = nothing
if Session("orderID") = "" then
set rs = abredb.execute("SELECT * FROM compras Order by idcompra desc")
if rs.eof then
Session("orderID") = 1
abredb.Execute("INSERT INTO compras (idcompra, datacompra, status) values ('" &session("orderID") & "', '" & date & "', 'Compra em Aberto')")
else
Session("orderID") = rs("idcompra") + 1
abredb.Execute("INSERT INTO compras (idcompra, datacompra, status) values (" &session("orderID") & ", '" & date & "','Compra em Aberto')")
end if
session.timeout = 120
else
end if
'###################################################################################
'## ARQUIVOS DE LINGUAGEM DA LOJA
'###################################################################################
'###################################################################################
'### Mostra a linguagem padrão dependendo do navegador
'###################################################################################
IF Escolha <> "" then
Response.Cookies("VirtuaStore").Expires = DateAdd("d",365,date()) 'VENCE NO PROXIMO ANO
Response.Cookies("VirtuaStore")("Linguagem") = Escolha
End IF
IF Request("Lan") <> "" THEN
Response.cookies("VirtuaStore")("Linguagem")= ""
Response.cookies("VirtuaStore")("Linguagem")= Request("Lan")
END IF
strReporLingua = "?"&replace(replace(replace(replace(replace(Request.ServerVariables("Query_String") ,"&Lan=Espanol",""),"&Lan=Portugal",""),"&Lan=Brasil",""),"&Lan=English","")," ","")
strReporLingua = "?"&replace(replace(replace(replace(replace(Request.ServerVariables("Query_String") ,"Lan=Espanol",""),"Lan=Portugal",""),"Lan=Brasil",""),"Lan=English","")," ","")
SELECT CASE Request.cookies("VirtuaStore")("Linguagem")
CASE "Brasil"
dirlingua = "linguagens/portuguesbr"
OpcaoLingua = "
"&_
"
"&_
"
"
%><%
CASE "English"
dirlingua = "linguagens/ingles"
OpcaoLingua = "
"&_
""&_
""
%><%
CASE "Portugal"
dirlingua = "linguagens/portuguespt"
OpcaoLingua = ""&_
""&_
""
%><%
CASE "Espanol"
dirlingua = "linguagens/espanhol"
OpcaoLingua = ""&_
""&_
""
%><%
CASE ELSE
'-----------------------------------------------------------------
'### BRASIL
'-----------------------------------------------------------------
IF Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") = "pt-br" THEN
dirlingua = "linguagens/portuguesbr"
OpcaoLingua = ""&_
""&_
""
%><%
'-----------------------------------------------------------------
'### PORTUGAL
'-----------------------------------------------------------------
ELSEIF Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") = "pt" THEN
dirlingua = "linguagens/portuguespt"
OpcaoLingua = ""&_
""&_
""
%><%
'-----------------------------------------------------------------
'### ESPANHOL
'-----------------------------------------------------------------
ELSEIF Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") = "es" THEN
dirlingua = "linguagens/espanhol"
OpcaoLingua = ""&_
""&_
""
%><%
'-----------------------------------------------------------------
'### INGLES TB PODE SER US
'-----------------------------------------------------------------
ELSE
dirlingua = "linguagens/portuguesbr"
OpcaoLingua = ""&_
""&_
""
%><%
END IF
END SELECT
OpcaoLingua=replace(OpcaoLingua,"?&","?")
OpcaoLingua=replace(OpcaoLingua,"&&","&")
'###################################################################################
'if aaaa="" then '*** Ativar
if aaaa<>"" then '*** Desativar
response.write ""
response.write "
Testando as sessoes...
"
response.write "
modo_entrega: "&session("modo_entrega")
response.write "
usuario: "&session("usuario")
response.write "
orderID: "&Session("orderID")
response.write "
pedido1: "&Session("pedido1")
response.write "
PesoTotalValor: "&session("PesoTotalValor")
response.write "
sql: "&session("sql")
response.write "
sql_max: "&session("sql_max")
response.write "
dados_gravados_compra: "&session("dados_gravados_compra")
response.write ""
end if
%>