Scusami ma ho fatto alcune prove ma con scarso risultato.
Allora questa la formula di cui mi parlavi, devo inserirla nella pagina dov' è presente il modulo che invia i dati al db?

Function Link_URL(stringa)
Dim objRegExp, strTemp
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "(\b(https?\://)\S+\b}?)"
strTemp = objRegExp.replace(stringa, "$1")
Link_URL = strTemp
Set objRegExp = Nothing
End Function

Function Link_email(stringa)
Dim objRegExp
Set objRegExp = New RegExp
objRegExp.Global = True
objRegExp.IgnoreCase = True
objRegExp.Pattern = "([\w\-\.]+@([\w\-]+\.)+[a-z]{2,4})"
Link_email = objRegExp.replace(stringa, "$1")
Set objRegExp = Nothing
End Function


Mentre questa la mia stringa con i risultati del db che dovrà contenere l'url attivo:
<%= Replace(FP_FieldVal(fp_rs,"intervista"), VbCrlf, "
") %></font></td>