guardar BinaryWrite

[Ascariz]

Hola a todos.

Estoy leyendo un correo web en asp y lo que necesito es guardar el body en una variable el programa para leer los correos son este

set mailman = Server.CreateObject("ChilkatWebMail2.WebMailMan2")

y el metodo para saber si es en HTML o PLANO son

email.HasHtmlBody() = email HTML
email.HasPlainTextBody() = email SIN HTML

pero cuando guardo el plano y lo muestro por pantalla me sale asi
EJ
response.BinaryWrite( variable )
-- por pantalla
el texto me sale bien

pero si lo pongo
EJ
response.Write( variable )
-- por pantalla
????,????.?????? etc...

Como lo puedo hacer?

[tammander]

Hola :)

¿Puedes poner el código de cómo lo guardas?



Un saludo

[Ascariz]

buenas

Lo que hago es sacarlo de un correo que esta en Binary

' lo saco por pantalla
Response.BinaryWrite( email.GetMbPlainTextBody("utf-8"))

' lo guardo en una variable
dim texto
texto = email.GetMbPlainTextBody("utf-8")

' lo mismo pero en un a session
session("email") = cstr(texto)

' lo mismo pero en un fichero
dim fs, f
set fs=Server.CreateObject("Scripting.FileSystemObject ")
response.Write(Server.MapPath("/")&"\1.txt")
set f=fs.CreateTextFile(Server.MapPath("/")&"\1.txt",true)

f.Write(texto)
' ME DA UN ERROR
'Argumento o llamada a procedimiento no válidos

f.Close
set f=nothing
set fs=nothing

[tammander]

Si son binarios deberás guardarlos como datos binarios no como texto.

For nIndex = 1 to LenB(texto)
f.Write Chr(AscB(MidB(texto,nIndex,1)))
Next

Si no lo haces asi, VBScript intentará grabar caracteres extraños en forma de texto con lo cual aunque el objeto no te diera error, el archivo resultante sería irreconocible.



Un saludo

[Ascariz]

muchas gracias