HTML Datei einbinden ??

[Michael]

Hallo,

Mit folgendem Code kann ich Textdateien einlesen aber keine HTML
Seiten :-< Frage warum? bzw. was muss ich ändern???

<%
Const fsForReading = 1
Dim strDateiname, strInhalt, strInhaltHTML
Dim objFs           ' FileSystemObject Objekt
Dim objTextStream   ' Textstream Objekt
strDateiname = "C:\14200.htm"
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFs.OpenTextFile(strDateiname, fsForReading)
strInhalt = objTextStream.ReadAll
strInhaltHTML = Server.HTMLEncode(strInhalt)
strInhaltHTML = Replace(strInhaltHTML,vbCrLf,"<BR>" & vbCrLf)
Response.Write strInhaltHTML
objTextStream.Close
Set objTextStream = Nothing
Set objFs = Nothing
%>

Danke schonmal
Ciao
Michael