riconoscere link all'interno di una stringa dinamica

[bibuz]

Salve ragazzi mi servirebbe un vostro aiuto.

Dovrei avere la possobilità di far riconoscere in automatico all'interno di una stringa inserita dinamicamente da un form i link e gli indirizzi mail.

Per esempio se inserisco:
Questo è il mio sito: www.miosito.it

www.miosito.it deve essere riconosciuto come link.

Stessa cosa se all'interno della frase ho: pippo@mail.it

Ho trovato questa soluzione ma mi converte in link tutta la stringa e non solo il link vero e proprio.

<%
 Dim MiaDettaglioAgenti
MiaDettaglioAgenti =(rsNewsAgenti.Fields.Item("dettaglio").Value)
if instr(MiaDettaglioAgenti, "www.")>0 then
response.write("[url='http://"&MiaDettaglioAgenti&"']"&MiaDettaglioAgenti&"[/url]")
else if (instr(MiaDettaglioAgenti, "@")>0 AND instr(MiaDettaglioAgenti, ".")>0) then
response.write("[email='"&MiaDettaglioAgenti&"']"&MiaDettaglioAgenti&"[/email]")
else
 %>
<%=(rsNewsAgenti.Fields.Item("dettaglio").Value)%>
<% END IF %>
<% END IF %> 

Come posso risolvere???
:master: