Luis Nassif abrirá o Encontro de Blogueiros Progressistas
É definitivo. O 1º Encontro Nacional de Blogueiros Progressistas será em São Paulo nos dias 21 (sábado) e 22 (domingo) de agosto no Sindicato dos Engenheiros, à rua Genebra, 25, ao lado da Câmara Municipal da capital.
Na sexta à noite (20), Luis Nassif, seu bandolim e grupo fazem show de boas-vindas no Sindicato dos Bancários**. Será regado a chorinho, samba, MPB e cerveja caseira (haverá outras) feita especialmente por Hans Bintje (querido leitor) para celebrar esse encontro histórico. Nassif aguarda sugestões para o repertório.
Já estão inscritos 152 blogueiros de 15 unidades da Federação: Bahia, Ceará, Distrito Federal, Espírito Santo, Minas Gerais, Mato Grosso, Mato Grosso do Sul, Pernambuco, Paraná, Rio de Janeiro, Rio Grande do Norte, Rio Grande do Sul, Santa Catarina e São Paulo.
PASSAGEM AÉREA MAIS BARATA E HOSPEDAGEM SOLIDÁRIA
Um acordo fechado com a Gol barateará as passagens. Para saber quanto custará o bilhete, verifique a menor tarifa do seu trecho. Aplique 20% de desconto sobre o valor. É quanto custará.
O objetivo da comissão organizadora é garantir hospedagem gratuita ao maior número possível de participantes de outros estados e do interior de São Paulo.
Aliás, vários leitores já se ofereceram para hospedar em casa blogueiros de fora de São Paulo, capital. Obrigadíssima. Precisamos de mais hospedagem solidária.
Quem puder, por favor,envie e-mail para contato@baraodeitarare.org.br Este endereço de e-mail está protegido contra spambots. Você deve habilitar o JavaScript para visualizá-lo. ou telefone para (011)3054-1829. Fale com Daniele Penha, do Centro de Estudos da Mídia Alternativa Barão de Itararé, uma das entidades apoiadoras do encontro. Apóiam-no institucionalmente também a Associação Brasileira de Empresas e Empreendedores da Comunicação (Altercom) e o Movimento dos Sem Mídia (MSM).
Daniele Penha informará também sobre inscrições e passagens aéreas. As inscrições custam 100 reais. Estudantes pagarão 20 reais.
JÁ SÃO 15 OS AMIGOS DA BLOGOSFERA
A campanha Amigos da Blogosfera, lançada há duas semanas, está a todo vapor. Ela ajudará a custear parte das despesas de blogueiros que virão de outros estados.
São 20 cotas de 3 mil reais. Estas 15 estão confirmadas:
Apeoesp (Sindicato dos Professores do Ensino Oficial do Estado de São Paulo)
CUT (Central Única dos Trabalhadores) nacional
CTB (Central dos Trabalhadores e Trabalhadoras do Brasil)
Sindicato dos Bancários e Financiários de São Paulo, Osasco e Região
Sindicato dos Metalúrgicos do ABC
Sindicato dos Engenheiros do Estado de São Paulo***
Federação Nacional dos Urbanitários (FNU)
Federação dos Químicos de São Paulo
Agência T1
Café Azul***
Carta Capital
Conversa Afiada
Revista Fórum***
Seja Dita a Verdade
Viomundo
Importante: no início da próxima semana, divulgaremos a programação completa.
* Comissão Organizadora: Luiz Carlos Azenha, Paulo Henrique Amorim, Luis Nassif, Altamiro Borges, Conceição Lemes, Eduardo Guimarães, Conceição Oliveira, Rodrigo Vianna e Diego Casaes.
** O Sindicato dos Engenheiros do Estado de São Paulo fica na rua Genebra, 25. É onde ocorrerão os trabalhos dos dias 21 e 22 de agosto. O show do Luis Nassif será na Regional Paulista do Sindicato dos Bancários: rua Carlos Sampaio, 305.
*** Essas cotas vão ser pagas, respectivamente, com locação, produção de logomarca, banner para web e hotsite e confecção e impressão de cartazes.
Fonte: Vi o Mundo
" & vbCrLf 'Response.Write strReferringPage & "
" & vbCrLf ' Read in and set the initial values of our message parameters strFromName = Trim(Request.Form("txtFromName")) strFromEmail = Trim(Request.Form("txtFromEmail")) strToEmail = Trim(Request.Form("txtToEmail")) strSubject = "www.contee.org.br" strBody = Trim(Request.Form("txtMessage")) ' I set the body message to a message that referenced the page the ' user arrived from. This makes it great if you place a link to it ' from your different articles, but can be weird if people link in ' from other web sites. If strBody = "" Then If strReferringPage = "" Or InStr(1, strReferringPage, "www.contee.org.br", 1) = 0 Then strBody = "" strBody = strBody & "O link abaixo é uma sugestão de leitura: Luis Nassif abrirá o Encontro de Blogueiros Progressistas" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1327.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Luis Nassif abrirá o Encontro de Blogueiros Progressistas" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Luis Nassif abrirá o Encontro de Blogueiros Progressistas" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1327.asp" & vbCrLf End If End If ' Quick validation just to make sure our parameters are somewhat valid bValidInput = True bValidInput = bValidInput And strFromName <> "" bValidInput = bValidInput And IsValidEmail(strFromEmail) bValidInput = bValidInput And IsValidEmail(strToEmail) ' If valid send email and show thanks, o/w show form If bValidInput Then ' Set up our email object and send the message Set objCDONTS = Server.CreateObject("CDONTS.NewMail") objCDONTS.From = strFromName & " <" & strFromEmail & ">" objCDONTS.To = strToEmail objCDONTS.Subject = strSubject objCDONTS.Body = strBody objCDONTS.Send Set objCDONTS = Nothing ' Show our thank you message ShowThanksMsg Else If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then Response.Write "Foi encontrado erro no preenchimento. Por favor confira os dados:" & "
" & vbCrLf End If ' Show our information retrieval form ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strBody End If ' End of page logic... subs and functions follow! %> <% ' Subroutines and Functions that encapsulate some functionality ' and make the above code easier to write... and read. ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function ' I made this a function just to get it out of the ' logic and make it easier to read. It just shows the ' form that asks for the input Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody) ' I use script_name so users can rename this script witout having to change the code. %> <% '
The Message to be sent:
'Subject: < %= strSubject % >
'Body: < %= strBody % >
End Sub ' This just shows our thank you message... probably didn't need to ' be a function, but since I made the form one I figured I'd do this ' for consistency. Sub ShowThanksMsg() %>Sua mensagem foi enviada com sucesso. <% End Sub %>