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:

[fulviolo58]

Ciao,

prova con una cosa del genere:

SplitMDA0 = Split(MiaDettaglioAgenti, "www.")
SplitMDA1 = Split(SplitMDA0(1), " ")
response.write("[url='http://www."&SplitMDA1(0)&"']w w w . "&SplitMDA1(0)&"[/url]") 

togli gli spazi nel w w w . li ho dovuti mettere altrimenti lo riconosce come link e cambia il codice

e per l'indirizzo mail è simile, solo che devi splittare per @ e poi sia prima sia dopo per " " (spazio).

ciao, fulvio.