Nothing

<textarea  name="content"  rows="10"  cols="70"><%  
                                               response.Write(chr(13) & chr(13))  
                                               aa="-----------------------------------------"  
                                               response.Write(aa)  
                                               response.Write(chr(13) & chr(13))  
                                               response.Write  rs("message")  
                                               %></textarea>  

你错在你多加了一个引号，或将chr(13)改成vbcrlf也成。