fso mappath

[Thomas]

Hallo Zusammen, ich habe schon mal gepostet aber komme nicht weiter

ich möchte ein script zum laufen bringen.

Win 2000 server
iis 5.0

Bekomme eine Fehlermeldung zu dieser Funktion:

Fehler: Datei nicht gefunden:

------------------------------------------------------------
------------------------------------------------------------
Function readTextFile( strTextfile )
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
  Dim fso, f
    Set fso = Server.CreateObject("Scripting.FileSystemObject") 'Erzeugung FileSystemObject
    Set f=fso.OpenTextFile(Server.MapPath("strTextfile"), 1, False)  'öffnen der Textdatei
    Set f=fso.OpenTextFile(strTextfile, 1, False)  'öffnen der Textdatei
    If f.AtEndOfStream Then
     readTextFile = ""
    Else
    readTextFile = f.ReadAll 'Rückgabe des Zeicheninhaltes der Textdatei
    End If
    f.Close 'Schliesen Textdatei
    'Objekte terminieren
    Set f=Nothing
    Set fs=Nothing
End Function

---------------------------------------------------------------
---------------------------------------------------------------

Bitte helft mir:

Vielen Dank

Wenn Ihr noch mehr Code braucht, einfach Posten....
Tom