Skrivning til txt fil

Hej,

Jeg har et forholdsvis simpelt problem som går på at jeg får flg. fejl i mit script:

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A005B)
Objektvariablen er ikke angivet
/arduous/tlf/default.asp, line 28

Linie 28 består af:

Set f = fso.OpenTextFile(filespec,2)

--------------------------------------
hele scriptet:

Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("numre.txt")
Set f = fso.OpenTextFile(filespec,1)

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
  Response.write f.ReadLine & "<br>"
Loop

f.Close

if request("mode") = "add" then

Set f = fso.OpenTextFile(filespec,2)

' Skriv tekst i en linie
f.Write Request.Form("navn") & ", " & Request.Form("nummer")

' Åbn filen til læsning og Læs linie for linie
Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream
  Response.write f.ReadLine & "<br>"
Loop
f.Close

end if