[Resolvido] "CAL�ADO " como resolver?

[*_Charles Potter_* 1]

Boa Madrugada gente,

 

Tipo to com um probllema de acentos em um dos meus sites, a palavra "CANÇADOS" fica "CAL�ADO"

 

Como resolver?

[hargon 64]

Isso acontece com informações vindas do banco de dados, Ajax ou com texto inserido manualmente no html?

[xanburzum 169]

acentos no XMLHTTP , convertendo os dados em formato Binário para String , e dá uma olhada neste link, um conteúdo interessante.

 

 

<%
Public Function BinaryToString(xBinary)
	Dim Binary
	Dim RS, LBinary
	If VarType(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary
	Const adLongVarChar = 201
	Set RS = CreateObject("ADODB.Recordset")
	LBinary = LenB(Binary)
	If LBinary>0 Then
		RS.Fields.Append "mBinary", adLongVarChar, LBinary
		RS.Open
		RS.AddNew
		RS("mBinary").AppendChunk Binary 
		RS.Update
		BinaryToString = RS("mBinary")
	Else
		BinaryToString = ""
	End If
	Set RS = Nothing
End Function

Public Function MultiByteToBinary(MultiByte)
	Dim RS, LMultiByte, Binary
	Const adLongVarBinary = 205
	Set RS = CreateObject("ADODB.Recordset")
	LMultiByte = LenB(MultiByte)
	If LMultiByte>0 Then
		RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte
		RS.Open
		RS.AddNew
		RS("mBinary").AppendChunk MultiByte & ChrB(0)
		RS.Update
		Binary = RS("mBinary").GetChunk(LMultiByte)
	End If
	Set RS = Nothing
	MultiByteToBinary = Binary
End Function
'------------------------------------------------


'Declaração das variáveis
Dim objXmlHttp
Dim Url
Dim Conteudo

'Inicialização do objeto
Set objXmlHttp	= Server.CreateObject("MSXML2.XMLHTTP")
	 
'Url do Site
Url = "http://rss.uol.com.br/0,,EI4795,00.xml"
				
'Resgatando os dados da URL via HTTP
objXMLHttp.Open "GET", Url, False
objXMLHttp.Send

'Utilizando a função "BinaryToString" não haverá mais problemas com acentos.
Conteudo = BinaryToString(objXmlHttp.ResponseBody)

Response.ContentType = "text/xml"
Response.Write Conteudo

'Destruição do objeto
Set objXmlHttp	= Server.CreateObject("MSXML2.XMLHTTP")
%>

[*_Charles Potter_* 1]

Ola, isto acontece com o texto que eu digito na página, html mesmo

[hargon 64]

Altera o charset para

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

 

Poste o resultado.

[*_Charles Potter_* 1]

Ola amigo, obrigado pela ajuda, mas continuou o erro...

Vlw

[hargon 64]

Tenta dessa forma então:

<%
Response.Charset="ISO-8859-1" 
%>

[xanburzum 169]

e dá uma olhada neste link, um conteúdo interessante, pode esclarecer algumas coisas

[*_Charles Potter_* 1]

Ahe gente,

 

Agora resolveu o problema de exibição nos menus,, mas quando adiciono uma informação no banco de dados ela fica estranah:

 

testé -> ficou -> testé

 

O que faço?

[hargon 64]

Qual banco de dados está utilizando?

[*_Charles Potter_* 1]

Mysql

[hargon 64]

Altere o Collation para latin1_swedish_ci e o Character Set para latin1 -- cp1252 West European

[*_Charles Potter_* 1]

Opa, vlw cara! FUnfo!

[hargon 64]

Muito bom. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif