Skrive til fil...

Er der nogen der kan forklare mig hvorfor nedenstående ikke virker...?
Desuden vil jeg gerne vide hvordan jeg kan skrive flere linier til den samme fil (over flere omgange), hvor den sidst indtastede kommer øverst i filen.

koden:

<html>
<body>
<TABLE align="center" valign="middle" border=0>
    <TR>
    <TD  class="a" ALIGN="right" bgcolor="white">
    <b><font face="Tahoma" size="2">link:</font></b>
    </TD>
    <TD>
    <input name="link" type="text"></input>
    </TD>
    </TR>
    <TR>
    <TD ALIGN="right">
    </TD>
    <TD>
    <form method="post">   
    <INPUT TYPE="submit" VALUE="Submit"></INPUT>
    <INPUT TYPE="reset" VALUE="Reset"></INPUT>
    </form>
    </TD>
    </TR>
</TABLE>
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/tekstfil.txt")
Set f = fso.OpenTextFile(filespec,2)

f.Write Request.Form("link")

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

/ræven