帮我看看为什么出现错误 '80020009'
帮我看看为什么出现错误 '80020009'

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%
dim exec,cccc,wz
exec="select *from author"
set rs=server.CreateObject("adodb.recordset")
cccc="select *from type"
set cc=server.CreateObject("adodb.recordset")
wz="select *from article"
set wzwz=server.CreateObject("adodb.recordset")
rs.open exec,conn,1,1
cc.open cccc,conn,1,1
wzwz.open wz,conn,1,1
%>
<% do while not wzwz.eof %>
<p><%=wzwz("id")%>:标题：<%=wzwz("title")%>
<%
if wzwz("typeid")=cc("typeid") then
dddd="类别："&cc("type")
else
dddd=""
%>
response.Write("dddd")
<%end if%>
</p>
<%
wzwz.movenext
loop
%>

显示

5:标题：poweriso5.6注册码poweriso5.7注册码poweriso序列号注册码 错误 '80020009'

/gl/tianjiawz.asp，行 18
[解决办法]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%
dim exec,cccc,wz
exec="select *from author"
set rs=server.CreateObject("adodb.recordset")
cccc="select *from type"
set cc=server.CreateObject("adodb.recordset")
wz="select *from article"
set wzwz=server.CreateObject("adodb.recordset")
rs.open exec,conn,1,1
cc.open cccc,conn,1,1
wzwz.open wz,conn,1,1

do while not wzwz.eof 
%>
    <p><%=wzwz("id")%>:标题：<%=wzwz("title")%>
<%
    if wzwz("typeid") = cc("typeid") then
        dddd="类别："& cc("type")
    else
        dddd=""
    end if
    response.Write dddd
%>
    </p>
<%
    wzwz.movenext
loop
%>

[解决办法]
wzwz("typeid") = cc("typeid") 不显示"类别："& cc("type")