<% strTextoHtml = strTextoHtml & "
Bem-vindo "&Session("NOME")&", a administração da "& nomeloja &"

" strTextoHtml = strTextoHtml & "
" strTextoHtml = strTextoHtml & "

Estatísticas da loja virtual " & nomeloja & "
Esté o seu acesso nº "&Session("Acesso")&" , último acesso em " if Session("UltAcesso") = "" then Response.Write date() else strTextoHtml = strTextoHtml & Session("UltAcesso") &" hs" end if strTextoHtml = strTextoHtml & "

" strTextoHtml = strTextoHtml & "

" Set contacompra = conexao.Execute("SELECT count(pedido) AS totalcomp FROM compras WHERE status <> 'Compra em Aberto';") Set contacli = conexao.Execute("SELECT count(nome) AS totalcli FROM clientes;") Set ultimocli = conexao.Execute("SELECT last(datacad) AS totalcli FROM clientes;") Set ultimacompra = conexao.Execute("SELECT last(datacompra) AS totalcomp FROM compras WHERE status <> 'Compra em Aberto';") Set contapro = conexao.Execute("SELECT count(nome) AS totalpro FROM produtos;") strTextoHtml = strTextoHtml & "  Foram feitas " & contacompra("totalcomp") & " compras.
" strTextoHtml = strTextoHtml & "  A loja possui " & contacli("totalcli") & " clientes cadastrados.
Média de " & FormatNumber((contacompra("totalcomp")/contacli("totalcli")), 2) & " compra(s) por cliente
" strTextoHtml = strTextoHtml & "  O último cliente se cadastrou em " & ultimocli("totalcli") & ".
" strTextoHtml = strTextoHtml & "  A última compra foi efetuada em " & ultimacompra("totalcomp") & "
" strTextoHtml = strTextoHtml & "  A loja possui " & contapro("totalpro") & " produtos à venda.
" 'strTextoHtml = strTextoHtml & "  Produtos disponiveis: " & contaprodi("totaldi") & "
  Produtos esgotados: " & contaproes("totales") & "
Atenção: " & contaprope("totalpe") & " produto(s) com menos de 3 unidades em estoque

" Set contaproes = conexao.Execute("SELECT count(nome) AS totales FROM produtos WHERE estoque = 'n';") Set contaprodi = conexao.Execute("SELECT count(nome) AS totaldi FROM produtos WHERE estoque = 's';") Set contaprope = conexao.Execute("SELECT count(idestoque) AS totalpe FROM estoque WHERE estoque <= 3;") strTextoHtml = strTextoHtml & "  Produtos disponiveis: " & contaprodi("totaldi") & "
  Produtos não disponíveis: " & contaproes("totales") & "
" if contaprope("totalpe") >0 then strTextoHtml = strTextoHtml & "
Atenção:   " & contaprope("totalpe") & " produto(s) com menos de 3 unidades em estoque
" end if strTextoHtml = strTextoHtml & "

" 'strTextoHtml = strTextoHtml & "

" strTextoHtml = strTextoHtml & "

" Set Conn= Server.CreateObject("adodb.connection") Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("chat/LiveSupport.mdb") SQl = "select * from tblSettings where Online = '0'" set Rs = Conn.execute(SQL) if Rs.eof then '*** Para aparecer a imagem de Atendimento "Online" strTextoHtml = strTextoHtml & " O seu Status de Atendimento Online via Chat está
Online

" strTextoHtml = strTextoHtml & "Atenção: Caso não haja ninguém logado no Sistema de Atendimento Online
para atender 'online' os clientes do site, altere o seu Status para Offline

" else '*** Atendimento "Offline" >>> Ative se vc quiser que avise que nao em ninguem "Online" strTextoHtml = strTextoHtml & " O seu Status de Atendimento Online via Chat está
Offline

" end if set rs = nothing set atend = nothing strTextoHtml = strTextoHtml & "Dados da sua loja virtual ...

" strTextoHtml = strTextoHtml & "Nome Fantasia:" & nomeloja & "" strTextoHtml = strTextoHtml & "Razão social:" & Application("razaoloja") & "" strTextoHtml = strTextoHtml & "Endereço:" & endereco11 & " - " & bairro11 & " - " & cidade11 & "/" & estado11 & "" strTextoHtml = strTextoHtml & "Telefone:" & fone11 & "" strTextoHtml = strTextoHtml & "URL:http://" & urlloja & "" strTextoHtml = strTextoHtml & "E-mail:" & emailloja & "" strTextoHtml = strTextoHtml & "Versão VirtuaStore:" & Application("vsversao") & "" strTextoHtml = strTextoHtml & "Última atualização:" & Application("ultimaatualizacao") & "" if VersaoDb = "2" then strTextoHtml = strTextoHtml & "Banco de Dados:Access [.mdb] (Conexão Estável) " elseif VersaoDb = "3" then strTextoHtml = strTextoHtml & "Banco de Dados:SQLServer Datadase [.mdf] (Conexão Estável)" else strTextoHtml = strTextoHtml & "Banco de Dados:MySQL Database [.frm] (Conexão Estável)" end if if instr(StringdeConexao,"database\")<>0 then Set fso = CreateObject("Scripting.FileSystemObject") Set fileObject = fso.GetFile(Server.MapPath("database/virtuastore.mdb") ) else Set fso = CreateObject("Scripting.FileSystemObject") Set fileObject = fso.GetFile(pasta_dados_protegido) end if if fileObject.size > 1048576 then strTextoHtml = strTextoHtml & "Tamanho da Base de Dados:" & FormatNumber(fileObject.size/1048576,2) & " MB" & " (Otimize o banco de dados pelo menos a cada 15 dias)" else strTextoHtml = strTextoHtml & "Tamanho da Base de Dados:" & FormatNumber(fileObject.size/1024, 0) & " KB" & " (Otimize o banco de dados pelo menos a cada 15 dias)" end if strTextoHtml = strTextoHtml & "

Notificações de atualização da sua loja ...
" strTextoHtml = strTextoHtml & "

" strTextoHtml = strTextoHtml & "" strTextoHtml = strTextoHtml & "

" %>