Microsoft VBScript 运行时错误 (0x800A01A8)缺少对象: ''/Mobile/dd.asp, 第 32 行

<%
Dim cpRecordset
Dim cpRecordset_numRows
Session("Cpbuy")=Request("ProIdcheck")
cpdd_numrows=split(Session("Cpbuy"),",")

Set cpRecordset = Server.CreateObject("ADODB.Recordset")
cpRecordset.ActiveConnection = MM_conn_STRING
cpRecordset.Source = "SELECT * FROM cp"
cpRecordset.CursorType = 0
cpRecordset.CursorLocation = 2
cpRecordset.LockType = 1
cpRecordset.Open()
For i=0 to UBound(cpdd_numrows)
cpdd.addnew                      -----------------------------32行
cpdd.Fields("DDID")=Tystring
cpdd.Fields("ProId")=CInt(Trim(cpdd_numrows(i)))
cpdd.Fields("USENAME")=Session("MM_Username")
cpdd.Fields("SL")=Session(CInt(Trim(cpdd_numrows(i))))
cpdd.Fields("DDTIME")=Newnow
cpdd.update
Next
Session.Contents.Remove("Cpbuy")
Response.Redirect("CpOrder.asp?DDID="+Tystring)

cpRecordset_numRows = 0
cpRecordset.movefirst
While NOT cpRecordset.EOF
Session((cpRecordset.Fields.Item("ProId").Value))=Cint(Request.Form(Trim(cpRecordset.Fields.Item("ProId").Value)))
cpRecordset.movenext
wend

%> 请帮忙解决下