ASP gets the first picture address in the code

<%
' Change the pattern again.
' Code to be detected by
' Www.nml78z.cn/article.asp?id=29
' Leixing HTML or UBB
' Nopic code defaults when no pictures
function Toppic (code,leixing,nopic)
Set regex = new RegExp
Regex.ignorecase = True
Regex.global = True
If leixing = "html" then
Regex.pattern = " "
Else
Regex.pattern = "\[img\] ([^\u005b]+)"
End If
Set matches = Regex.execute (code)
If Regex.test (code) then
If leixing = "html" then
Toppic = Matches (0). Submatches (2)
Else
Toppic = Matches (0). submatches (0)
End If
Else
Toppic = Nopic
End If
End Function
Code1 = "pic = Toppic (code1, "html", "Nopic.gif")
Pic=replace (pic, Chr (34), "")
Pics=split (pic, "")
Pic=pics (0)
Response. Write pic
%>