problemas con los acentos al sobreescribir un TXT

[seresac]

Hola,
estoy haciendo una pequeña aplicación en ASP que modifica el contenido de un archivo TXT. A la vez, ese TXT es el que usa flash para alimentarse de contenidos.

El caso es que funciona pero tengo un problema con los acentos y las ñ. Si escribimos manualmente el TXT el flash lee correctamente los acentos y ñ, pero si modifico el TXT a través de ASP, lo que guarda con caracteres estraños los acentos y ñ y por tanto despues el flash lo muestra incorrectamente.

Por ejemplo día escrito a través del ASP queda --> dÃ*a

Creo, que el problema lo tiene el archivo que sobreescribe el TXT. El código es el siguiente:

<%

text = request("text")
titol = request("titol")

set fs = createobject("scripting.filesystemobject")

Const ForWriting = 2
set wfile = fs.opentextfile("contenido.txt", ForWriting)
wfile.writeline (text)

set wfile = fs.opentextfile("titulo.txt", ForWriting)
wfile.writeline (titol)


wfile.close
set wfile=nothing
set fs=nothing

%>

alguna idea?