Regexpa utan regexp

Hur menar du?
:)

Ja, det går tror det har varit uppe innan på wF sök lite :)
Jag tror annars att det finne en funktion i Script arkivet.

Vad har du för dåligt webhotell som inte kör med det nyaste ?

Kräv att de uppdaterar!

sök lite

Jo då, jag har sökt som en dåre må du tro...
Och jag skall fortsätta. ;)

inte tillräckligt ;) :
http://www.webforum.nu/showthread.php?s=&threadid=37485

http://www.Tack, men detta funkar om man har en skrälldus med adresser som ligger i en rad i en databaskolumn. Men skulle man ha en massa text som tex det är här så skulle denna länk se ut så här.se

Vad menar du?

fattade inte riktigt ?

Tack, men detta funkar om man har en skrälldus med adresser som ligger i en rad i en databaskolumn. Men skulle man ha en massa text så skulle det inte fungera.
Alltså i en text som någon har skrivit så skall www.något.något (så som den blir nu)bli en klickbar länk. Detta skall göras med allt annat än med reg.exp.

:)

Denna då?
såg att förra länken var fel

<%

Function hyperlank(strText)
'**************************************************
'En liten funktion för att konvertera hyperlänkar
'i text från formulär
'Synpunkter lämnas till [email]a.lestander@araby-dalbo.com[/email]
' [url]www.araby-dalbo.com/it-pedagogerna[/url] 
'**************************************************

strText = Server.HTMLEncode(strText)
strText = Replace(strText,VbCrLf,VbCrLf&" <br> ") 
HyperArray = Split(strText)
For Each ord in HyperArray
if Len(ord) > 7 then
if Lcase(left(ord,7)) = "http://" then
strText2=strText2 & "<a href='"&ord&"'>"&ord&"</a> "
elseif InStr(ord,"@")>1 then
strText2=strText2 & "<a href='mailto:"&ord&"'>"&ord&"</a> "
else
strText2=strText2&ord&" "
end if
else
strText2=strText2&ord&" "
end if
next
hyperlank = strText2

end function

text = Request.Form("text")

Response.Write hyperlank(text)
%>