ASP写的一个程序，但是到了循环的时候就出现错误了，不知道怎么了请大家帮帮忙。
我做了个更新数据的程序但是运行的时候就出现错误了，不知道什么原因。我把我的全部程序都贴出来了大家来帮我看看把。<!--#include file="Conn.asp"-->
<!--#include file ="Admin.asp"-->
<%
Set rsAdd=server.CreateObject("adodb.recordset")
sqlAdd="select * from FS_Conn"
rsAdd.open sqlAdd,conn,1,1
if rsAdd.eof and rsAdd.bof then
response.write "请先添加数据库信息"
response.End()
else
do while not rsAdd.eof
'将FS_Conn里的数据寸放到下面响应的变量中
conndb=rsAdd("biao")
connadd=rsadd("add")
'创建数据库连接将用到上面的变量里的信息
'on error resume next
c & Server.MapPath(connadd)
set conns=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conns.open connst
end if
'判断从FS_Conn表里循环出来的数据表是否等于所定义的表如果是执行下面响应的语句
Set rsSite=server.CreateObject("adodb.recordset")
sqlSite="select * from "&conndb&""
rsSite.open sqlSite,conns,1,1
if rsSite.eof and rsSite.bof then
response.write "<script LANGUAGE='javascript'>alert('"&conndb&"对不起，没有找到相符合的数据！');history.go(-1);</script>"
response.End()
else
do while not rsSite.eof
set rs=server.CreateObject("adodb.recordset")
sql="select * from "&conndb&""
rs.open sql,conn,1,3
if c then
rs.addnew
rs("Title")=rsSite("Title")
rs("Content")=rsSite("Content")
rs("UpdateTime")=rsSite("UpdateTime")
rs("NewTypeName")=rsSite("NewTypeName")
rs("source")=rsSite("source")
rs("admin")=rsSite("admin")
rs("shenhe")=rsSite("shenhe")
rs("tuijian")=rsSite("tuijian")
rs("dianjin")=rsSite("dianji")
rs.update
response.write rsSite("New_id")
response.write"数据导入成功</br>"
elseif c then
rs.addnew
rs("ActionID")=rsSite("ActionID")
rs("NameD")=rsSite("Name")
rs("AName")=rsSite("AName")
rs("muban")=rsSite("muban")
rs("http")=rsSite("http")
rs("httpadd")=rsSite("httpadd")
rs("Time")=rsSite("Time")
rs("AddUp")=rsSite("AddUp")
rs("content")=rsSite("content")
rs("logo")=rsSite("logo")
rs("logoTime")=rsSite("logoTime")
rs("openn")=rsSite("openn")
rs("openTime")=rsSite("openTime")
rs("openContent")=rsSite("openContent")
rs("ymcontent")=rsSite("ymcontent")
rs("mbcontent")=rsSite("mbcontent")
rs("ywcontent")=rsSite("ywcontent")
rs.up
end if
rs.close
set rs=nothing
'一个表中的数据导入成功
rsSite.movenext
loop
response.write "表"&conndb&"数据导入成功</br>"
end if
rsAdd.movenext
loop
end if
response.write "数据全部导入成功！"
response.End()
%>
fs_con这个表是存放我的数据库名称和数据库路径的。
当我运行程序的时候程序就会从fs_conn里面循环调出数据表的名字来。再执行下面的程序。但是问题是第一条记录执行起来没什么问题。但到了第二条的时候就出现问题了显示错误
response.write "<script LANGUAGE='javascript'>alert('"&conndb&"对不起，没有找到相符合的数据！');history.go(-1);</script>"
我有 附带的错误 的图片，大家来看看啊！
