HTML Datei einbinden ??

[Frank]

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

Hi Micha:

KÜRZEN.

<% pathb = Server.mappath(file)  %>
<% set fs = Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(pathb) then
  set data = fs.OpenTextFile (pathb,1)
  Response.Write data.readAll
  data.close
  set data = nothing
  set fs = nothing
else
  Response.Write "No such File"
end if
%>

Frank, der Minimalist (oder geht es noch kürzer??)