Problema com acentuação

[clayton-mer 0]

boa noite turma olha eu novamente, estou com o seguinte problema agora com acentuação, eu usa banco de dados sql server 2000

 

olha o ex.

 

o texto está assim

FARMÁCIA FILADÉLFIA

 

mais quando grava no banco de dados fica assim

FARMÃCIA FILADÉLFIA

 

ou o texto é assim

8;#Ogvh2;S4B)eÇa)Z~3/8fu9¨T0u.

 

ele grava no banco assim

8;#Ogvh2;S4B)eÇa)Z~3/8fu9¨T0u.

 

todos estão como campo varchar.

 

o que posso fazer para solucionar

 

olha o link nesse link ele mostra certinho mais quando grava no banco que fica errado, esses dados vem de um arquivo txt

http://www.samaejiv.com.br/importar/lista.asp

 

ai mostra certo.

[Ted k' 126]

isso pode ser sua codificação os charset do asp e do html tem que está coesos.

[clayton-mer 0]

isso pode ser sua codificação os charset do asp e do html tem que está coesos.

então ted já tentei varias configução qual devo usar, você recomenda alguma, porque ted k para mostrar mostra certo e quando grava no banco que grava errado.

[jrcardozo 4]

verifique o colation do banco e das colunas

de repente o charset do html ou do vb estão incompativeis

[clayton-mer 0]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

e no banco de dados, está assim

SQL_Latin1_General_Cp1_CI_AS

 

da coluna no banco de dados está

SQL_Latin1_General_Cp1_CI_AS

[clayton-mer 0]

t = "Mergulhão"
tr = "São Sebastião da Amoreira"
 
conexao.execute "INSERT INTO TbAgente (TipoRegistro, CodAgente, Agente) VALUES (1, '" & t & "', '" & tr & "')"

agora fiquei mais confuso ainda, olha dessa forma acima ele grava certinho, colocando em uma variavel, na mesma página.

 

Agora quando pega o txt ele não coloca os acentos da erro, então não é problema de colation eu acho seria que ser alguma conversão de variável.

 

o meu txt vem assim

 

2|1|7|FARMÁCIA FILADÉLFIA|8;#Ogvh2;S4B)eÇa)Z~3/8fu9¨T0u.|FF|

 

arrayLinha=split(texto.ReadLine,"|",-1,1)
conexao.execute "INSERT INTO TbAgente (TipoRegistro, CodAgente, Agente, CredAgente, Eol) VALUES ('" & arrayLinha(1) & "', '" & arrayLinha(2) & "', '" & arrayLinha(3) & "','" & arrayLinha(4) & "', '" & arrayLinha(5) & "')"

agora dessa forma ele grava mas não grava os acentos

 

ele teria que gravar assim

FARMÁCIA FILADÉLFIA

 

como está no txt, mais ele grava assim:

FARMÃCIA FILADÉLFIA

 

alguem já teve esse problema

 

Até mais turma

[clayton-mer 0]

Acho que as regras do forum não autoriza fazer isso que estou fazendo mais turma já tentei de varias formas, arrumar isso e acho que só com ajuda de vcs vou conseguir resover esse problema com as acentos...

 

porque dessa forma grava com os acentos

t = "Mergulhão"
tr = "São Sebastião da Amoreira"

conexao.execute "INSERT INTO TbAgente (TipoRegistro, CodAgente, Agente) VALUES (1, '" & t & "', '" & tr & "')"

e dessa forma não grava com os acentos

 

arrayLinha=split(texto.ReadLine,"|",-1,1)
conexao.execute "INSERT INTO TbAgente (TipoRegistro, CodAgente, Agente, CredAgente, Eol) VALUES ('" & arrayLinha(1) & "', '" & arrayLinha(2) & "', '" & arrayLinha(3) & "','" & arrayLinha(4) & "', '" & arrayLinha(5) & "')"