Hej!

Jag skulle vilja ha lite hjälp med hur jag kan tillåta länkar. Funktionen nedan får en text (från en gästbok) skickad till sig och gör om vanlig text till länkar, typ:
www.gp.se -> www.gp.se

Jag vill kunna styra vilken text som ska visas (i fallet ovan alltså www.gp.se). Har försökt mig på diverse olika alternativ, men får det inte att funka. Någon som känner sig manad?

Tacksamt!

Edit: helst så ska det fungera på ett lurigt sätt, så att bara jag vet hur man gör. Typ:
<a url="http://www.url.com">text</a>

<code=asp>
Function Link(strText)
strText = Server.HTMLEncode(strText)

Set regExp = New regexp

regExp.Global = true
regExp.IgnoreCase = true


regExp.Pattern = "(http://|www|https://)([\S]*)"
strText = regExp.Replace(strText,"$1$2")

regExp.Pattern = "(ftp://)([\S]*)"
strText = regExp.Replace(strText,"$1$2")

regExp.Pattern = "([\S]*@[\S]*[.se|.com|.nu|.net|.org])"
strText = regExp.Replace(strText,"$1")

regExp.Pattern = "([.|,|!|?|:|;|)|\|&]]*)</a> "
strText = regExp.Replace(strText,"</a>$1 ")

regExp.Pattern = "([.|,|!|?|:|;|)|\|&]]*)"" class=""link"" target=""_blank"">([^<]*)</a>"
strText = regExp.Replace(strText,""">$2</a>")

strText = Replace(Trim(strText),vbCrLf, "<br>")
strText = Replace(Trim(strText),"http://http://", "http://")

if instr(strText, "http://https://") > -1 then
strText = Replace(strText, "http://h", "h")
end if
Link = strText ' Skriver ut texten

End Function
</code>

Kolla in ett tips jag skickade in för ett bra tag sedan om det kan hjälpa: ["Aktivera" länkar och e-post adresser i en text]