Snabbkomando?

Kan du utveckla den där frågan en aning. Iallafall jag har lite svårt att förstå vad du menar.

Har du löst problemet?

OveRRidE skrev:

Kan du utveckla den där frågan en aning. Iallafall jag har lite svårt att förstå vad du menar.

jag tror han menar ex <link:aftonbladet.se> för att få en länk till aftonbladet

Function FormatPost(ByVal strText)
	Dim objRegExp
	
	Set objRegExp = new RegExp
	objRegExp.Global = true
	objRegExp.IgnoreCase = true
	
	objRegExp.Pattern = "([url]http://[/url]|[url]https://[/url]|[url]ftp://[/url])(\S)(\S+)"
	strText = objRegExp.Replace(strText, "<a href=""$1$2$3"">$2$3</a>")
	
	objRegExp.Pattern = "(link:)(\S)(\S+)"
	strText = objRegExp.Replace(strText, "<a href=""http://$2$3"">$2$3</a>")
	
	Set objRegExp = nothing
	FormatPost = strText
End function

Response.write FormatPost("link:[url]www.länk.se[/url] eller [url]http://www.länk.se[/url] för att skriva ut en länk.")