I you all! Thanks for reading!!!
I'm trying to download a text file through the download dialog box using Ado stream:

 set adoStream = Server.CreateObject("ADODB.Stream")
adoStream.Open()
adoStream.CharSet = "x-ansi"
adoStream.Type = 2 ' adTypeText
adoStream.WriteText( file_body )
adoStream.Position = 0
adoStream.Type = 1 'adTypeBinary

Response.Clear
Response.AddHeader "Content-Length", len(file_body)
Response.AddHeader "Content-Transfer-Encoding", "binary"
Response.AddHeader "Content-Disposition", "attachment; filename="& file_name &"; "
Response.ContentType = "application/unknown"
Response.BinaryWrite( adoStream.Read() )
adoStream.Close
Response.End

This is the look of the original string, with carriage returns and line feeds properly displayed

But when I open the downloaded file, it looks like this:

How can I recover the original formating of the file_body string in the saved file
Also I tried to use the ReadText method, but it puts a space between each character (???)