Skrive til textfil problem

Hej

Hmmm.. hvorfor virker det her bare ikke... jeg kan ikke se fejlen.

  <input type="textbox"  name="mail">
  <input type="submit" value="Tilmeld">
 
  <%
       
mail = Request.Form("mail")

if mail<>"" then


sti_til_textfil = Server.MapPath ("nyhedsbrev/nyhedsbrev.txt")        'Få den fysiske sti til text-filen

Set fso = Server.CreateObject("Scripting.FileSystemObject")    'Objekt til at få adgang til filsystemet

'Åben text-filen (8 = 'for appending') (True = Opret filen, hvis den ikke findes i forvejen)
Set ts = fso.OpenTextFile(sti_til_textfil, 8, True)       

ts.WriteLine(mail & ";" & mail)  'Skriv linje med "navn;alder" til text-filen

ts.Close                        'Luk text-filen
Set ts = Nothing                'Nulstil referencer til Objekter
Set fso = Nothing

response.write "Tak for tilmelding"
 
end if       
        response.write "</th>"
%>