Habs mir gerade nochmal in meinem Code angesehen ;-)
Ist doch etwas aufwendiger.
--- Code ---
Function Parser(strCode)
' Vorbereitung um mittels Execute ausgef�hrt werden zu k�nnen
strCode = Replace(strCode, "<%=", "<% Response.Write")
strCode = Replace(strCode, "<% =", "<% Response.Write")
ToExecute = Split(strCode, "<%")
vbskript = "str = """ & Replace(Replace(ToExecute(0), chr(34), chr(34) &
chr(34)), vbcrlf, "") & """"
For i = 1 To UBound(ToExecute)
isASP = Split(ToExecute(i), "%" & chr(62))
vbskript = vbskript & vbcrlf & Replace(isASP(0), "Response.Write",
"str = str & ") & vbcrlf
vbskript = vbskript & "str = str & """ & Replace(Replace(isASP(1),
chr(34), chr(34) & chr(34)), vbcrlf, "") & """"
Next
Execute vbskript
Parser = str
End Function
Response.Write Parser(rs.Fields("Code"))
--- Code ---
Erkl�rung:
Die kurze Schreibweise mit dem = wird ersetzt durch "Response.Write".
Aufteilung in ein Array nach HTML und ASP Code.
Zusammenbasteln eines Strings "vbskript" der HTML und ASP Code so zusammenbastelt,
dass er mittels Execute ausgef�hrt werden kann.
In einer Schleife durch das ganze Array laufen.
Ausf�hren mit Execute.
R�ckgabe an die Funktion.
Aufruf der Funktion mit dem auszuf�hrenden Text.
Kannst das gerne so �bernehmen.
Ciao
Buchi
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
