Se premi invio mentre scrivi nella textarea allora viene "scritto" il carattere di ritorno a capo che in vbscript corrisponde a vbCrLf.
Quando richiami il testo dal db per scriverlo sulla pagina basta fare una replace sul testo sostituendo il carattere vbCrLf con il

codice:
testo = rs("campoDB")
testo = replace(testo,vbCrLf,"
")
response.write testo