prova anche semplicemente cosi:
quando vai ad inserire il messaggio avrai

rs("Messaggio")=Server.HTMLEncode(Messaggio)

Messaggio lo recuperi dal campo del form, dove l'utente inserisce il testo.
COn questo elimini parzialmente il tuo problema.