[Resolvido] Estou usando na tag meta utf-8 mas fica com caractere

[TeixeiraRamos 4]

Xanburzum porque a sua orinteção deconfigura a página.

 

O Sagado mandou eu colocar isso na pagina "sendmail.asp"

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

 

Resolveu de imediato.

Continuei no assunto pois a página contato.html estava com o mesmo problema.

Dai o Xanburzun, na "Postado 05 junho 2010 - 22:16", mandou eu colocar o mesmo na página contato.html, ou saja:

 

coloca também na página o

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

 

e depois no código o charset

 

Fiquei meio com dúvida mas coloquei no código html.

Depois disso reparei que desconfigura a página.

Se retira da página contato.html a linha

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

 

A pagina fica normal.

E agora:

Observe a minha página de estudos conclicando em "Contato" na parte superior.

Se retirar a linha

[::..Hunter..:: 1]

Pessoal, estou com um problemaço aqui com esse negócio de utf-8, o meu problema é o seguinte:

 

Dinamicamente salvo um arquivo para ser enviado em anexo ao email, acontece que este arquivo precisa ser salvo como utf-8 para mostrar os acentos (senão ele come a letra que tem acentuação e não mostra), porém quando salva e abro ele no notepad++ mostra como ansi. Já tentei o seguinte na página que gera o arquivo:

 

<%

@LANGUAGE="VBSCRIPT" CODEPAGE="65001"

Response.CodePage = 65001

Response.CharSet = "utf-8"

%>

E quando monta o html que será salvo:

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

 

Porém não tem Cristo que faça o arquivo salvar em utf-8.

 

Fuçando pela net vi que parece que usando Scripting.FileSystemObject no asp não aceita salvar em utf-8, alguém tem alguma idéia de como salvar o arquivo em utf-8?

 

Grato por qualquer ajuda.

 

Realmente fisystemobject não grava em utf-8, consegui da seguinte maneira:

 

const adTypeBinary = 1

const adSaveCreateOverwrite = 2

const adModeReadWrite = 3

 

arquivo= request.serverVariables("APPL_PHYSICAL_PATH") & "visita_" & session("cod_codigo") & ".ics"

Set objStream = server.CreateObject("ADODB.Stream")

objStream.Open

objStream.Position = 0

objStream.CharSet = "UTF-8"

objStream.WriteText("cada linha de texto vai aqui 1")

objStream.WriteText("cada linha de texto vai aqui 2...")

objStream.SaveToFile arquivo, adSaveCreateOverWrite

objStream.Close

 

Desta forma o arquivo vem salvo como utf-8.

 

 

Pessoal, estou com um problemaço aqui com esse negócio de utf-8, o meu problema é o seguinte:

 

Dinamicamente salvo um arquivo para ser enviado em anexo ao email, acontece que este arquivo precisa ser salvo como utf-8 para mostrar os acentos (senão ele come a letra que tem acentuação e não mostra), porém quando salva e abro ele no notepad++ mostra como ansi. Já tentei o seguinte na página que gera o arquivo:

 

<%

@LANGUAGE="VBSCRIPT" CODEPAGE="65001"

Response.CodePage = 65001

Response.CharSet = "utf-8"

%>

E quando monta o html que será salvo:

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

 

Porém não tem Cristo que faça o arquivo salvar em utf-8.

 

Fuçando pela net vi que parece que usando Scripting.FileSystemObject no asp não aceita salvar em utf-8, alguém tem alguma idéia de como salvar o arquivo em utf-8?

 

Grato por qualquer ajuda.

 

Mais uma coisa, se ao salvar o arquivo em utf-8 tiverem algum problema para abrir é por causa do BOM, será necessário salvar sem BOM.

 

' Removes the Byte Order Mark - BOM from a text file with UTF-8 encoding
' The BOM defines that the file was stored with an UTF-8 encoding.
Public function RemoveBOM(filePath)
       
        ' Create a reader and a writer
                Dim writer,reader, fileSize
                Set writer = CreateObject("Adodb.Stream")
                Set reader = CreateObject("Adodb.Stream")
       
        ' Load from the text file we just wrote
                reader.Open
                reader.LoadFromFile filePath
       
        ' Copy all data from reader to writer, except the BOM
                writer.Mode=3
                writer.Type=1
                writer.Open
                reader.position=5
                reader.copyto writer,-1

        ' Overwrite file
                writer.SaveToFile filePath,2
       
        ' Return file name
                RemoveBOM = filePath

        ' Kill objects
                Set writer = Nothing
                Set reader = Nothing

end Function

Isso tudo tive que fazer para poder gerar um arquivo icalendar para ser aberto no outlook.

 

ps: esse forum não permite editar uma mensagem anterior?