vis indholdet fra en txt.fil i et textarea eller celle med scroll

nedenstående viser min kode, men alle tvungne linieskift forsvinder når jeg forsøger at vise teksten i et textaray. Reelt set ønsker jeg at vise teksten i en rude med scroll verticalt. Det fungerer fint i en tabel med en celle, men det kan jeg ikke få til at virke med en scroll i cellen.

Response.write "<textarea cols='53' rows='23' readonly='true'>"
    Dim fso, f, filespec
    Set fso = CreateObject("Scripting.FileSystemObject")
    filespec = Server.Mappath("tekst.txt")
    Set f = fso.OpenTextFile(filespec,1)
    Do While not f.AtEndOfStream
      Response.write f.ReadLine & "<br>
    Loop
    f.Close
  Response.write "</textarea>"

formodentlig er problemt simpelt.. men...