Variable in Datei schreiben [ASP]

[hewlett]

Hy Leute,

ich habe vor Email Adressen in einer Datei am Server abzulegen, das schreiben in die Datei funktioniert auch, jedoch erstellt er die Datei immer neu und fügt die Email Adressen nicht am Ende hinzu! Wo kann der Fehler liegen.

<%
' FileSystemObject objFs oeffnen
Set objFs= CreateObject("Scripting.FileSystemObject")

' Dateiname festlegen
strDateiname = Server.MapPath("/testdatei.txt")

' Einen Textstream (objTextStream) zur Textdatei oeffnen
Set objTextStream = objFs.CreateTextFile(strDateiname, True)

' Inhalt fuer Datei in String strWriteString speichern:
strWriteString = "Text fuer die Datei"

' String in Datei schreiben:
objTextStream.Write strWriteString

' Objekte schliessen
objTextStream.Close
Set objTextStream = Nothing
Set objFs = Nothing
%>