Sedes da Copa de 2014 ganharão corredores exclusivos para ônibus, confirma ministro
O ministro das Cidades, Marcio Fortes, confirmou hoje (24) que as 12 cidades-sede da Copa do Mundo 2014 vão ganhar corredores exclusivos para ônibus e terão bondinhos, os chamados Veículos Leves sobre Trilhos (VLTS)) circulando nos trajetos entre os estádios, hotéis, rodoviárias, portos e aeroportos para agilizar o deslocamento de torcedores e equipes de futebol que participarão do evento.
Segundo ele, a construção de metrô para a Copa foi descartada para “que as cidades não sejam esburacadas e depois não dê tempo de concluir as obras”.
Fortes assegurou que as obras viárias a serem feitas nas cidades-sede da Copa (Belo Horizonte, Brasília, Cuiabá, Fortaleza, Manaus, Natal, Porto Alegre, Recife, Rio de Janeiro, Salvador e São Paulo) vão melhorar a qualidade de vida da população por um longo tempo. Ele citou o caso específico de Fortaleza e Recife, onde atualmente a infraestrutura urbana não atende às necessidades da população.
Ao todo serão desenvolvidos 47 projetos de transporte público nas capitais do Mundial. As obras estão orçadas em R$ 11,4 bilhões, sendo que deste montante, R$ 7,7 bilhões virão do Fundo de Garantia do Tempo de Serviço (FGTS)), por meio do Programa Pró-transporte, e o restante será a contrapartida das prefeituras e dos governos estaduais.
O ministro explicou que o Conselho Monetário Nacional (CMN) já permitiu a uso desse dinheiro para o PAC da Mobilidade Urbana, e que agora basta a aprovação das licenças ambientais para que as obras sejam contratadas e iniciadas. No último dia 18, o Ministério das Cidades liberou R$ 1,5 bilhão para Brasília, Recife e Salvador.
“Estamos concentrando nossas ações em obras viárias de curto a médio prazos, que certamente darão a mesma agilidade do metrô no deslocamento entre os pontos de referência nas cidades que vão sediar a Copa 2014. Sabemos que essas intervenções não vão solucionar os problemas de transporte público nas grandes cidades, mas, com certeza, amenizarão as dificuldades enfrentadas pela população durante e depois da Copa”, acrescentou Fortes.
Ele lembrou ainda que, além dos investimentos em mobilidade urbana, o Ministério das Cidades vai destinar recursos para infraestrutura de áreas que serão destinadas às festas dos torcedores. “Como muitas pessoas não terão dinheiro para assistir aos jogos, já que os ingressos em eventos como esse são caros, vamos preparar áreas com telões para que as pessoas possam torcer, sambar, beber com moderação e comemorar a vitória da seleção brasileira nos jogos.”
Fonte: Agência Brasil
" & 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: Sedes da Copa de 2014 ganharão corredores exclusivos para ônibus, confirma ministro" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1187.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Sedes da Copa de 2014 ganharão corredores exclusivos para ônibus, confirma ministro" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Sedes da Copa de 2014 ganharão corredores exclusivos para ônibus, confirma ministro" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1187.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 %>