peda: Fehlermeldung '800a003e' ?!?!?!

Hallo zusammen,
bin schon fast am verzweifeln! bitte um eure hilfe....
möchte von einem textfile daten auslesen. falls das file nicht existiert, soll es erstellt werden, da sie aber in diesem fall lehr ist, habe ich auch eine if-schleife eingebaut. Hier der source code:

Dim testaa
Set objaa = CreateObject("Scripting.FileSystemObject")
Set objTextaa = objaa.OpenTextFile(Server.MapPath("Speisenkarte/aa.txt"), 1, true)
testaa = objTextaa.ReadAll
if len(testaa) > 0 then
  response.write  "ist nicht lehr</td></tr>"
  response.write "<tr><td align='center'><br><br>"
  response.write testaa & "<br>"
Do While Not objTextaa.AtEndOfStream
  response.write(objTextaa.ReadLine) & "<br>"
Loop
else
  response.write "  </td></tr> "
end if
  response.write "</td></tr>"
objTextaa.close

jetzt ist also die txt datei (aa.txt) leer, weil gerade dyn. erstellt, sagt mir doch glatt der IE :

Laufzeitfehler in Microsoft VBScript- Fehler '800a003e'

Eingabe hinter Dateiende.

/deutsch/speise.asp, line 54

gebe ich ein "Enter" in das leere textfile ein, funktioniert es einwandfrei!
Was ist da falsch???
thks schon jetzt ;-)
Was mache ich falsch??

  1. Hallo peda ?,

    Was steht denn in der fehlerverursachenden Zeile?

    Tschau, Stefan

    jetzt ist also die txt datei (aa.txt) leer, weil gerade dyn. erstellt, sagt mir doch glatt der IE :

    Laufzeitfehler in Microsoft VBScript- Fehler '800a003e'

    Eingabe hinter Dateiende.

    /deutsch/speise.asp, line 54

    gebe ich ein "Enter" in das leere textfile ein, funktioniert es einwandfrei!

    1. Hallo peda ?,

      Was steht denn in der fehlerverursachenden Zeile?

      Tschau, Stefan

      hallo stefan,

      testaa = objTextaa.ReadAll

      bzw.

      testaa = objTextaa.ReadLine

      funktioniert beides nicht...

      thks
      peda (? = klaus :-) )