ASP文本域里面的内容怎样全部添加到数据库里面

每次添加的时候，只能添加进数据库第一行数据，下面的数据并没有添加进去
<form action="" method="post">
<textarea name="DA" id="DA"></textarea>
  <input type="submit" value="提交" name="A" id="A" />
  <%
dim conn
set conn=server.CreateObject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("Db.mdb")
conn.open 
if(request.Form("A")<>"") then
conn.execute "insert into A(NeiRong) values('"+request.Form("DA")+"')"
end if
%>
</form>

求代码

我表示 我菜鸟，只能坐沙发