URL!!!

jeg gider foresten ikke have nogle af dem fra www.netcoders.dk osv.....

http://www.netsrac.dk/netsrac-dk/asp0003.asp

<%@ language=\"JScript\" %>
<%
var Linktext = \"Tekst bliver lavet til links, når man skriver f.eks. jesper.jensen@3wp.dk, http://www.vip-productions.dk, eller www.vip-productions.dk eller http://www.vip-productions.dk/et/eller/andet/side.asp?user=i&name=Et%20Eller%20Andet.\"

function makeLink(txt){
    var re = /(\\bhttp\\:\\/\\/)?(\\bw{3}\\.\\S+\\.[a-z][a-z]+\\b)(\\/\\S+\\b)?(\\?\\S+\\b)?/g;
    txt = txt.replace(re,\'<a href=\"http://$2$3$4\">$1$2$3$4</a>\');
    re = /(\\S+@{1}\\S+\\.[a-z][a-z]+\\b)/g;
    txt = txt.replace(re,\'<a href=\"mailto:$1\">$1</a>\');
    return txt;
}
%>
<html>
<head>
    <title>JavaScript Link maker 1.0</title>
</head>
<body>
<%=makeLink(Linktext)%>
</body>
</html>

kan du ikke lave lidt om på det så den også finder mail adresser??
eller finder den det ?

Eller

<%
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) & \">\" & 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
%>

no_doubt>> Det er jo laet i javascript...
kan det ikke laves i Vbscript ?
ellers ser den fin ud :-)

kan du skreder sy den til mig ?
mit felt i databasen hedder rs(\"tag\")

Det er da vel ligemeget. *g*

hmm...hvordan udskriver jeg det der ?
f.eks. hvis jeg har en variabel der hedder:
text
og den er = \"http://www.jubii.dk\"
og jeg vil have lavet det til et link uden jeg skriver selve linket ?

jeg har fået det til at virke så her er halvdelen af pointene til no_doubt
jeg leder stadig efter en der kan finde en email adresse

ej pis jeg kom til at trykke på accepter....
jeg skulle have trykket på avanceret...