Movimento Estudantil faz campanha por doações para o Nordeste
A situação é caótica em Alagoas e Pernambuco, estados que têm enfrentado fortes chuvas nas últimas semanas, registrando até agora 57 vítimas fatais. Por todo o país campanhas arrecadam donativos para os mais de 55 mil desabrigados. A página da União Nacional dos Estudantes (UNE) divulga campanha por doações para os atingidos pelas chuvas nos estados do Nordeste.
A Secretaria Nacional de Defesa Civil registra até o momento a morte de 57 de pessoas vítimas das enchentes assolam Alagoas e Pernambuco nas últimas semanas. Em Alagoas, quatro municípios decretaram situação de emergência, e 15 de calamidade pública. No Estado de Pernambuco, 27 cidades decretaram situação de emergência e 12 estão em estado de calamidade pública.
A situação é dramática em Pernambuco, onde 39 municípios foram atingidos pela força das águas. Já são cerca de quase 27 mil desabrigados e 20 mortos. Alagoas mais de 26 mil desabrigados, 69 desaparecidos e 37 óbitos.
Solidariedade
Brasileiros de todas as regiões do país estão fazendo doações em prol das vítimas das enchentes. Saiba como contribuir também.
Agências dos Correios e da Caixa Econômica Federal em todos os municípios, além de shoppings, terminais rodoviários e postos da Defesa Civil estão arrecadando donativos, assim como o Corpo de Bombeiros e a Polícia Militar. A preferência é por alimentos não perecíveis, roupas, materiais de higiene e limpeza e água.
A web está ajudando a recrutar voluntários e disseminar as campanhas por doações. Um exemplo é o site www.sosalagoas.al.org.br, que mostra mapa detalhado das regiões atingidas, bem como as maiores necessidades.
Em Pernambuco, há possibilidade de fazer doações em dinheiro, via depósito bancário, em conta indicada no site do Governo do Estado.
SOS Movimento Estudantil
As entidades estudantis se mobilizam também para cooperar com as vítimas das chuvas no nordeste, convocando a rede do movimento estudantil em todo o Brasil a participar, a exemplo de outras catástrofes recentes.
Em janeiro o município paulista de São Luis do Paraitinga ficou submerso por conta dos temporais da época. A União Estadual dos Estudantes de São Paulo (UEE-SP) mobilizou os estudantes da capital e arrecadou alimentos, roupas, entre outros itens de primeira necessidade para os atingidos.
O diretor de Relações Internacionais da UNE, Daniel Iliescu, viu de perto os estragos do terremoto que destruiu no início do ano parte de Porto Príncipe, capital Haitiana. A entidade ofereceu ajuda humanitária de estudantes recém formados para a reconstrução do país.
“Contar com a solidariedade das entidades estudantis é contar com o apoio certeiro dos estudantes de todo país”, afirmou Carlos Siqueira, presidente da UEE-SP.
Fonte: UNE
" & 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: Movimento Estudantil faz campanha por doações para o Nordeste" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1261.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Movimento Estudantil faz campanha por doações para o Nordeste" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Movimento Estudantil faz campanha por doações para o Nordeste" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc1261.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 %>