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

Web Designer

Não é possível falar em evolução tecnológica sem pensar em INTERNET. Em todos os cantos do planeta, em todas as categorias profissionais, encontramos milhares de pessoas utilizando e desfrutando seus recursos. Aquilo que num passado recente era privilégio de pesquisadores em universidades, hoje, está aberto a adolescentes, donas de casa, profissionais liberais, executivos, empresas, etc.

A INTERNET é um caminho sem volta, e a cada dia, milhares de pessoas no mundo inteiro passam a fazer parte dessa comunidade. As empresas, por sua vez, estão descobrindo o enorme potencial de negócios que a INTERNET é capaz de realizar e, portanto, gerando diariamente centenas de postos de trabalho para este segmento.

Atentos a esta evolução tecnológica que, nós da SEMPRE INFORMÁTICA, desenvolvemos Web Sites de diversos tipos e para qualquer empresa ou negócio.

Nossos profissionais trabalham com os melhores softwares do mercado:

Design: Macromedia Fireworks MX, CorelDraw, Adobe Photoshop
Desenvolvimento: Macromedia Dreamweaver MX
Animação: Macromedia Flash MX
Banco de Dados Relacional
Scripts: Java, JavaScript, Visual Basic, VBScript, ASP, ASP.NET, PHP e HTML

 

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