João escreveu três palavras, colocou-as numa garrafa, tampou e atirou tudo ao mar. Não se sentiu menos anônimo nem a existência melhor. Porém a sensação de abreviar espaços e aproximar pessoas o invadiu. Quando João escreveu as três palavras que um dia alguém encontrou e pouco entendeu porque apenas diziam “Eu estou aqui”, comungou com todas as mãos e todas as letras de todos os tempos o primeiro “sentido” de escrever. |
Copyright ©2006, 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 %> |
voltar
menu revista 04