Link finder

Hvordan for jeg den til at lave links ligsom på www.eksperten.dk når jeg poster en news

min code hvad jeg har gættet mig frem til
-------------------------------------------
%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db.mdb\")
set rs = Conn.execute(\"select * from news order by newsid desc\")

if rs.EOF then
Response.write \"Databasen er tom.\"
else
Do Until rs.EOF
set temp = Conn.Execute(\"select count(*)  as antal from kommentar where svartil = \" & rs(\"newsid\"))
%>


<% language=\"JScript\" %>
<% var Linktext = \" <%= rs(\"text\") %> \"

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;
}
%>





<tr>
  <td width=\"100%\"><font face=\"Verdana, Arial\" color=\"black\" size=\"1\"><%= rs(\"dato\") %></font>
    <br><font face=\"Verdana, Arial\" color=\"black\" size=\"1\"><b>
    <%= rs(\"overskrift\") %></b> (Der er <%=temp(\"antal\")%> kommentarer)<br>
    </font><font face=\"Verdana, Arial\" color=\"black\" size=\"1\"><%=makeLink(Linktext)%>
</font>
    <hr>
  </td>
</tr>


<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>