Pubblico Il codice.

Function EncodeHT(TESTO)
TESTO = Server.HTMLEncode(TESTO)
TESTO = Replace(TESTO, vbCrLf, "
")
EncodeHT = TESTO
end function

CIAO