ASP Collection Class

'==================================================
' Function name: GetArray
' Function: Extract link address, separated by $array$
' Parameter: Constr------Extract the original character of the address
' Parameter: startstr------start string
' Parameter: overstr------End String
' Parameter: Inclul------contains STARTSTR
' Parameter: Inclur------contains OVERSTR
'==================================================
Function GetArray (Byval constr,startstr,overstr,inclul,inclur)
If constr= "$False $" or constr= "" or IsNull (constr) =true or startstr= "" or overstr= "" or IsNull (STARTSTR) =true or IsNull (Ov ERSTR) =true Then
Getarray= "$False $"
Exit Function
End If
Dim Tempstr,tempstr2,objregexp,matches,match
Tempstr= ""
Set objRegExp = New Regexp
Objregexp.ignorecase = False
Objregexp.global = True
Objregexp.pattern = "(" &StartStr& "). +? ("&OverStr&") "
Set matches =objregexp.execute (CONSTR)
For the Match in matches
Tempstr=tempstr & "$Array $" & Match.value
Next
Set matches=nothing
If tempstr= "" Then
Getarray= "$False $"
Exit Function
End If
Tempstr=right (Tempstr,len (TEMPSTR)-7)
If Inclul=false Then
Objregexp.pattern =startstr
Tempstr=objregexp.replace (TempStr, "")
End If
If Inclur=false Then
Objregexp.pattern =overstr
Tempstr=objregexp.replace (TempStr, "")
End If
Set objregexp=nothing
Tempstr=replace (TempStr, "" "", "")
Tempstr=replace (TempStr, "'", "")
Tempstr=replace (TempStr, "", "")
If tempstr= "" Then
Getarray= "$False $"
Else
Getarray=tempstr
End If
End Function