Replace melder fejl

Jeg er ved at udvikle et nyhedsbrev hvor man skal kunne sætte databasefelter ind i teksten.

Eksempelvis har jeg lavet så udgangspunktet ser sådan her ud:
----------------------------------------------
Hej --|modtager|--

Her skriver du nyhedsmailen
----------------------------------------------

Jeg prøver så at "replace":
Text    = rs_newsletter("Text")
Text    = Replace(Text,"--|","<%=")
Text    = Replace(Text,"|--","%>")

Meeen det vil ikke rigtig virke - melder fejl:
Microsoft VBScript compilation  error '800a0409'

Unterminated string constant

newsletter.asp, line 12

Text        = Replace(Text,"|--","
----------------------------^

Nogen der kan hjælpe???