<% 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 %>
 
Controle Acadêmico

· Lançamentos de Notas individuais por aluno.
· Lançamentos de Notas por turma e disciplina.
· Lançamentos de Notas de recuperação individuais por aluno.
· Lançamentos de Notas de recuperação por turma e disciplina.
· Configura quem assina pela escola (Diretor ou Diretora) (Secretário ou Secretária) para impressão nos relatórios.
· Insere assinatura digital scaneada do diretor e secretária para impressão das mesmas nos boletins parciais..
· Emissão dos Diários de Classe no intervalo de meses, em ordem por Nome de Aluno ou seqüência de Matrícula.
· Lançamento de Freqüência.
· Configuração da fórmula e calculo de aprovação.
· O administrador configura a NOTA de PESO, NOTA de APROVAÇÃO e NÚMERO MÁXIMO de DISCIPLINAS em DEPENDÊNCIAS.
· Mapa demonstrativo de notas.
· Resultado final de aproveitamento.
· Boletim Individual por Aluno ou por Turma (parcial ou Final)
· Cálculo automático de aprovação, recuperação ou dependência.
· Diversos relatórios por turma, em ordem por Nome de Aluno ou seqüência de Matrícula.
· Histórico Escolar, com preenchimento manual para anos anteriores que o aluno estudou em outro estabelecimento de ensino.
· Relatórios de Transferência dos alunos.
· Contrato escolar (Edição/Alteração e impressão).
· Re-matricula de alunos.
GLOBALIZAÇÃO | FINANCEIRO | ACADÊMICO | EQUIPE | SEGURANÇA | WEB DESIGNER