帮小弟我看看为什么出现异常 '80020009'

帮我看看为什么出现错误 '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

%>