ASP GetArray Extract link address, $array$ separated code _ Application Tips

'==================================================
' 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)
On Error Resume Next
If constr= "$False $" or constr= "" or IsNull (constr) =true or startstr= "" or overstr= "" "or IsNull (STARTSTR) =true or IsNull (O VERSTR) =true Then
Getarray= "$False $"
Exit Function
End If
Dim Tempstr,tempstr2,objregexp,matches,match,templisturl
Tempstr= ""
Set objRegExp = New Regexp
Objregexp.ignorecase = True
Objregexp.global = True
Objregexp.pattern = "(" &StartStr& "). +? ("&OverStr&") "
Set matches =objregexp.execute (CONSTR)
For the Match in matches
If Templisturl =match.value Then
Else
Tempstr=tempstr & "$Array $" & Match.value
Templisturl=match.value
End If
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
Set matches=nothing

Tempstr=replace (TempStr, "" "", "")
Tempstr=replace (TempStr, "'", "")
Tempstr=replace (TempStr, "", "")
' Tempstr=replace (TempStr, "(", ")
' Tempstr=replace (TempStr, ")", "")

If tempstr= "" Then
Getarray= "$False $"
Else
Getarray=tempstr
End If
End Function