link cliccabile su campo memo

[Mems]

testo = CI_Preserve((rs.Fields.Item("Messaggio").Value)) 
if inStr(testo," ") > 0 then
  elTesto = split(testo)
  for each item in elTesto
    if left(item,4) = "www." then
    response.write "" & item & " "
    elseIf left(item,7) = "http://" then
    response.write "" & item & " "
    else
    response.write item & " "
    end if
  next
else
    if left(testo,4) = "www." then
    response.write "" & testo & " "
    elseIf left(testo,7) = "http://" then
    response.write "" & testo & " "
    else
    response.write testo & " "
    end if
end if