Brasileiros são maioria entre desempregados em Portugal

Publicado em 28/10/2009

O número de desempregados estrangeiros inscritos nos centros de emprego em Portugal aumentou 65% até agosto em relação ao mesmo período de 2008, totalizando 31.525 pessoas, de acordo com os dados fornecidos à Agência Lusa pelo Instituto de Emprego e Formação Profissional (IEFP).

O Brasil é o país de origem com mais peso neste tipo de desempregados - representando 28,2% do total de estrangeiros inscritos (8.879 pessoas) - com o número de brasileiros disparando 72% até agosto.
 
Imigrantes
Por continente, 11.316 inscritos são africanos, 9.932 pessoas são europeus, enquanto 9.237 são americanos (sendo que, destes, 96% são do Brasil) e 1.040 vêm de outros países.

Os imigrantes estão sofrendo mais os efeitos do desemprego em todo o velho continente. Dentro da Europa, 36% dos desempregados inscritos nos centros de emprego têm origem em países da União Europeia e 63% em países do Leste Europeu.

Com isso, até agosto foram inscritos 12.425 estrangeiros a mais do que há um ano atrás, de acordo com informações do instituto. Do total de estrangeiros inscritos, 34,1% não recebem qualquer apoio da Segurança Social.

Sem direito a subsídio
O número de desempregados estrangeiros que sem direito ao subsídio caiu ligeiramente em comparação ao ano passado, quando a porcentagem era de 35,3%.

Até agosto havia 20.777 de beneficiários de nacionalidade estrangeira com prestações de desemprego, um valor que compara com os 12.370 beneficiários existentes há um ano atrás.

Este universo de desempregados representava, 6,3% do total de inscritos no IEFP (501.663 indivíduos), o que representa uma pequena subida em relação aos 4,9% observados em agosto, quando existiam, no total, 389.974 desempregados inscritos.

Segundo os dados do instituto, a maior parte destas pessoas vivem na região de Lisboa e Vale do Tejo (19.791), seguido do Norte (4.472), Algarve (3.319), Centro (2.903) e Alentejo (1.040).

Fonte: Lusa

ENVIE A MATÉRIA:

<% 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: Brasileiros são maioria entre desempregados em Portugal" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc868.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Brasileiros são maioria entre desempregados em Portugal" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Brasileiros são maioria entre desempregados em Portugal" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc868.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. %>
Seu nome:
Seu e-mail:
Para:
 
<% '

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 %>