Entrevista com Marcelo Bechara: “Coragem e tolerância”
Marcelo Bechara, assessor jurídico do Ministério das Comunicações, é o presidente da Comissão Organizadora Nacional da 1ª Conferência Nacional de Comunicação , convocada pelo governo federal em abril e que, entre os dias 14 e 17 de dezembro, reuniu em Brasília 1.684 delegados das 27 unidades da Federação para discutir a comunicação no Brasil. Ao fim dos trabalhos, Bechara resumiu em duas palavras a Confecom: "coragem e tolerância".
Agora que terminou, como o senhor descreve a Confecom?
Marcelo Bechara – Foi a Conferência do impossível. Era muito mais fácil ela não acontecer. Ainda assim, a sociedade civil conseguiu sensibilizar o Governo e também agregar a sociedade civil empresarial. Foi um exemplo de coragem e tolerância. Coragem do presidente Lula e dos ministros envolvidos e tolerância dos setores que entraram na discussão. Todas as diversidades e pluralidades estavam bem representadas aqui.
Quais as maiores dificuldades encontradas ao longo do processo?
M.B. – Foi uma conferência que foi convocada em abril, mas que, na prática, começou no dia 1º de junho e teve pouquíssimo tempo para ser organizada. Mas contamos com a ajuda dos estados, que formularam mais de 6 mil propostas, que viraram 1.500 na etapa nacional.
E durante os dias de trabalho em Brasília, o que mais impressionou?
M.B. – Os grupos de trabalho conseguiram aprovar muitas propostas. Alguns deles nem chegaram a encaminhar a cota de 10 propostas para a plenária final. No fim, todos saíram daqui contemplados, propostas importantes para todos os segmentos foram apreciadas. Foi muito bonito ver os grupos de trabalho fazendo acordos inimagináveis tempos atrás.
O que será feito agora?
M.B. – As propostas aprovadas vão compor o relatório final, que terá também uma retrospectiva de todo o processo realizado. Teremos uma fotografia das idéias da sociedade aqui representada. Acho que temos subsídios importantes para a construção de políticas públicas de comunicação daqui para frente.
A Confecom não teve a participação de algumas entidades da sociedade civil empresarial. Isso atrapalhou?
M.B. – Se tivéssemos mais tempo para trabalhar e estruturar a Conferência, mais associações estariam aqui. Mas a delegação do segmento empresarial estava extremamente significativa. E mesmo assim, muitas das entidades que não estavam na organização estiveram aqui com observadores. Isto é fazer parte da Conferência também.
Qual o resultado final?
M.B. – O mais importante na Conferência é que foi aberto um canal de diálogo entre segmentos importantes da indústria de comunicação. Vi que os delegados saíram daqui com a sensação de dever cumprido e todos com a impressão de ter conquistado grande parte das reivindicações. Foi uma contribuição histórica, uma conquista da sociedade no sentido mais amplo. Empresários, movimentos sociais e poder público. Estivemos aqui como funcionários, mas somos todos cidadãos.
Fonte: ASC CONFECOM
" & 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: Entrevista com Marcelo Bechara: “Coragem e tolerância”" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1002.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Entrevista com Marcelo Bechara: “Coragem e tolerância”" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Entrevista com Marcelo Bechara: “Coragem e tolerância”" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1002.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 %>