Microsoft VBScript 运行时错误 错误 '800a000d' .../inc/sub.asp 218行

Sub ShowData()
QQ="未填"
email="未填"
Web="未填"
If Not IsObject(Conn) or Conn Is NoThing Then dblink
Dim Rsuid,DateStr,Rs1,II,PPic,UserBook,UUID,rs2
If Application(CacheName&"_Setup")(0)<>"" Then
DateStr="Getdate()"
Else
DateStr="Date()"
End if
Set Rs2=Conn.Execute("Select D.Adid,U.ID From China_Data As D,China_User As U Where D.Uid=U.Uid and D.Adid="&ID)
If Not Rs2.Eof Then
UUID=Rs2(1)
End If

If UUID<>"" Then
Set Rs1=Conn.Execute("Select ID,com From China_Company Where U_id="&UUID)
If Not Rs1.Eof Then
ComPany="<a href=""ComPany.asp?ID="&Rs1(0)&""" target=""_blank""><img src=""Images/hy/114.gif"" width=""106"" height=""23"" border="&q

microsoft Microsoft MICROSOFT Microsoft是什么意思 Microsoft代理 microsoft update Microsoft Office Microsoft FrontPage microsoft安装 microsoft office