Word- oder Text-Datei darstellen

[René Meinecke]

Hi,

danke für die schnelle Bearbeitung meiner Anfrage, aber auch das Ausschalten von Norton AntiVirus hat nichts gebracht.

Hier ist der Code, den ich aufrufen möchte:

<%
Option Explicit
Dim objFileSys
Dim TheTextStream
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
set TheTextStream = objFileSys.CreateTextFile("temp.txt", True)
TheTextStream.WriteLine "This is the first line."
TheTextStream.WriteLine "This is the second line."
TheTextStream.Write "No end of line."
TheTextStream.WriteBlankLines 2
TheTextStream.WriteLine "Another line."
TheTextStream.Close
set TheTextStream = objFileSys.OpenTextFile("temp.txt", 1)
Response.Write TheTextStream.ReadAll & "<P>"
TheTextStream.Close
set TheTextStream = objFileSys.OpenTextFile("temp.txt", 1)
Do Until TheTextStream.AtEndOfStream
   Response.Write TheTextStream.ReadLine & "<BR>"
Loop
TheTextStream.Close
set TheTextStream = objFileSys.OpenTextFile("temp.txt", 1)
Response.Write "<BR>" & TheTextStream.Read(6) & "<P>"
Response.Write "On Line: " & TheTextStream.Line & "<BR>Column: " & TheTextStream.COlumn
TheTextStream.Skip 4
Response.Write "<BR>" & TheTextStream.Read(3) & "<P>"
TheTextStream.SkipLine
Response.Write TheTextStream.ReadLine
%>

Peace René