Indsæt linie i en txt fil

Hvordan indsætter man en linie i en txt fil.

den skal forresten indlæse linien øverst i filen altså først hvordan gør man det.

denne kode virker der sletter den indholdet og laver den ene linie

-----------------
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.CreateTextFile(Server.MapPath("log.txt"), 1,true)
f.Writeline("Test her")
f.close
set f=nothing
set fs=nothing
-----------------

når jeg så skal se txt filen
-----------------
        Set fs=Server.CreateObject("Scripting.FileSystemObject")
        Set f=fs.OpenTextFile(Server.MapPath("log.txt"), 1)
        response.Write "<font face=""Verdana"" size=""2"">"&Replace(f.ReadAll,vbcrlf,"<br>")&"</font>"
        f.Close : Set f=Nothing
        Set fs=Nothing

der viser den ikke filen korrekt skriver den bare ÿþT