Ministério já fala em suspender Conferência de Comunicação
Uma suposta escassez de verba pode inviabilizar a realização da histórica Conferência Nacional de Comunicação. Segundo o advogado e consultor jurídico do Ministério das Comunicações (Minicom), Marcelo Bechara, a pasta reduziu drasticamente o orçamento previsto para o evento — de R$ 8,6 milhões para apenas R$ 1,6 milhão.
Em audiência pública, nesta quarta-feira (8), na Comissão de Ciência e Tecnologia da Câmara Federal, Bechara explicou que, em 11 de maio, foi publicado um decreto retirando R$ 600 milhões de vários ministérios para o INSS. Segundo o advogado, o Ministério das Comunicações perdeu R$ 33 milhões no total, incluindo não só os recursos da conferência — mas também de programas de inclusão digital.
"Não foi feita nenhuma consulta prévia ao ministério", reclamou Bechara, explicando que, dessa maneira, ele não pôde sequer sugerir onde fazer os cortes. Apesar de a conferência estar prevista para ocorrer só em dezembro (nos dias 1º, 2 e 3), esses recursos já deveriam estar disponíveis. “Não definimos, por exemplo, o local porque não há sequer como reservar o espaço”, disse o consultor, na audiência.
Com o orçamento encolhido, agrega ele, é impossível promover a conferência — que será composto por autoridades do Poder Judiciário e 16 entidades da sociedade civil, que debaterão os rumos das comunicações no país. "Já estamos em conversações com departamentos do Ministério do Planejamento — em especial a Secretaria de Orçamento Federal — para recompor o orçamento na integralidade”, poderá Bechara. “É preciso haver um projeto de lei em regime de urgência."
Para piorar, a votação do regimento interno da conferência — inicialmente marcada para esta quinta-feira (9) — foi adiada para a próxima semana. Segundo Bechara, o motivo da alteração foi a incompatibilidade entre as agendas dos ministros das Comunicações, Hélio Costa; da Secretaria de Comunicação Social, Franklin Martins; e do secretário-geral da Presidência, Luiz Dulci.
O governo é cobrado
Para a deputada Cida Diogo (PT-RJ) — presidente da subcomissão que acompanha os preparativos da conferência —, a ausência de Hélio Costa, na audiência pública tem relação direta com o fato de ele não ter conseguido resolver o problema. "Sua vinda poderia representar um constrangimento", analisa. A parlamentar exigiu rapidez na aprovação do regimento interno da conferência, que está sendo discutido no comitê organizador.
Já o presidente da Comissão de Ciência e Tecnologia, deputado Eduardo Gomes (PSDB-TO), cobrou do governo uma posição sobre a conferência. "Se não agirmos com celeridade, ela estará cancelada. O governo precisa dizer se é ou não prioridade realizá-la.” Gomes pediu ainda que a subcomissão dedicada a acompanhar a execução orçamentária cobre respostas do Ministério do Planejamento.
Fonte: Vermelho
Publicado em 10/07/2009
" & 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 = "Ministério já fala em suspender Conferência de Comunicação" strBody = strBody & "O link abaixo é uma sugestão de leitura: Ministério já fala em suspender Conferência de Comunicação" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc713.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Ministério já fala em suspender Conferência de Comunicação" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc713.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
%>