nicht angemeldet
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??
-
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!
-
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 :-) )
-