test linku w podpisie

test

test

test1
test2
http://test3
www.test4
test5

co za bezczelny spam...

wiedziałem talib ze sie wpiszesz

a juz były takie piekne profil fru false i wcieło

ale przynajmniej linki w podpisach juz sa ok

nlenlenle www.test 

Mateo Twoje stronki nie działaja

HAHAHA!

Function LinkURLs(asContent)
Dim loRegExp, tempf
If asContent = "" Then Exit Function
Set loRegExp = New RegExp
loRegExp.Global = True
loRegExp.IgnoreCase = True
loRegExp.Pattern = "((ht/f)tps?://S+[/]?)([.]?.*)"
LinkURLs = loRegExp.Replace(asContent, "[<A target=""_blank"" href=""$1"">$1</A>]$3")
loRegExp.Pattern = "((s)(wwwS+[/]?))([.]?.*)"
LinkURLs = loRegExp.Replace(LinkURLs, "$2[<A target=""_blank"" href=""http://$3"">$3</A>]$4")
'loRegExp.Pattern = "(S+@S+..SSS?)"
'LinkURLs = loRegExp.Replace(LinkURLs, "<A href=""mailto:$1"">$1</A>")
Set loRegExp = Nothing
End Function

Już ok. Nawet zaczynające się od www działają bez http

Nad tym mrowiskiem siedziałem od 19'stej

o fak