Variable in Datei schreiben

[Hochrieser Reinhard]

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
%>