Regexp problem

Använder mig av denna funktion för att skapa länkar både genom http://, mailto:, ftp://, news:// men även [ URL=Sökväg ]Länknamn[ /url ]
(utan mellanslag)

Dock fungerar det inte. När jag använder [ URL ] så blir länken helskum:

[ URL=http://www.mzreklam.se]MZ[/ URL]
/>

Länkningen ser ut så här i koden:
[ URL=<a href='referer.asp?url=http://www.mzreklam.se]MZ[/ URL]<br' target='_blank'>http://www.mzreklam.se]MZ[/ URL]<br></a> />

Min funktion:

Function makeOutput(str)

	Set regExp = New regexp
	regExp.Global = true
	regExp.IgnoreCase = true

	regExp.Pattern = "((?:mailto\:|(?:news|(?:ht|f)tp(?:s?))\://){1}\S+)"
	str = regExp.Replace(str, "<a href='referer.asp?url=$1' target='_blank'>$1</a>")
				
    [blue]	regExp.Pattern = "\[URLl=(&quot;)?([url]http://[/url])?(.*?)\1\](.*?)\[\/URL\]"
	str = regExp.Replace(str, "<a href=""referer.asp?url=http://$3"">$4</a>")[/blue]
    
    MakeOutput = str

End Function

Hur kan jag lösa detta?

Jaaa!

Fick byta pattern till:

regExp.Pattern = "\[ url=(.*?)\](.*?)\[/ url]"
	str = regExp.Replace(str, "<a href=""$1"">$2</a>")