Programas de extensão terão investimento de R$ 30 milhões
O Ministério da Educação vai investir R$ 30 milhões do seu orçamento de 2011 para apoiar o desenvolvimento de 484 programas e projetos de extensão universitária selecionados entre 1,2 mil propostas. Recursos do Programa de Apoio à Extensão Universitária (Proext) serão transferidos a universidades federais e estaduais e a institutos federais de educação, ciência e tecnologia no início do próximo ano.
Do total da verba do Proext, R$ 27 milhões vão para atividades de extensão das instituições federais de ensino superior e R$ 3 milhões para universidades estaduais. No período 2010-2011, o programa desenvolverá dez linhas de ação que atenderão políticas sociais de oito ministérios, do Instituto Nacional do Patrimônio Histórico e Artístico Nacional (Iphan) e da Secretaria Especial de Políticas para as Mulheres.
Os projetos mais contemplados com recursos são os de educação e de saúde (R$ 6 milhões cada um) e do trabalho (R$ 4 milhões). Os outros sete tipos de projetos terão R$ 2 milhões cada um. O dinheiro para a extensão universitária será liberado pelo Ministério da Educação, mas caberá aos ministérios parceiros do programa, ao Iphan e à Secretaria Especial de Políticas para as Mulheres oferecer recursos humanos para apoiar o desenvolvimento das atividades, além de monitorar as ações nas respectivas áreas. A duração máxima dos projetos é de 12 meses — devem ser encerrados até 31 de dezembro de 2011.
Temas — Das 484 propostas que receberão recursos públicos, 114 dizem respeito à educação. As demais estão distribuídas entre os temas cultura e arte; pesca artesanal e agricultura familiar; promoção da saúde; desenvolvimento urbano; desenvolvimento agrário; redução das desigualdades sociais; geração de trabalho e renda; preservação do patrimônio cultural; garantia dos direitos das mulheres em situação de violência.
No tema educação, as instituições de ensino superior vão desenvolver atividades de extensão em sete áreas, entre as quais, juventude, educação ambiental e populações indígenas e quilombolas. A Universidade Estadual do Oeste do Paraná, por exemplo, vai receber R$ 119,9 mil para executar o programa Círculos de Cultura da Juventude Camponesa; a Universidade Federal da Bahia, R$ 99,7 mil para colocar em prática o programa Museu de Ciências do Cerrado Nordestino.
Os recursos do Proext destinam-se a melhorar as condições de gestão das atividades acadêmicas de extensão das instituições de educação superior públicas e estimular o desenvolvimento, a inclusão social e o espírito crítico dos estudantes. A extensão é um processo educacional de caráter multidisciplinar que articula ensino e pesquisa e coloca as instituições de ensino em contato com as comunidades que as cercam.
Confira os 414 programas e projetos das instituições federais
Confira as 70 propostas das universidades estaduais
Fonte: MEC
<% 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: Programas de extensão terão investimento de R$ 30 milhões" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/educacao/nedu1644.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Programas de extensão terão investimento de R$ 30 milhões" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Programas de extensão terão investimento de R$ 30 milhões" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/educacao/nedu1644.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 %>