Avaliação do Governo e desempenho de Lula sobem, aponta Ibope
Para 68% dos entrevistados em junho, o Governo é "ótimo" ou "bom", depois de ter atingido 64% em março. Em dezembro, a administração atingiu o recorde, com 73% de avaliação positiva. Na pesquisa, Serra (PSDB), está em 1º lugar, com 38%, seguido por Dilma, com 18%
A avaliação positiva do Governo do presidente Luiz Inácio Lula da Silva e a aprovação de seu desempenho subiram em junho, de acordo com pesquisa CNI/Ibope divulgada nesta terça-feira (9).
Para 68% dos entrevistados em junho, o Governo é "ótimo" ou "bom", depois de ter atingido 64% em março. A avaliação ruim ou péssima do governo caiu para 8%, ante 10% na pesquisa anterior
Em dezembro, a administração Lula atingiu o recorde, com 73% de avaliação positiva. A avaliação ruim ou péssima do governo caiu para 8%, ante 10% na pesquisa anterior.
Já a aprovação do presidente subiu para 80% ante 78% em março. O recorde era de 84% em dezembro. A confiança dos entrevistados em Lula subiu para 76%, ante 74% da sondagem anterior.
Eleições 2010
A pesquisa mostra ainda o governador de São Paulo, José Serra (PSDB), em primeiro lugar, com 38% das intenções de voto, seguido pela ministra-chefe da Casa Civil, Dilma Rousseff, com 18%.
O deputado Ciro Gomes (PSB/CE) detém 12%, ocupando o terceiro lugar, e a ex-senadora Heloísa Helena (PSol), 11%.
Em outra lista, em que o candidato do PSDB é o governador de Minas Gerais, Aécio Neves, Ciro Gomes e Dilma Rousseff aparecem tecnicamente empatados na liderança, com 22% e 21%, respectivamente.
O tucano Aécio vem em terceiro lugar, com 12%, seguido de perto por Heloísa Helena, com 11%.
Esta é a primeira vez que a pesquisa CNI/Ibope investiga cenários para as eleições presidenciais de 2010.
A pesquisa foi feita entre os dias 29 de maio e primeiro de junho, ouviu 2002 entrevistados, em 143 municípios.
O universo é de eleitores com mais de 16 anos.
O Ibope entrevistou 2.002 pessoas entre os dias 29 de maio de 1o de junho em 143 municípios. A margem de erro da pesquisa é de 2 pontos percentuais.
Fonte: Diap
Publicado em 10/06/2009
" & 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 = "Avaliação do Governo e desempenho de Lula sobem, aponta Ibope" strBody = strBody & "O link abaixo é uma sugestão de leitura: Avaliação do Governo e desempenho de Lula sobem, aponta Ibope" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc689.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Avaliação do Governo e desempenho de Lula sobem, aponta Ibope" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/msoc/nmsoc689.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
%>