Este segundo número
da REVISTA LINHA MESTRA representa um importante passo
em direção ao crescimento do nosso site. Isto porque
as produções em escrita virtual ganham projeção
junto aos professores, mostrando ser possível juntar
forças e promover conhecimentos em prol da melhoria da
educação brasileira. As avaliações do site e de Linha
Mestra foram muito positivas, conforme a enquete e os
comentários dos internautas que nos visitaram! E mais: 2007 é ano de COLE - evento nacional já consolidado e espaço para reunião e discussão de idéias, propostas e projetos para a dinamização da leitura e discussão de políticas públicas. Que a comunidade envolvida com os assuntos da escrita se reúna no COLE para mostrar que é sim possível quebrar as armadilhas e conquistar um sociedade leitora. |
Copyright ©2007, by ALB/Campinas, SP, Brasil
|
<% dim done done = request.form("done") if done = "" then done = "No" %> <% 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 pelo seu amigo!" & _ 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 %> |