大哥哥们来帮忙啊!

<%

dim 111

111=htmlencode(request.form("111"))

set rs= server.createobject("adodb.recordset")

sql="select* from 表1 where 111="&111

rs.open sql,conn,1,3

if not (rs.eof and rs.bof) then

else

rs.addnew

rs("111") =111

rs.update

end if

rs.close

set rs=nothing

end if

conn.close

set conn=nothing

end if

%>

我想把111可以提交到表1和表2表4，5，6等等该怎么做？

顺序写下来就可以了：

Dim 111

111 = htmlencode(Request.Form("111"))

sql = "INSERT INTO 表2 (111) VALUES ('"&111&"')"

conn.execute sql

sql = "INSERT INTO 表3 (111) VALUES ('"&111&"')"

conn.execute sql

sql = "INSERT INTO 表4 (111) VALUES ('"&111&"')"

conn.execute sql

......