两个textarea输入多行，获取值问题 - 编程论坛

两个textarea，我想第一个textarea输入多行后，response.write后得出值为insert into "textarea1"内容，第二个textarea输入多行后，response.write后得出值为values "textarea2"
举例吧
content1输入的内容为：
aaa
bbb
content2输入的内容为：
111
222
得到的值为
insert into aaa values 111;
insert into bbb values 222;
我现在写了一小半，不过不知道后面的应该再怎么写了？谁能帮俺完成一下，先谢啦！

源文件：
<%
if request.QueryString("active") = "sumbit" then
    content1 = Request("content1")
    content2 = Request("content2")
    dim strline(100),i
    i=0
    do while instr(content1,chr(13))>0 and i<=100
    if content1 <> "" then
        no=instr(content1,chr(13))
        strline(i)=left(content1,no)
        strline(i)="insert into " + strline(i)
        content1=mid(content1,no)
        response.Write(content1)
        response.Write(i&"<br>")
    end if
    i=i+1
    loop
    response.End()
    if content1 <> "" then
        content1=content1+"insert into"
    end if
    insert = "insert into " & content1 & " values " & content2
    response.Write(insert)
    response.End()
end if
%>
<html>
<head>
<title>aaa</title>
</head>
<body>
<form id="form1" name="form1" method="post" action="?active=sumbit">
  <p>insert into <br />
    <textarea name="content1" rows="5"></textarea>
    <br />
    values<br />
    <textarea name="content2" rows="5"></textarea>
  </p>
  <p>
    <input type="submit" name="Submit" value="提交" />
</p>
</form>
</body>
</html>