For a string: asdfasdlfajsodf {#kljlkkm#} ojgvjfkdsf {#wdfs#} LLSDFLKSDF
no any rule... I am going to put the inside of the {#kljlkkm#} and {#wdfs#} to find out...

1, the Split method:

<%
Dim I, sCode, aCode, sNewCode
sCode="asdfasdlfajsodf ojgvjfkdsf {#kljlkkm#} {#wdfs#} LLSDFLKSDF"
aCode=Split (sCode, "{#")
sNewCode=""
For I=0 To UBound (aCode)
If InStr (aCode (I)," #} ") >0 Then sNewCode=sNewCode &"{#" &the Split (aCode (I), "#}") (0) &"#}"
Next
Response. Write sNewCode
% >

2, regular way:

<%
Dim sCode, sNewCode oTempReg, Match, Matches the
sCode="asdfasdlfajsodf ojgvjfkdsf {#kljlkkm#} {#wdfs#} LLSDFLKSDF"
Set TempReg=New RegExp
With TempReg
IgnoreCase=True.
Global=True.
the Pattern="\ {#1 \ #+? \ \}"
Set Matches.=the Execute (sCode)
For Each Match Matches In
sNewCode=sNewCode &Match. The Value
Next
End With
Set TempReg=Nothing
Response. Write sNewCode
% >


This concludes the body part