在asp页面是不是不能用 select 字段名 into 另一个表 from 字段做在的表 来插入一条记录? 急!!!

[roseandwort]

<%set rs=Server.CreateObject("Adodb.Recordset")
sql ="select maincallkind,subbecalled,maincall,becalled,begincalltime,endcalltime,money from phonedata where begincalltime ="& begincalltime &" and subbecalled="& subbecalled &""
rs.open sql,conn,1,3
if (request("endcalltime")<>"") then
select maincallkind,subbecalled,maincall,becalled,begincalltime,endcalltime,money into b from phonedata
end if
%>

我是这么写的出错是:
Microsoft VBScript 编译器错误 错误 '800a03fd'
缺少 'Case'
/record2test.asp，行21
select maincallkind,subbecalled,maincall,becalled,begincalltime,endcalltime,money into b from phonedata
-------^
我就不知道是什么问题了。这条语句在查询器里可以执行的。

[xiaobird1]

要放到字符串中执行才可以啊

<%set rs=Server.CreateObject("Adodb.Recordset")
sql ="select maincallkind,subbecalled,maincall,becalled,begincalltime,endcalltime,money from phonedata where begincalltime ="& begincalltime &" and subbecalled="& subbecalled &""
rs.open sql,conn,1,3
if (request("endcalltime")<>"") then
sql ="select maincallkind,subbecalled,maincall,becalled,begincalltime,endcalltime,money into b from phonedata "
rs.open sql,conn,1,3
end if
%>

[dragon514]

sql ="select maincallkind,subbecalled,maincall,becalled,begincalltime,endcalltime,money into b from phonedata "
conn.execute(sql)

[roseandwort]

我放到字符串中了,不行啊,错误:
ADODB.Recordset 错误 '800a0e79'

对象打开时，操作不被允许。

/record2test.asp，行22

[xiaobird1]

如果这样,你要先关闭rs
<%set rs=Server.CreateObject("Adodb.Recordset")
sql ="select maincallkind,subbecalled,maincall,becalled,begincalltime,endcalltime,money from phonedata where begincalltime ="& begincalltime &" and subbecalled="& subbecalled &""
rs.open sql,conn,1,3
if (request("endcalltime")<>"") then
rs.close '// 关闭rs
sql ="select maincallkind,subbecalled,maincall,becalled,begincalltime,endcalltime,money into b from phonedata "
rs.open sql,conn,1,3
end if
%>

[roseandwort]

谢谢 dragon514(michael) ,你写的语句可以实现,但现在只能复制一次(把phonedata表里的信息复制到另一个b表里),不能复制多次,怎么办啊?

[kingkuf]

将你rs关闭掉就可以了！
用Rs.close

[jimohongqilishijin]

来迟了，不过也当学习吧