Yukarıdaki çalışmazsa da bunu deneyebilirsin.

<%
set nesne = Server.CreateObject("Scripting.FileSystemObject")
set AO = nesne.OpenTextFile(Server.MapPath("ali.txt"),1)
      Response.Write Replace(AO.ReadAll,chr(13),"<br>")
AO.close
%>

Sonucu yazarsan sevinirim. chr(13) olmazsa chr(10) dene, yap bişeyler işte