<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> O Simples - Sistema Fiscal Contábil Integrado <% '****************************** '*Dispara Newsletter para Demos '****************************** '**** Dimensiona variaveis ***** Dim objConn Dim dbBanco Dim SQL Dim tbTabela Set dbBanco=Server.CreateObject("ADODB.Connection") Set tbTabela=Server.CreateObject("ADODB.Recordset") '**** Abre banco de dados ***** dbBanco.CursorLocation = 3 dbBanco.Open Application("ConexaoDB") '**** Seleciona tabela ****** tbTabela.Open "SELECT * FROM demonstracoes WHERE data=date() and envio=0", dbBanco, 3,3 '****** Verifica se a tabela não está no último registro ******* If Not tbTabela.EOF then tbTabela.MoveFirst 'varhora = Hour(tbTabela.Fields("hora")) 'Select Case varhora 'Case 18 'varhora2 = "10" 'Hour(tbTabela.Fields("hora")) = varhora2 'Day(tbTabela.Fields("data")) = Day(tbTabela.Fields("data"))+1 'tbTabela.Update 'Case 19 ' varhora2 = "10" ' Hour(tbTabela.Fields("hora")) = varhora2 ' Day(tbTabela.Fields("data")) = Day(tbTabela.Fields("data"))+1 ' tbTabela.Update 'Case 20 ' varhora2 = "10" ' Hour(tbTabela.Fields("hora")) = varhora2 ' Day(tbTabela.Fields("data")) = Day(tbTabela.Fields("data"))+1 ' tbTabela.Update 'Case 21 ' varhora2 = "10" ' Hour(tbTabela.Fields("hora")) = varhora2 ' Day(tbTabela.Fields("data")) = Day(tbTabela.Fields("data"))+1 ' tbTabela.Update 'Case 22 ' varhora2 = "10" ' Hour(tbTabela.Fields("hora")) = varhora2 ' Day(tbTabela.Fields("data")) = Day(tbTabela.Fields("data"))+1 ' tbTabela.Update 'Case 23 ' varhora2 = "10" ' Hour(tbTabela.Fields("hora")) = varhora2 ' Day(tbTabela.Fields("data")) = Day(tbTabela.Fields("data"))+1 ' tbTabela.Update 'End Select '***** Verifica se campo HORA foi registrado há duas horas ****** '***** Executa Loop até o final da tabela demostrações ****** Do While Hour(tbTabela.Fields("hora"))+24 < Hour(time) and tbTabela.Fields("data") = date() '****** Define texto da mensagem e envia email ******* HTML="" HTML=HTML + " Fale Conosco body { scrollbar-base-color: #DCDCDC; // scrollbar-track-color:" HTML=HTML + " #DCDCDC; // scrollbar-face-color: #DCDCDC; // scrollbar-highlight-color:" HTML=HTML + " #ffffff; // scrollbar-3d-light-color: #838383; // scrollbar-darkshadow-color:" HTML=HTML + " #A3A3A3; // scrollbar-shadow-color: #A3A3A3; // scrollbar-arrow-color:" HTML=HTML + " #000000; }; .tahoma1 { font-family: Tahoma; font-size: 11px;" HTML=HTML + " } " HTML=HTML + " " HTML=HTML + "

" HTML=HTML + "

" HTML=HTML + "
" HTML=HTML + " " HTML=HTML + "
" HTML=HTML + "

" HTML=HTML + " " ' HTML=HTML + "
" HTML=HTML + "
Prezado(a) Sr.(a) "+tbTabela.Fields("nome")+",

Aproveite o nosso DESCONTO (04 parcelas de R$ 75,00):

Desbloqueamos o programa a partir do aceite dessa oferta. A 1ª parcela no valor de R$ 75,00 terá vencimento em 05 (cinco) dias (boleto via e-mail). Após essas parcelas você pagará apenas R$ 86,00 (oitenta e seis reais) mensais.

Se você não se sentir satisfeito(a), a qualquer tempo pode solicitar a sua exclusão do sistema, encerrando seus pagamentos nesse momento.

O SIMPLES é um programa fiscal e contábil. Trabalhando em rede ou individualmente ele faz:

Contabilidade
Simples Nacional
Lucro Presumido
Livros Fiscais
Contas à Pagar e Receber

Atualizações previstas: (mantido o mesmo preço!!!)

Folha de Pagamento
Controle Interno de Clientes


PARA COMPRAR -->->CLIQUE AQUI<-<--

Mas seja rápido(a), pois é por tempo limitado !!!


Atenciosamente,

Marco Figueiredo
" ' HTML=HTML + " " ' HTML=HTML + "
Clique no link abaixo:

" ' HTML=HTML + " " HTML=HTML + "
" ' HTML=HTML + "
>Clique na imagem abaixo para iniciar o download


Caso seu sistema operacional seja Windows Vista, clique aqui para assistir o passos de instalação de O Simples.