Depoimento

voltar menu revista 08

  

... Ler é muito mais

ASSIM EU ACHO QUE A LEITURA DEVA SER CONDUZIDA  NA ESCOLA
  Elizangela de Sá Brito (*)
 
A escola é o local

                 


 
Elizangela de Sá Brito. Graduada em Letras pela Universidade EStadual Vale do Acrau, pós-graduanda no Curso de Língua Portuguesa e Literatura pela Universidade Estadual Vale do Acarau, Professora de Língua Portuguesa e Literatura da Escola Tancredo Nunes de Menezes e do Curso de Letras do Instituto Vale do Acarau, Sobral, Estado do Ceará.

Copyright ©2008, by ALB/Campinas, SP, Brasil

  <% dim done done = request.form("done") if done = "" then done = "No" %>

Indique a um amigo:
Remetente:
Email Remetente:
Destinatário:
Email Destinatário:
 
<% Else if request.form("done") = "Yes" then 'sets variables dim email, sendmail, remet, remmail, dest email = request.form("email") remet = request.form("remet") remmail = request.form("remmail") dest = request.form("dest") Set sendmail = Server.CreateObject("CDONTS.NewMail") 'put the webmaster address here sendmail.From = remmail 'The mail is sent to the address entered in the previous page. sendmail.To = email 'Enter the subject of your mail here sendmail.Subject = "Indicação de Website" 'send a specific page or send a site url dim url url = Request.ServerVariables("HTTP_REFERER") 'This is the content of thr message. sendmail.Body = "Site recomendado por amigo(a)!" & _ vbCrlf & vbCrlf & "Seu amigo " & remet & " entrou no site da ALB e indicou o link:" & _ vbCrlf & url & vbCrlf 'this sets mail priority.... 0=low 1=normal 2=high sendmail.Importance = 1 sendmail.Send 'Send the email! 'response.redirect Request.ServerVariables("HTTP_REFERER") Response.write " Indicação enviada para: " & email & "" End if End if %>