skrive tomme linier i en txtfil

henter fra textfil til en form således:

<textarea name="lederliste" cols="65" rows="20">
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("ledere.txt")
Set f = fso.OpenTextFile(filespec,1)

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
  Response.write f.ReadLine & VbCrLf
Loop
f.Close
%>
</textarea>

bliver opdateret via denne asp fil:

Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("ledere.txt")
Set f = fso.OpenTextFile(filespec,2)
strskriv = request.form("lederliste")
f.WriteLine strskriv
response.redirect "ledere.asp"

så står txtfilen således hvis der skrives:

hej

hej
hej


hej
hej
hej

men når jeg trækker den ud i ledere.asp med følgende kode:

<table width="500" border="0" cellspacing="0" cellpadding="0" class="tekst1">
  <tr><td>
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("ledere.txt")
Set f = fso.OpenTextFile(filespec,1)

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
Response.write f.ReadLine & VbCrLf
Loop
f.Close
%>   
    </td>
  </tr>
</table>

vises den således:

hej
hej
hej

hej
hej
hej

dvs. den smider det første linieskift væk, eller den læser ikke linieskiftene rigtigt.

Hvorfor ??? eller laver jeg en fejl.