TV feita por trabalhadores irá ao ar a partir de agosto
A TVT (TV dos Trabalhadores) vai entrar no ar em agosto. O presidente Lula deverá participar da estreia da emissora, a primeira que é outorgada a um sindicato de trabalhadores. A informação foi confirmada há pouco pelo Sindicato dos Metalúrgicos do ABC (CUT), que há 23 anos pede a concessão da TVT, em parceria com a Fundação Sociedade, Comunicação, Cultura e Trabalho, criada há 10 anos.
A data em que a emissora entrará no ar, os detalhes de programação e de sua retransmissão serão divulgados na próxima quinta-feira. "Os trabalhadores têm direito legítimo a um canal de TV, assim como segmentos como igrejas e universidades já tem", diz Sérgio Nobre, presidente do sindicato, que representa mais de 100 mil trabalhadores na região do ABC.
A TVT irá ao ar pelo canal 46 UHF-Mogi das Cruzes, além de canais comunitários em todo o Estado de São Paulo. No início, a TVT terá uma hora e meia diária de produção própria, com um telejornal e dois programas de debates. Para o restante da grade de programação, foram firmadas parcerias com a TV Brasil e as TVs Câmara e Senado para retransmissão de reportagens especiais e documentários.
A outorga da emissora foi feita em outubro de 2009 por meio de decreto assinado pelo presidente Lula e pelo então ministro das Comunicações, Hélio Costa passado e publicada no Diário Oficial da União. A concessão é de um canal educativo e foi feita à Fundação Sociedade de Comunicação, Cultura e Trabalho, entidade criada e mantida pelo Sindicato dos Metalúrgicos do ABC.
ACM negou primeiro pedido
O primeiro pedido de concessão de canais de rádio e televisão para os trabalhadores, feito por meio do sindicato, ocorreu em setembro de 1987. O sindicato participou de quatro pedidos de concessão de radiodifusão e foi preterido - apesar de informar que cumpriu todos os requisitos exigidos por lei. Em 1992, o pedido foi negado novamente - à época já em nome da Fundação Sociedade Comunicação, Cultura e Trabalho.
Em abril de 2005, a fundação conseguiu a concessão do canal educativo 46, com sede no município de Mogi das Cruzes (Grande São Paulo), com aprovação do Congresso Nacional. Na ocasião, o presidente Lula assinou o decreto da concessão na abertura do 16º Congresso Continental da Ciosl-Orit (Confederação Internacional das Organizações Sindicais Livres - Organização Regional Interamericana de Trabalhadores), que reuniu representantes das principais centrais sindicais de 29 países.
Durante o ato, Lula lembrou que era deputado constituinte quando levou o deputado federal e então presidente do Sindicato dos Metalúrgicos do ABC, Vicentinho (PT), para conversar com o ministro das Comunicações à época, Antônio Carlos Magalhães (governo Sarney), e pedir pela primeira vez a concessão.
Fonte: CTB
" & 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: TV feita por trabalhadores irá ao ar a partir de agosto " & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1321.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: TV feita por trabalhadores irá ao ar a partir de agosto " sstrBody = strBody & "O link abaixo é uma sugestão de leitura: TV feita por trabalhadores irá ao ar a partir de agosto " & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1321.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 %>