[Resolvido] Erro de caracteres

[iNando 0]

olá

estou com um erro de caracteres

 

eu tenho um sistema de newletter que lê um arquivo .txt

esse arquivo vem e utf-8 e quando mostro na tela mostra tudo errado, eu pequisei e descobri que tinha que colocar uma

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

ai ele mostra perfeitamente na tela.

 

o problema ve agora

 

nesse arquivo txt tem os nomes para as empresas que estou enviando

 

objCDOMail.From = "teste@teste.com.br"

objCDOMail.To = nome &"<"& email &">;"

objCDOMail.Subject = assunto

objCDOMail.HTMLBody = corpo

quando recebo o email onde aparece to ou para mostra o nome com os caracteres errado pq?

 

eu usei um conversor que descobri ema as o decode e o encode mas mesmo assim ele da esses resultados

 

Nome FEDERAÇÃO DO COMÉRCIO ESTADO DO PARà= normal

Enc FEDERAÇÃO DO COMÉRCIO ESTADO DO PARà= com enconde

Dec FEDERAM‡MO DO COM‰‰RCIO ESTADO DO PARà= com decode

 

alguem pode me ajudar com isso

 

deveria ser assim FEDERAÇÃO DO COMÉRCIO ESTADO DO PARÁ

[jrcardozo 4]

coloque isso na primeira linha da página

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

[iNando 0]

kra eu coloquei o codigo mas mesmo assim quando recebo o email recebo assim

 

FEDERAt?tO DO COM??RCIO ESTADO DO PAR

 

eu ja não sei mais o que pode ser

gostaria de agradecer pela sua ajuda

vamos tentar descobrir esse erro nunca tinha visto isso confusao de caracteres

[kaplan 0]

tenta utilizar esta codificação

 

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

[iNando 0]

o problema é que meu código executa em tempo de execução ante de montar o a tag head

entendeu

eu pego os parametros e executo o codigo envia email

[DSerma 19]

Coloque isso no inicio da página ASP que faz o processo:

 

<%
Response.AddHeader "Content-Type", "text/html; charset=iso-8859-1"
response.expires=-1
%>

Abraços...

[leorjgj 0]

ou

 

Response.Charset="ISO-8859-1"

 

Abs!

[jrcardozo 4]

se apenas o charset não resolver adicione essa aqui no inicio

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

[iNando 0]

consegui pessoal não foi facil descobrir

tive que usar esses codigos para funcionar

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

Response.Charset="ISO-8859-1"

function DecodeUTF8(s)

dim i

dim c

dim n

 

i = 1

do while i <= len(s)

c = asc(mid(s,i,1))

if c and &H80 then

n = 1

do while i + n < len(s)

if (asc(mid(s,i+n,1)) and &HC0) <> &H80 then

exit do

end if

n = n + 1

loop

if n = 2 and ((c and &HE0) = &HC0) then

c = asc(mid(s,i+1,1)) + &H40 * (c and &H01)

else

c = 191

end if

s = left(s,i-1) + chr© + mid(s,i+n)

end if

i = i + 1

loop

DecodeUTF8 = s

end function

 

 

valeu pessoa caso der algum erro novamento sobre esses caracteres estamos novamente ai

=)

 

obrigado a todos pela ajuda valiosa de vocês