[Resolvido] Gerando TXT a partir do ASP

Faço um select na BD do tipo Do while not rs.EOF e pego todos os campos de um registro da seguinte forma

 

 conteudo = conteudo & rs("ID")

 conteudo = conteudo & "*"

 conteudo = conteudo & rs("nome")

 conteudo = conteudo & "*"

 conteudo = conteudo & rs("CPF")

e por aí vai até o último campo onde coloco para mudança de linha do próximo registro

conteudo = conteudo & Chr(10) & Chr(13)

a página asp vem certa. Após escrever um registro com todos os campos separados por * , muda de linha e escreve o próximo

AGORA VEM O PROBLEMA

Quero gerar uma página TXT e faço isso

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

caminho = Server.MapPath("./lista_insc_cong.txt")

Set GRAVAR = FSO.CreateTextFile(caminho,true)

GRAVAR.writeLine (conteudo)

response.redirect("lista.txt")

No browser o lista.txt sai certo (igual a pg asp), mas quando salvo o TXT a coisa enrola

Além de não mudar de linha aparece uns quadradinhos entre cada registro.

Esses quadradinhos representam a quebra de linha escrita no asp

Como faço pra o txt salvo ficar igual ao txt mostrado no browser?

Agradeço antecipadamente qualquer ajuda