<% vemail = Trim(Request.Form("email")) msg = Chr(13) msg = msg & "Nome: " & Request.Form("nome") & Chr(13) msg = msg & "Empresa: " & Request.Form("empresa") & Chr(13) msg = msg & "Endereço: " & Request.Form("endereco") & Chr(13) msg = msg & "Cidade: " & Request.Form("cidade") & Chr(13) msg = msg & "Estado: " & Request.Form("estado") & Chr(13) msg = msg & "Cep: " & Request.Form("cep") & Chr(13) msg = msg & "Telefone: " & Request.Form("fone") & " Fax: " & Request.Form("fax") & Chr(13) msg = msg & "E-mail: " & vemail & Chr(13) msg = msg & "Mensagem:" & Chr(13) & Request.Form("mensagem") & Chr(13) Set Mailer = Server.CreateObject("CDONTS.Newmail") Mailer.To = "weberlopes@yahoo.com" Mailer.From = "usuario@escolasbrasil.com.br" Mailer.Subject = "Fale Conosco - Escolas Brasil" Mailer.BodyFormat = 1 Mailer.MailFormat = 0 Mailer.Body = msg If not Mailer.Send Then vresp = "Sua mensagem foi enviada com sucesso!" Else vresp = "Erro no envio da mensagem!" End If if vemail <> "" then vtexto = "Prezado(a) Senhor(a)," & Chr(13) & Chr(13) vtexto = vtexto & "Bem-vindo ao serviço de atendimento da Escolas Brasil." & Chr(13) vtexto = vtexto & "Esta é uma resposta automática para confirmar que sua mensagem foi recebida com sucesso e será respondida em até dois dias úteis." & Chr(13) & Chr(13) vtexto = vtexto & "Em caso de informações urgentes, pedimos a gentileza de telefonar para um dos seguintes números:" & Chr(13) & Chr(13) vtexto = vtexto & "091 3226-5812 (escritório);" & Chr(13) & "091 88372902 (celular)" & Chr(13) & Chr(13) vtexto = vtexto & "Agradecemos pela sua colaboração e interesse pelos nossos serviços." & Chr(13) & Chr(13) vtexto = vtexto & "Atenciosamente," & Chr(13) vtexto = vtexto & "Gerência - Escolas Brasil" Set MailResp = Server.CreateObject("CDONTS.Newmail") MailResp.To = vemail MailResp.From = "gerencia@escolasbrasil.com.br" MailResp.Subject = "Escolas Brasil" MailResp.BodyFormat = 1 MailResp.MailFormat = 0 MailResp.Body = vtexto If not MailResp.Send Then auto_resp = "Verifique o seu e-mail!" Else auto_resp = "Ocorreu um erro no envio da resposta automática!" End If end if %>

Tecnologia e Inteligência Artificial

· O sistema Administrativo e financeiro Escolar ABC, foi criado e desenvolvido com inovadoras técnicas e adotando uma filosofia bastante simples para sua utilização, não precisando de conhecimento prévio de informática para ser utilizado.
· Baseado sob uma tecnologia de linguagem de programação de Banco de Dados relacional de última geração, podendo ser utilizado sob as plataformas dos sistemas operacionais: Windows 98 / ME / 2000 / NT e XP, em um único computador ou em uma rede local com até 99 estações de trabalho ao mesmo tempo.
· Utilização de instruções SQL nos processamentos dos cálculos e dos relatórios.
· Barra de Menus com opções dos módulos do sistema agrupados.
· Barra de botões removível de atalhos para acesso rápido das opções dos módulos do sistema.
· Número ilimitado de estações. Projetado para a configuração mínima: Pentium 233 com memória RAM de 64 MB.
· O Sistema Administrativo e Financeiro Escolar ABC é um sistema ágil, moderno e muito fácil de operar, pois ele foi desenvolvido através de amplas pesquisas e experiências financeiras das escolas, voltado para o total controle da mesma.
· Sofisticado sistema incremental de pesquisas de dados.
· Telas de busca rápida para auxílio nas operações de cadastros.
· Atualização do Sistema feito pelo administrador através da Internet.
· Utilização em rede. Nos servidor Linux, Windows NT/2000/98.
· Dicas de utilização e verificação de dados necessários para o bom funcionamento do sistema.

GLOBALIZAÇÃO | FINANCEIRO | ACADÊMICO | EQUIPE | SEGURANÇA | WEB DESIGNER