codice:
textFromTextArea=replace(textFromTextArea,VbCrlf,"--- tag html(in genere si mette 
)---")

response.write textFromTextArea