<% 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 %>

<< Boletim >>
- Boletim 1
- Boletim 2
- Boletim 3
- Boletim 4
- Boletim 5
- Boletim 6
- Boletim 7
- Boletim 8
- Boletim 9
- Boletim 10
- Boletim 11
- Boletim 12
- Boletim 13
- Boletim 14
- Boletim 15
- Boletim 16
- Boletim 17
- Boletim 18
- Boletim 19
- Boletim 20
- Boletim 21
- Boletim 22

<< Listagem de Alunos >>
- Diário de Class 1
- Diário de Class 2
- Diário de Class 3
- Diário de Class 4
- Diário de Class 5
- Geral de Matrícula
- Listagem para Professor
- Listagem para Assinatura
- Relação de Endereços de Alunos
- Lista para Reunião

<< Carner de Pagamento >>
- Carner 1
- Carner 2
- Carner 3
- Carner 4
- Carner 5
- Carner 6
- Carner 7
- Carner 8
- Carner 9
- Carner 10
- Carner 11
- Carner 12
- Carner 13
- Carner 14
- Carner 15
- Carner 16
- Carner 17

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