Søg og ersat

Hej,

Jeg får et post fra et textfelt hvor der er noget html kode i. I den html kode er der nogle <img tags skal erstattes med en funktion.

Nedenstående virker som sådan også fint... problemet er hvis jeg har flere <img tags som skal ersattes, den erstatter kun den første den støder på.

Hvordan render jeg hele textfeltet igennem?


        html = Request.Form("inpContent")
       
        startpos = InStr(html, "!moduleStart!")
        stoppos = InStr(html, "!moduleEnd!")
       
        ' replace this tring with modulefunction string
        sReplacer = Mid(html, startpos+13, stoppos-startpos-13)
        sReplaceText = "<img alt=""!moduleStart!"&sReplacer&"!moduleEnd!"" src=""/admin/editor/scripts/module.gif"" />"
        ' find streng mellem start og stop
        sModuleFunction = "<% call " & sReplacer & "%" & ">"
       
        sNewHTML = replace(html,sReplaceText,sModuleFunction)