merhaba arkadaşlar hazır fonksiyonlarda tam aradığmı buldum dedğim bir fonksiyon sorunlu çalışıyor sorun ise yazılan metnin bir alt satıra kayıp orada www.deneme.com yada http:// şeklinde baştan devam edince link li yazıların otomatik olarak linkleme yapılamaması, kodlara baktımda fakat hatayı bir türlü bulamadım. yardım edermisiniz.
kod:

<%
Function link_yap(strText)
strText = " " & strText
strText = ereg_replace(strText, "(^|[\n ])([\w]+?://[^ ,""\s<]*)", "$1<a href=""$2"">$2</a>")
strText = ereg_replace(strText, "(^|[\n ])((www|ftp)\.[^ ,""\s<]*)", "$1<a href=""http://$2"">$2</a>")
strText = ereg_replace(strText, "(^|[\n ])([a-z0-9&\-_.]+?)@([\w\-]+\.([\w\-\.]+\.)*[\w]+)", "$1<a href=""mailto:$2@$3"">$2@$3</a>")
strText = right(strText, len(strText)-1)
link_yap = strText
End Function


Function ereg_replace(strOrjinalString, strPattern, strReplacement)
dim objRegExp : set objRegExp = new RegExp
objRegExp.Pattern = strPattern
objRegExp.IgnoreCase = True
objRegExp.Global = True
ereg_replace = objRegExp.replace(strOrjinalString, strReplacement)
set objRegExp = nothing
End function

' ÇALIŞMAYANI: satır atlayıp başa linklenecek url gelince linklenmiyor
strLink="asdasd <br/>https://www.r10.net/id=9999&deneme=1&kim=ben deneme link "

'ÇALIŞANI : başına bir kelime veya yazı gelince linkleniyor
'strLink="asdasd <br/>deneme https://www.r10.net/id=9999&deneme=1&kim=ben deneme link "


response.Write link_yap(strLink)


%>