Andreas: " in SQL Abfragen WIE? Will autom. Links generieren(VB)

Beitrag lesen

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