Out of string space

Jeg har lavet en lidt primitiv funktion til at fjerne noget javascript på en side:


function removescript(inp)  ' fjerner mellem <script og </script> hvis skrevet korrekt uden mellemrum

Do While (Instr(inp,"<script")>0 And Instr(inp,"</script>")>0)

        strVenstre=left(inp,(Instr(inp,"<script")-1))
        varH=Instr(inp,"</script>")+8
        strHoejre=Right(inp,(LEN(inp)-varH))
        'Response.Write(strHoejre)
        'Response.Write("SLUT")
        inp = strVenstre & strHoejre
        set strVenstre=nothing
        set strHoejre=nothing
        set varH=nothing

    Loop



    removescript = inp
end function

Det fungerer nogenlunde, men hvis der er mange <script>-tags-på siden, fejler den. Hvad kan jeg gøre