ADODB.Recordset 错误 '800a0cc1' 请问如何解决

</tr>
<%
dim id
id=trim(request("id"))
if id="" or not isnumeric(id) then
tt="select top 15 id,x_name,x_leiid,x_top,User,Audit from xianlu order by x_top desc"
else
tt="select id,x_name,x_leiid,x_top,User,Audit from xianlu where x_leiid="&id&" order by x_top desc"
end if
set er=conn.execute(tt)
while not er.eof
%>
<tr bgcolor="#FFFFFF">
<td height="24">
<%
if trim(er("x_top"))=1 then
response.write ("<font color=red >荐</font>")
else
response.write ("<font color=red >普</font>")
end if
%>
<a href="../Xl/Xl_<%=er("id")%>.html" target="_blank"><%=er("x_name")%></a><%if er("user")<>"" then
response.write("<font color=green>("&er("User")&"用户发布)</font>")
End If%></td>
<td align="center"><%
if er("User")<>"" then
if trim(er("Audit"))="False" then
response.write ("<table><tr><form name=formAudit id =formAudit method=post action=AuditOk.asp><td><font color=red >用户发布(未审核) </font><input name='XId' type='hidden' id='XId' value='"&er("Id")&"'><input name='UserName' type='hidden' id='UserName' value='"&er("User")&"'><input type=button name=Submit value=审核 onClick=checkAudit();></td></form></tr></table>")
else
response.write ("<font color=Green >用户发布(已审核)</font>")
end if
Else
response.write ("<font color=orange>管理员发布</font>")
End if
%></td>

<td align="center"><%=er("x_leiid")%></td>
<td align="center"><a href=make_Xllist.asp?id=<%=er("id")%>>生成</a></td>
<td align="center"><a href="admin_addxl.asp?action=editok&id=<%=er("id")%>" title='编辑'>编辑</a></td>
</tr>
<%
er.movenext
wend
er.close
%>
</table>
<form name='formAuditOk' action='AuditOk.asp' method='post' target='formAuditk'>
<input type='hidden' name='username' value=''>
<input type='hidden' name='XId' value=''>
</form>
<script language=javascript>
function checkAudit()
{
if (document.formAudit.UserName.value=="")
{
alert("错误,不能进行审核！");
return false;
}
else
{
document.formAuditOk.username.value=document.formAudit.UserName.value;
document.formAuditOk.XId.value=document.formAudit.XId.value;
var popupWin = window.open('AuditOk.asp', 'formAuditk', 'scrollbars=no,width=340,height=200');
document.formAuditOk.submit();
}
}
</script>
<%
end sub
sub editok
dim id
id=trim(request("id"))
set rs=conn.execute("select * from xianlu where id="&id)
%>
<script>
function check(){
if(form1.ta.value=='' || form1.tb.value=='' || form1.tc.value=='' || form1.td.value=='' || form1.te.value=='' || form1.tf.value=='' || form1.tg.value=='' || form1.th.value==''){
alert("请认真填写上面所有项！");
return false;
}
}
</script>
<br><br><br>
<table width="95%" border=1 align="center" cellPadding=0 cellSpacing=0 bordercolor="#999999" borderColorDark=#ffffff bgcolor="#F9F9F9">
<form action="?action=editok1" method="post" enctype="multipart/form-data" name="form1" onSubmit="return check();">
<tr>
<td height="30" colspan="2" align="center" background="Images/topBar_bg.gif"><b><font color="red">编辑线路</font></b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="204" height="25" align="center" bgcolor="#f5f5f5">线路名称：</td>
<td width="714" bgcolor="#FFFFFF">　
<input name="ta" type="text" id="ta4" value="<%=rs("x_name")%>" size="50">
<input name="xid" type="hidden" value="<%=rs("id")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center" bgcolor="#f5f5f5">线路报价：</td>
<td>　
<input name="tb" type="text" id="tb" value="<%=rs("x_baojia")%>" size="15"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center" bgcolor="#f5f5f5">推荐单位：</td>
<td>　
<input name="tc" type="text" id="tc" value="<%=rs("x_leixun")%>" size="15"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center" bgcolor="#f5f5f5">线路类别：</td>
<td>　
<select name="td" id="td">
<%
set leirs=conn.execute("select id,board from board order by id desc")
while not leirs.eof
s=trim(leirs("id"))
d=trim(rs("x_leiid").value)
response.write("<option value="""&s&"""")
if s=d then
response.write(" selected")
end if
response.write(">"&leirs("board")&"</option>")
leirs.movenext
wend
leirs.close
%>
</select>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center" bgcolor="#f5f5f5">置顶情况：</td>
<td>　
<select name="x_top">
<option value="0" <%if trim(rs("x_top"))=0 then response.write("selected")%>>不置顶</option>
<option value="1" <%if trim(rs("x_top"))=1 then response.write("selected")%>>置　顶</option>
</select></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="center" bgcolor="#f5f5f5">线路时间：</td>
<td>　
<input name="te" type="text" id="te" value="<%=rs("x_shijian")%>" size="20"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="110" align="center" bgcolor="#f5f5f5">行程安排：</td>
<td height="110">　
<textarea name="tf" cols="60" rows="6" id="tf"><%=rs("x_anpai")%></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="110" align="center" bgcolor="#f5f5f5">线路途经景点：</td>
<td height="110">　
<textarea name="tg" cols="60" rows="6" id="tg"><%=rs("x_jingdian")%></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="110" align="center" bgcolor="#f5f5f5">线路、行程说明：</td>
<td height="110">　
<textarea name="th" cols="60" rows="6" id="th"><%=rs("x_shuoming")%></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="110" align="center" bgcolor="#f5f5f5">备　　　注：</td>
<td height="110">　
<textarea name="tk" cols="60" rows="6" id="tk"><%=rs("x_zhushi")%></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="24" align="center" bgcolor="#f5f5f5">线路景点图片：</td>
<td>　
<input name="ttt" type="file" id="ttt" size="40"><input name="rimg" type="hidden" value="<%=rs("x_jingdiantupian")%>"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="36" align="center" bgcolor="#f5f5f5">原图片情况：</td>
<td height="36"><%
if instr(rs("x_jingdiantupian"),"XlUploadImages/")=0 then
response.write ("　无内部图片或图片是外部，建议重新上传内部图片来覆盖此！　<br>　当前图片地址：")
response.write ("<a href="&rs("x_jingdiantupian")&" target=_blank>"&rs("x_jingdiantupian")&"</a>")
else
response.write("　内部图片地址：<a href="&rs("x_jingdiantupian")&" target=_blank>"&rs("x_jingdiantupian")&"</a><br>　要删除此图片只要重新上传，不做操作则保持图片不变。")
end if
%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="24" colspan="2">　　*上传文件类型为：gif,jpg,bmp，大小<2M。除图片外所有项均为必填写项。</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="35" colspan="2" align="center"><input type="submit" name="Submit" value="确 定 修 改"></td>
</tr>
</form>
</table>
<%
rs.close
end sub
sub editok1
set upload=new upload_5xsoft
dim id,ta,tb,tc,td,te,tf,tg,tj,tk,x_top
id=trim(upload.form("xid"))
ta=replace(trim(upload.Form("ta")),"'","’")
tb=replace(trim(upload.Form("tb")),"'","’")
tc=replace(trim(upload.Form("tc")),"'","’")
td=replace(trim(upload.Form("td")),"'","’")
te=replace(trim(upload.Form("te")),"'","’")
tf=replace(trim(upload.Form("tf")),"'","’")
tg=replace(trim(upload.Form("tg")),"'","’")
th=replace(trim(upload.Form("th")),"'","’")
tk=replace(trim(upload.Form("tk")),"'","’")
x_top=trim(upload.form("x_top"))
img=trim(upload.form("rimg"))
IDstring="Gemisum"&date & time
IDstring=Replace(IDstring,"-","")
IDstring=Replace(IDstring,":","")
pthString="XlUploadImages/"
set file=upload.file("ttt")
if file.filesize>0 then
if instr(img,pthstring)=0 then
response.write ("不是内部图，无须删除！")
else
img1=replace(img,"XlUploadImages/","")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f2 = fso.getfile(server.mappath("XlUploadImages/"&img1))
f2.delete
conn.execute("update xianlu set x_jingdiantupian='' where id="&id)
end if
if file.filesize>2097152 then
set file=nothing
response.write("<script>alert('上传图片的大小不能大于2M，即：2097152字节！');history.back(1);</script>")
else
FileTpe=Mid(file.filename,Len(file.filename)-2)
if not (ucase(fileTpe)="JPG" or ucase(fileTpe)="BMP" or ucase(fileTpe)="GIF") then
response.write("<script>alert('上传图片格式只能为：JPG,BMP,GIF。');history.back(1);</script>")
else
file.saveAs Server.mappath(pthString & IDstring & "." & FileTpe)
filepath=pthString & IDstring & "." & FileTpe
conn.execute("update xianlu set x_jingdiantupian='"&filepath&"' where id="&id)
set f2=nothing
set file=nothing
end if
end if
end if
sss="update xianlu set x_name='"&ta&"',x_baojia='"&tb&"',x_leixun='"&tc&"',x_shijian='"&te&"',x_shuoming='"&th&"',x_jingdian='"&tg&"',x_anpai='"&tf&"',x_zhushi='"&tk&"',x_leiid='"&td&"',x_top="&x_top&" where id="&id
conn.execute(sss)
conn.close
response.write("<script>alert('此线路编辑修改完成！按确定重新载入！');location='admin_addxl.asp?action=editok&id="&id&"';</script>")
end sub
%>



提示出错

ACCESS 数据库转SQL 后提示出错,如下:

ADODB.Recordset 错误 '800a0cc1'

在对应所需名称或序数的集合中，未找到项目。

/china_hotels_hims/admin_addxl.asp，


<a href="../Xl/Xl_<%=er("id")%>.html" target="_blank"><%=er("x_name")%></a><%if er("user")<>"" then