Investimento em educação profissional é o maior da história
Em 2009, o Brasil terá 100 novas escolas técnicas federais. Só esta semana, serão inaugurados sete novos campi de institutos federais nos estados do Rio de Janeiro e Espírito Santo. Os recursos para a expansão da rede federal são da ordem de R$ 1,1 bilhão. O Ministério de Educação tem hoje o maior orçamento dos últimos anos para investir na educação profissional.
As 100 novas escolas fazem parte de um projeto inovador que buscou atender às necessidades do arranjo produtivo local em cada região. Os cursos técnicos e superiores que serão oferecidos nessas escolas estão integrados ao mercado de trabalho.
Há exemplos, inclusive, de escolas técnicas federais que desenvolveram cursos para atender à demanda por profissionais em seus estados.
É o caso do Espírito Santo, que receberá quatro novas escolas técnicas esta semana. Lá, a Vale do Rio Doce fechou um convênio com o instituto federal do Espírito Santo para a implantação do curso técnico em ferrovias (nas modalidades integrada e subsequente) na unidade de ensino de Cariacica.
A empresa investiu R$ 6 milhões para a construção e aparelhamento das instalações e capacitação de docentes. O curso foi elaborado com o auxílio de especialistas que trabalham na área de ferrovias da Vale.
Oportunidades
As novas escolas técnicas vão aumentar o leque de oportunidades para os jovens brasileiros. No Brasil, o ensino médio é a etapa da educação básica na qual se registram os maiores índices de evasão — menos de 30% dos jovens de 18 a 24 anos chegam ao ensino superior.
Sem perspectivas de ingressar na universidade, muitos deixam as salas de aula. Com a educação profissional, o jovem conclui o ensino médio pronto para o mercado de trabalho.
Outra preocupação dos institutos federais é o déficit de professores de química, física, biologia e matemática. Para sanar o problema, 30% das matrículas das instituições vão para licenciaturas nessas áreas.
Para o secretário de educação profissional e tecnológica do MEC, Eliezer Pacheco, o aumento dos investimentos veio a partir de uma mudança de conceitos. "Hoje, a educação profissional é tida pelo governo federal como um fator estratégico para o desenvolvimento do país. Faltam profissionais qualificados no mercado", explica.
Escolas
Das 100 escolas que serão entregues este ano, 33 estarão na região Nordeste. O Sudeste terá 28; o Sul, 16; o Norte, 12 e o Centro-Oeste, 11. Em cada nova unidade são investidos cerca de R$ 5 milhões, entre infra-estrutura, equipamentos e mobiliário. Desde 2005, estão em funcionamento 75 unidades.
Fonte: MEC
Publicado em 05/03/2009
<%
Dim objCDONTS ' Email object
Dim strFromName ' From persons' real name
Dim strFromEmail, strToEmail ' Email addresses
Dim strSubject, strBody ' Message
Dim strThisPage ' This page's URL
Dim strReferringPage ' The referring page's URL
Dim bValidInput ' A boolean indicating valid parameters
' Retrieve this page name and referring page name
strThisPage = Request.ServerVariables("SCRIPT_NAME")
strReferringPage = Request.ServerVariables("HTTP_REFERER")
' Debugging lines:
'Response.Write strThisPage & "
" & 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: Investimento em educação profissional é o maior da história" & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "http://www.contee.org.br/noticias/educacao/nedu905.asp" & vbCrLf
Else
strBody = "O link abaixo é uma sugestão de leitura: Investimento em educação profissional é o maior da história"
sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Investimento em educação profissional é o maior da história" & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "http://www.contee.org.br/noticias/educacao/nedu905.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
%>