菜鸟求助，有关Microsoft VBScript 运行时错误 (0x800A005B)

错误类型：
Microsoft VBScript 运行时错误 (0x800A005B)
对象变量未设置: 'rs'
/liujie/chexiugai.asp, 第 19 行

代码：
<%@LANGUAGE="VBSCRIPT"%>

<%
set con=server.CreateObject("adodb.connection")
con.mode=2
con.open(MM_conn_STRING)
i=request.QueryString.Count
for j=1 to i-1 step 1
num=trim(Request.QueryString.Item(j))
did=trim(Request.QueryString.Key(j))
Set rs=Server.CreateObject("ADODB.recordset")
sql= "Select * From dingdan WHERE id= "&did
rs.open sql,con,1,3
rs("sp_num")=num
rs.update
next
%>
<%
rs= nothing
rs.close()
Response.Redirect("che.asp")
%> --------------------编程问答-------------------- 对象变量未设置: 'rs' --------------------编程问答-------------------- 如何设置呢？ --------------------编程问答-------------------- 跪求达人解决啊，本人做毕业设计在线等着 --------------------编程问答-------------------- 在赋值rs的代码前面再加一句，如Dim rs --------------------编程问答-------------------- 错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象
/liujie/chexiugai.asp, 第 23 行

补充：.NET技术 ,  ASP.NET