dim regEx,Matches
dim str1
str1=""
set regEx=new regExp
regEx.Pattern= "\[img\](\w+\.\w+)\[\/img\]"
regEx.IgnoreCase=true
regEx.Global=True
set Matches=regEx.Execute(str1)
for each match in matches
Response.Write Match.submatches(0) & "<br>"
next
set matches=nothing
set regEx=nothing