Lei da Adoção faz um ano, mas burocracia ainda é obstáculo
Quase um ano depois da aprovação da Lei Nacional da Adoção (12.010/09), os principais problemas para quem quer adotar uma criança ou um adolescente continuam sendo a burocracia e a falta de estrutura nas varas da infância e da adolescência para atender à demanda das famílias interessadas. A Câmara realiza nesta terça-feira, às 10 horas, sessão solene para comemorar o Dia Nacional da Adoção.
Na opinião do deputado João Matos (PMDB-SC), autor de um dos projetos que resultaram na lei, a fila enfrentada pelos que querem adotar é longa por causa da burocracia. "Se a destituição do poder familiar fosse mais rápida, haveria mais crianças disponíveis para adoção", garante.
Segundo dados do Conselho Nacional de Justiça (CNJ), existem hoje no Brasil cerca de 30 mil pretendentes à adoção e 4,7 mil crianças e adolescentes cadastrados e aptos a serem adotados. Outro número preocupante é o de menores que vivem em abrigos, aguardando um encaminhamento da Justiça. Números da Associação dos Magistrados do Brasil (AMB) mostram que cerca de 80 mil crianças e adolescentes estão em abrigos, e apenas 10% desse total podem ser adotados.
O vice-presidente da AMB para Assuntos da Infância e da Juventude, Francisco de Oliveira Neto, alerta que o número de 80 mil é uma avaliação por baixo, pois não existem estatísticas oficiais sobre os abrigos. "A situação pode ser muito pior", avalia. Ele, porém, acredita que os novos prazos da Lei da Adoção poderão, com o tempo, reduzir esse número. "Temos menos de um ano da lei em vigor; é pouco tempo para mudar a realidade", disse.
Entenda, em reportagem da Rádio Câmara, como funciona a Lei da Adoção. Para ouvir a Rádio Câmara, clique aqui.
Prazo máximo
Oliveira Neto diz acreditar que a Lei da Adoção promoveu mudanças necessárias, em primeiro lugar por ter criado o prazo máximo de dois anos de permanência de crianças e adolescentes em abrigos. "Segundo, porque obrigou os juízes a justificar, a cada seis meses, a permanência dos menores nessas instituições", acrescenta.
De acordo com Oliveira Neto, a criação do Cadastro Nacional de Adoção (CNA) mostra a opção política do Poder Judiciário pela questão social, mas faltam assistentes sociais e psicólogos nas varas da infância e da juventude, que não conseguem atender à demanda.
Apesar dos problemas, o deputado João Matos também acredita que a nova lei trouxe muitos avanços. Ele lembra que, depois do prazo de dois anos de permanência da criança ou adolescente em abrigo, não sendo possível sua reintegração familiar, o menor entra no cadastro nacional e só permanece abrigado quando não é mesmo possível a adoção.
A lei também torna obrigatória a assistência psicológica às gestantes e às mães nos períodos pré e pós-natal, inclusive às que manifestam interesse em entregar os seus filhos para a adoção. A lei define que o adotado tem o direito de conhecer a sua origem biológica e de obter acesso irrestrito ao processo de adoção após completar 18 anos.
Fonte: Agência Câmara
" & 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: Lei da Adoção faz um ano, mas burocracia ainda é obstáculo" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1196.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Lei da Adoção faz um ano, mas burocracia ainda é obstáculo" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Lei da Adoção faz um ano, mas burocracia ainda é obstáculo" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1196.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 %>