高手，出现：至少一个参数没有被指定值 怎么办

Question

===错误类型：
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。
/vote/check.asp, 第 14 行

===传来的链接

POST Data:
check.asp?zsmc28=026&zsmc29=027&Submit=%CC%E1%BD%BB

===check.asp 页面代码

<%
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;"&"data source = "&server.mappath("data/basedata.mdb")
If Err Then
err.Clear
Set conn = Nothing
Response.Write "连接错误"
Response.End
End If
for i=1 to 78
if request.form("zsmc"&i)<>"" then
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from vote where id=i"
rs.open sql,conn,1,3
rs("num")=rs("num")+1
if rs.bof and rs.eof then
response.write "无符合项目"
end if
rs.update
else
i=i+1
end if
next
%>

问题却是找不出来，请教各位了

Answer 1

有两处错误，第一：
不应该用request.form，因为这个应该从表单获取，用Request.QueryString就可以

第二：
代码
rs("num")=rs("num")+1
if rs.bof and rs.eof then
response.write "无符合项目"
end if
rs.update
应该修改成：
if rs.bof and rs.eof then
response.write "无符合项目"
else
'下面代码最好限定下类型,例如:rs("num")=CInt(rs("num"))+1
rs("num")=rs("num")+1
rs.update
end if

另外，别忘了关闭和清除连接