O que é mesmo uma crise capitalista?
Por Cristóvão Feil
Desde logo, vejamos o que não é uma crise capitalista:
Haver 950 milhões de famintos em todo o mundo não é uma crise capitalista.
Haver 4,75 bilhões de pobres no mundo não é uma crise capitalista.
Haver 1 bilhão de desempregados espalhados por todo o mundo não é uma crise capitalista.
Haver mais de 50% da população mundial no subemprego ou que trabalhe em condições precárias não é uma crise capitalista.
Haver 45% da população mundial sem a acesso direto à água potável não é uma crise capitalista.
Haver 3 bilhões de pessoas sem saneamento básico não é uma crise capitalista.
Haver 113 milhões de crianças sem acesso à educação e 875 milhões de adultos analfabetos não é uma crise capitalista.
Morrerem 12 milhões de crianças todos os anos por doenças que são perfeitamente curáveis não é uma crise capitalista.
Morrerem 13 milhões de pessoas a cada ano por causa da deterioração dos ambientes naturais e por mudanças climáticas não é uma crise capitalista.
Haver 16.306 espécies em vias de extinção, das quais 25% são mamíferos não é uma crise capitalista.
Tudo isto, como se sabe, já havia antes, e não gerou nenhuma crise capitalista.
Pode ser tudo, mas não é, segundo os economistas de mercado e “especialistas” na matéria, uma crise capitalista.
O que é, então, uma crise capitalista? Ou, dito por outras palavras, quando é que começa a sentir-se uma crise capitalista?
A crise capitalista aparece quando os lucros esperados, e que são o fim e a razão de ser das empresas capitalistas, não são alcançados. Aí sim, quando os lucros já não são tão elevados como se esperava, fala-se então de uma crise capitalista.
Ou seja, a crise capitalista surge quando os fatos associados aos indicadores sócio-econômicos acima referidos sobre a fome, a pobreza, o desemprego, a precariedade, a escassez de água potável e de apoio sanitário, mostram que não são suficientemente maus e negativos para garantir a rentabilidade dos investimentos e do capital dos poderosos grupos e empresas multinacionais, pelo que a manutenção da rentabilidade desses conglomerados empresariais exigirá ainda uma maior degradação das condições sociais de vida das populações como meio para garantir as tão almejadas taxas de lucro das grandes empresas mundiais, que são quem verdadeiramente dominam o mundo, segundo a lei que as governa, isto é, a maximização do lucro e a capitalização dos ganhos.
Curiosamente, dizem os “donos” deste mundo que quem não pensa em função da maximização dos lucros e da acumulação do capital, esses são pessoas sonhadoras, irresponsáveis, líricas, idealistas, subversivos…
Mas, afinal, quem se mostra verdadeiramente fanatizado pelo fundamentalismo do lucro e do capital, longe das realidades e das necessidades das populações, quem tem sido responsável pelo crescimento insustentável e desigualitário, quem se revela completamente viciado na roleta desta economia de cassino como é o capitalismo, são essas figuras pardas, cínicas e sombrias que nos governam, exploram e oprimem.
Fonte: Blog Diário Gauche (http://diariogauche.blogspot.com)
Publicado em 29/01/2009
<% 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: O que é mesmo uma crise capitalista?" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/artigos/art244.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: O que é mesmo uma crise capitalista?" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: O que é mesmo uma crise capitalista?" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/artigos/art244.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 %>