Replace

Hej.
Jeg har et lille problem. Hvordan laver man replace som sådan en her:

Tekst = replace(Tekst, \"%>\", \"%>\")

Den virker bare ikke da den siger

Der opstod en Microsoft VBScript-kompileringsfejl fejl \'800a0409\'
Strengkonstanten er uafsluttet
/www/opretforum.asp, linje 19
Tekst = replace(Tekst, \"
------------------------^
Hvordan får jeg den til at replace <% og %> i en tekststreg?