tilføje en linie i slutningen af en fil

http://www.html.dk/tutorials/asp/lektion16.asp

//Claus

<html>
<title>Skriv i tekstfiler</title>
<head>
</head>
<body>
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/tutorials/asp/tekstfil.txt")
Set f = fso.OpenTextFile(filespec,8)

' Skriv tekst i en linie
f.WriteLine "VBScript og ASP er sjovt!"

' Åbn filen til læsning og læs linie
Set f = fso.OpenTextFile(filespec,1)
Response.write f.ReadLine

f.Close
%>
</body>
</html>

tak