mhhh .. also ich habe es mal eingebunden, wobei ich sub durch function
ersetzt habe und den pfad ge�ndert habe...
function EmbedFileSimple(sFilename)
Dim fso, f, s, iWriteFlag
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Session("Pfad")&sFilename, CFORREADING)
EmbedFileSimple = f.ReadAll
f.close
End function
aber bei response.write(EmbedFileSimple(newName)) gibt er mir leider nichts
aus... weder fehler noch sonst was...
----- Original Message -----
From: Hubert Daubmeier <[EMAIL PROTECTED]>
To: AspGerman Kaffeehaus <[EMAIL PROTECTED]>
Sent: Tuesday, October 01, 2002 1:15 PM
Subject: [aspdecoffeehouse] Re: textdatei einbinden...
Hier mal ein Beispiel aus meiner Sammlung. Gedacht um fertige HTML
Dateien in anderen ASP-Scripten einzubinden. F�r reinen Text w�re es
noch einfacher (siehe zweite Function). �bergabe des Dateinamens in
Querystring (per Einzeiler programmiert), aus Cookies, und div. anderen
Quellen ...
Wie man den aufruft muss ich nicht demonstrieren - oder ;-)
Sub EmbedFile(sFilename)
Dim fso, f, s, iWriteFlag
Const CFORREADING = 1
Const CVBTEXTCOMPARE = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath(sFilename), CFORREADING)
Do While Not f.AtEndOfStream
s = f.ReadLine
if instr(1, s, "<body", CVBTEXTCOMPARE) > 0 then
iWriteFlag = true
elseif instr(1, s, "</body", CVBTEXTCOMPARE) > 0 then
iWriteFlag = false
else
if iWriteFlag Then
response.write s & vbcrlf
End If
End If
Loop
f.close
End Sub
Sub EmbedFileSimple(sFilename)
Dim fso, f, s, iWriteFlag
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath(sFilename), CFORREADING)
EmbedFileSimple = f.ReadAll
f.close
End Sub
--
Viele Gr��e
Hubert Daubmeier
| [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
