tilføj linie til text-fil

Jeg har en mailinglist.
Til denne vil jeg gerne lave det sådan at den skriver til en textfil hver gang den har sendt en mail, altså som en log-fil.
Jeg kan godt få den til at skrive i text-filen, men jeg ved ikke hvordan man tilføjer en ny linie, det er som om den bare overskriver den første linie.

Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("log.txt")
Set f = fso.OpenTextFile(filespec,2)
f.Writeline "ok, " & dk
f.Close