Die Reihenfolge geht so: alle Includes aufl�sen. Dann den Code
ausf�hren. Klar, warum das so nicht geht?
Irgendwas in der Beschreibung macht mich stutzig. Wenn es tats�chlich
darum geht Datenbankinhalte auszugeben, dann geht das anders und das im
folgende gesagte ist hinf�llig.
Wenn es tats�che darum geht eine Datei einzubinden, hiermal eine
Funktion, die eine HTML Datei nimmt und den Teil zwischen <body> und
</body> in die aktuelle Seite einf�gt. Kann/muss man halt nach Bedarf
um�ndern.
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
--
Viele Gr��e
Hubert Daubmeier
-----Original Message-----
From: Alexander Husic [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, September 18, 2001 1:31 AM
To: ASP Diskussionsliste fuer Anfaenger
Subject: [aspdebeginners] dymanische includes
hallo liste,
ich bin auf der suche nach einem tut f�r dynamische includes.... ich
habe zwar hier eine gefunden, doch ist das nicht das, was ich brauche,
oder ich habe es nicht verstanden.
ich habe nun folgenden ansatz gefunden und versucht abzuwandeln... mit
"durchschlagendem" erfolg:
strMain = getFileContents("Link_Cat_ID")
If Request.form("cboFile") = "" Then
strInclude = getFileContents("Link_Cat_ID")
Else
strInclude = getFileContents(Request.form("cboFile"))
End If
strMain = replace(strMain,"<!-- INCLUDE FILE HERE -->",strInclude)
Response.Write strMain
und folgender fehlermeldung:
Laufzeitfehler in Microsoft VBScript- Fehler '800a000d'
Typen unvertr�glich: 'getFileContents'
/xperience/asp/main.asp, line 20
ich vermute, dass das an dem aufruf des datenbank feldes liegt.... nur
so br�uchte ich es aber. wer kann mir weiterhelfen????
danke im voraus,
alexander husic
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv Sie
| knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
