高效液相色谱的组成:有关利用ASP实现数据库转移的问题出点错误

有些代码不用，rs1根本不用,修改后的代码如下：
<%
dim conn,conn1,connstr,connstr1 ,rs '这里多定义了一个变量

set conn=server.createobject("adodb.Connection")
set rs=server.createobject("adodb.recordset") '这里要初始化rs对象
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("main.mdb")
conn.Open connstr '连接第一个数据库
set conn1=server.createobject("adodb.Connection")
connstr1="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("main2.mdb" )
conn1.Open connstr1 '连接第二个数据库
strsql="select * from [user]"
set rs=conn.execute(strsql) '从第一个数据库的USER表中搜索
do while not rs.eof
strsql1="insert into user2(name,pwd)values('"&rs("xm")&"','"&rs("xh")&"')"
conn1.execute(strsql1) '注意这里是conn1,不是conn
rs.movenext
loop
rs.close
set rs=nothing
%>

1、strsql="select * user" 改为：
strsql="select * from [user]"
2、第一句strsql1="select * user2 " 可以不要
（也写错了：strsql1="select * from [user2] "）
3、set rs1=conn1.execute(strsql1) 这句可以不要