asp 0x800A01A8 缺少对象 dw

我的数据库链接（用Dreamweaver 的方式）在其他的页面都没有问题。但是到这个页面后就有问题了
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''

代码如下
<!--#include file="inc/conn.asp"-->
<%
id=Request.QueryString("id")
dim recordset4
Set recordset4 = Server.CreateObject("ADODB.Recordset")
recordset4.ActiveConnection = MM_conn_STRING
recordset4.Source = "select * from odrdetail"
recordset4.CursorType = 0
recordset4.CursorLocation = 2
recordset4.LockType = 3
recordset4.Open()

dim recordset5
dim hhid
hhid=cint(id)
recordset4.MoveFirst
While Not recordset4.EOF
if recordset4("hangshu")=hhid then
recordset5.ActiveConnection = MM_conn_STRING2
recordset5.Source = "select * from pdt where id="&cint(recordset4("pdtid"))
recordset5.CursorType = 0
recordset5.CursorLocation = 2
recordse

刚刚修改的你看看这样可以不.

<!--#include file="inc/conn.asp"-->
<%
id=Request.QueryString("id")
dim recordset4
Set recordset4 = Server.CreateObject("ADODB.Recordset")
recordset4.ActiveConnection = MM_conn_STRING
recordset4.Source = "select * from odrdetail"
recordset4.CursorType = 0
recordset4.CursorLocation = 2
recordset4.LockType = 3
recordset4.Open()

dim recordset5
Set recordset5 = Server.CreateObject("ADODB.Recordset")
dim hhid
hhid=cint(id)
recordset4.MoveFirst
While Not recordset4.EOF
if recordset4("hangshu")=hhid then
recordset5.ActiveConnection = MM_conn_STRING2
recordset5.Source = "select * from pdt where id="&cint(recordset4("pdtid"))
recordset5.CursorType = 0
recordset5.CursorLocation = 2
recordset5.LockType = 1
recordset5.Open()
%>