Ministro da Educação inaugura em Volta Redonda nova unidade da Federal Fluminense
O ministro da Educação, Fernando Haddad, inaugurou nesta sexta (7), no município de Volta Redonda, sul do estado do Rio de Janeiro, a sede da Escola de Ciências Humanas e Sociais da Universidade Federal Fluminense (UFF). Trata-se do primeiro de três prédios do campus da UFF, que serão construídos até agosto na cidade.
Na opinião do ministro, o Brasil tem a obrigação de saldar sua dívida educacional histórica. “O que o Brasil precisa é saldar sua dívida educacional histórica. Essa tarefa não foi cumprida no século 20, então temos a obrigação de fazer agora. Por exemplo, em Volta Redonda, os investimentos chegaram muito tarde. Esta cidade, pela importância que tem, já merecia ter sido contemplada antes nessa área tão fundamental que é a educação”, afirmou Haddad durante a solenidade que também contou com a presença do reitor da UFF, Roberto de Souza Salles, do diretor do polo universitário de Volta Redonda, Wainer da Silveira e Silva e do prefeito da cidade, Antonio Francisco Neto.
Inicialmente, o novo prédio construído será para os cursos de administração, ciências contábeis e administração pública. Logo em seguida, também serão incluídos os cursos de direito e psicologia. Além do prédio inaugurado hoje, outros dois estão em construção. Um será destinado para os cursos de ciências exatas (física computacional, matemática computacional e química). O outro será para a administração do campus, biblioteca e laboratórios.
De acordo com Haddad, a estrutura do ensino universitário evoluiu nos últimos anos no país. “Até 2003, tínhamos apenas 130 campi universitários no país. Em oito anos, além de revitalizar muitas unidades, vamos entregar 105 novos. E nessa conta não entra Volta Redonda, que já possuía uma unidade (na Vila Santa Cecília), ou seja, agora, sim, nós temos um projeto educacional à altura do nosso país”, afirmou.
Segundo informações do Ministério da Educação, o governo federal construiu 115 unidades de educação profissional de 214 previstas até o final de 2010. Desse total, 102 já funcionam e 13 devem ter as aulas iniciadas no segundo semestre de 2010. Outras 99 estão em obras e 26 funcionam em instalações provisórias.
Fonte: Agência Carta Maior
<% 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: Ministro da Educação inaugura em Volta Redonda nova unidade da Federal Fluminense" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/educacao/nedu1581.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Ministro da Educação inaugura em Volta Redonda nova unidade da Federal Fluminense" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Ministro da Educação inaugura em Volta Redonda nova unidade da Federal Fluminense" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/educacao/nedu1581.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 %>