Extract the code of a string in a specified format using ASP

A string: asdfasdlfajsodf {# kljlkkm #} ojgvjfkdsf {# wdfs #} llsdflksdf
I want to find the {# kljlkkm #}and {# wdfs #} in the list...

1. split method:CopyCodeThe Code is as follows: <%
Dim I, scode, acode, snewcode
Scode = "asdfasdlfajsodf {# kljlkkm #} ojgvjfkdsf {# wdfs #} llsdflksdf"
Acode = Split (scode ,"{#")
Snewcode = ""
For I = 0 to ubound (acode)
If instr (acode (I), "#}")> 0 then snewcode = snewcode & "{#" & Split (acode (I), "#}") (0) &"#}"
Next
Response. Write snewcode
%>

2. Regular Expression: copy Code : <%
dim scode, snewcode, otempreg, match, matches
scode = "asdfasdlfajsodf {# kljlkkm #} ojgvjfkdsf {# wdfs #} llsdflksdf"
set tempreg = new Regexp
with tempreg
. ignorecase = true
. global = true
. pattern = "\{\#. +? \#\} "
set matches =. execute (scode)
for each match in matches
snewcode = snewcode & match. value
next
end with
set tempreg = nothing
response. write snewcode
%>