<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Contamil - Sistema Contábil Fiscal 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 + "
Agradecemos o seu contato!

Aproveite o nosso SUPER DESCONTO (12 parcelas de R$ 86,00):

Desbloqueamos o programa a partir do aceite dessa oferta. A 1ª parcela no valor de R$ 86,00 terá vencimento em 05 (cinco) dias (boleto via e-mail). Após essas parcelas você pagará apenas R$ 96,00 (noventa 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.

CONTAMIL é um sistema contábil, fiscal e de pessoal. Trabalhando em rede ou individualmente ele faz:

Contabilidade (Competência e Caixa)
Simples Nacional
Lucro Presumido
Livros Fiscais
Folha de Pagamento
Contas à Pagar e Receber
Controle de Clientes

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

Sintegra Nacional
Arquivos Magnéticos Estaduais


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

Com CONTAMIL você deixa de se preocupar com mudanças na legislação, alíquotas, portarias, enquadramentos. Nós cuidamos disso para você. O SISTEMA ATUALIZA-SE DIARIAMENTE PELA INTERNET, isso significa SEGURANÇA e CONFIANÇA nas questões fiscais e contábeis.

O módulo FOLHA DE PAGAMENTO, é resultado de uma parceria com a empresa Comsist Ltda, 10 anos de experiência em departamento pessoal, mais de 2000 empresas atendidas em todo o território nacional.

O sistema é multi-empresa, auto-explicável, de fácil entendimento e operação. Cada assinatura dá direito a suporte técnico (e-mail e telefone) e a 5 instalações (cinco máquinas). Acima desse número ocorrerá um acréscimo de 10% no valor da cessão de uso para cada nova instalação.

A configuração mínima exige Windows 2000, espaço disponível de 130 Mb no disco rígido, sendo recomendável memória RAM de 1,0 GB.

Para baixar a sua demonstração clique abaixo:



Caso seu sistema operacional seja Windows Vista, clique aqui para assistir os passos de instalação de Contamil.
" ' 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 Contamil, O Simples.