Hallo nochmal!
Ich hab deinen Code mal ausprobiert,nur leider funktionier da was nicht, es kommt immer die Fehlermeldung:
Laufzeitfehler,
Objekt erwartet und springt dann im Debugger auf die Zeile:
Set ersetzArray = Server.CreateObject("Scripting.Dictionary")
so sieht das ganz jetzt bei mir aus:
html_text = rs.Fields(2)
Set ersetzArray = Server.CreateObject("Scripting.Dictionary")
ersetzArray("ä") = "%E4"
ersetzArray("ö") = "%F6"
ersetzArray("ü") = "%FC"
ersetzArray("<") = "%3C"
ersetzArray(">") = "%3E"
ersetzArray(" ") = "%20"
For Each entity In ersetzArray.Keys
html_text = Replace(html_text, entity, ersetzArray(entity))
Next
Response.write html_text
Set ersetzArray = Nothing
Was mache ich falsch?
rs.Fields(2) kommt aus einem Recordset mit SQL, ich führe diesen Code dann immer in der Schleife durch, so das jede Zeile geändert wird.
Weißt Du woran das liegt?
Gruß
Andreas