Hi Tom,
Set f=fso.OpenTextFile(Server.MapPath("strTextfile"), 1, False) 'öffnen der Textdatei
das ist der Fehler. Da wird versucht, eine Datei namens strTextfile zu öffnen, statt eine Datei mit dem Namen, der in der Variable strTextfile steht. Mach die Anführungszeichen weg, dann wird's gehen.
Gruß,
Martin