Efter en buggrapport från en av forumets användare så putsade jag till min hyperlänkskonverterare och passade på att göra en funktion utav den!
Den tidigare versionen blev fel om man tryckte "enter" direkt efter en hyperlänk... Så klumpigt av mig! ;)
Den här gången så har jag provkört det och inte hittat några "buggar"!
HÄR!
<%
Function hyperlank(strText)
'**************************************************
'En liten funktion för att konvertera hyperlänkar
'i text från formulär
'Synpunkter lämnas till a.lestander@araby-dalbo.com
' www.araby-dalbo.com/it-pedagogerna
'**************************************************
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)
%>
------------------
"Life's a bitch who sucks... then you marry one who doesn't"
[Redigerat av Andreas L den 17 okt 2000]