Ho risolto:
codice:
<% messaggio = SPLIT(rs("testo"),VbCrLf)
FOR m=0 TO ubound(messaggio)
parola = SPLIT(messaggio(m)," ")
FOR i=0 TO ubound(parola)
IF Mid (parola(i),1,7) = "http://" THEN
parola(i)=""&parola(i)&""
END IF
IF Mid (parola(i),1,4) = "www." THEN
parola(i)=""&parola(i)&""
END IF
IF (InStr(parola(i),"@") <> 0) AND (InStr(parola(i),".") <> 0) THEN
parola(i)=""&parola(i)&""
END IF
NEXT
messaggio(m)=JOIN(parola," ")
NEXT
messaggio = JOIN(messaggio,VbCrLf)
messaggio = REPLACE (messaggio, VbCrLf, "
")
response.write messaggio
%>
Grazie ciao