求解决800a01c2错误的方法

[sailyangmail]

系统显示 800a01c2错误，显示marksn 466行报错：该代码段如下:
'查询串号是否重复
function marksn(isn,qzui)
dim snnum
'Set rss = db.list("wxuser_info","sn","sn='"&isn&"'","id desc",1)
Set rss = db.GetRecordDetail("wxqrsn","sn='"&isn&"'")
if not rss.eof then
thissnk=Rndnumkey(6)&rss("id")&Rndnumkey(6)
snnum= marksn(qzui&right(thissnk,len(thissnk)-8))
else
snnum=isn
end if
set rss=nothing
marksn=snnum
end function

求大神指点

[xuzuning]

800a01c2 是 vbs 运行错，原因多为缺少了字符 你自己认真检查下吧