Automatisk lave links...

Jeg har dette lille script som udtræk fra databaser bliver kørt igennem:

<script language="VBScript" runat="Server">
Function unQuote(Tekst)
unQuote = Replace(Server.HTMLEncode(Tekst), vbCrLf, "<br>")
End Function
</script>

Kan man ikke på en lignende måde gøre så alle de steder i teksten hvor der står noget med http:// og @ automatisk bliver til links, altså links og mailto: med e-mailadresser...?