Originariamente inviato da willybit
quella per mettere il tag <a> nelle stringhe che rappresentano un indirizzo non deve essere usata in un testo che ha già dei tag <a>
ok... facciamola andare anche su testi che contengono già il tag <a>
codice:
Function LinkUrl2(stringa)
  temp=""
  Set re = new RegExp
  re.Multiline = true
  re.Global = true
  re.IgnoreCase = true
  re.Pattern = "<a.*?<\/a>"
  set ris = re.Execute(stringa)
  temp = stringa
  irripetibile = "$$$###@@@"
  For Each rr in ris
    temp = Replace(temp, rr.value, irripetibile & rr.FirstIndex)
  Next
  re.Pattern = "((http://[^ \s<]+)|(www\.[^ \s<]+))"
  temp = re.Replace(temp,"$1")
  temp = Replace(temp,"href=""www","href=""http://www")
  For Each rr in ris  
    temp = Replace(temp, irripetibile & rr.FirstIndex, rr.value)
  Next
  LinkUrl2 = temp
End Function