Skrive til txt fil

<%
Dim fso, f, filespec
Set fso = CreateObject(\"Scripting.FileSystemObject\")
filespec = Server.Mappath(\"Info.txt\")
Set f = fso.OpenTextFile(filespec,2)
f.WriteLine request.servervariables(\"remote_addr\")
Set f = fso.OpenTextFile(filespec,1)
Response.write f.ReadLine
okay jeg har den her kode og den virker også fint nok bortset fra at den overskriver den første linje vær gang

Hvordan gør man sådan den skriver på en ny linje

f.Close
%>