Sæt den her i toppen af din side:
<%
Function LinkTekst(Tekst)
LinkTekst = ""
A_Start = 1
if InStr(Tekst, "
http://") then
do until A_Start >= len(Tekst)
LinkChr = InStr(A_Start, Tekst, "
http://")
NextSpace = InStr(LinkChr, Tekst, " ")
if NextSpace = 0 then NextSpace = Len(Tekst) + 1
URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)
LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
LinkTekst = LinkTekst & "<A Href=" & Chr(34) & URL & Chr(34) & " target=blank>" & URL & "</A>"
if Int(LinkChr) = Int(InStrRev(Tekst, "
http://")) then
LinkTekst = LinkTekst & Mid(Tekst, NextSpace, Len(Tekst) - A_Start)
A_Start = Len(Tekst)
else
A_Start = NextSpace
end if
loop
else
LinkTekst = Tekst
end if
End Function
%>
Og den her når du henter fra databasen:
<%=LinkTekst(Replace(rs("Dit-Felt")&"", vbCrLf, "<BR>"))%>
Meyer