乐毅报燕惠王书选自:ASP SQL [Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。

程序目的在于实现在一个论坛分类下显示从属于本分类的版面。
其中,
第一个函数ShowBBSSort实现论坛分类的显示，
第二个函数ShowBBSList实现论坛分类下版面的显示。
数据库中版面表boards和论坛分类表sorts通过字段sortid关联。
在第一个函数中 定义m=rs（“sortid”）
在第二函数中 调用 m 如 sortid=m
具体调用：
Dim rs
set rs=conn.execute ("select * from boards where sortid=m order by orderid asc")
浏览器给出如下提示：
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。
请高人帮忙。

以下为部分代码，供参考：
<%Sub ShowBBSSort
Dim rs,m
set rs=conn.execute ("select * from sorts order by sortorder asc")
m=rs("sortid")
while not rs.eof
If Isempty(Application("walkman_ann_num_"&rs("sortID"))) Then
Application.Lock
Application("walkman_ann_num_"&rs("sortID"))=0
Application("walkman_ann_time_"&rs("sortID"))=now()
Application.UnLock
End If
If datediff("d",Application("walkman_ann_time_"&rs("sortID")),now())<>0 Then
Application.Lock
Application("walkman_ann_num_"&rs("sortID"))=0
Application("walkman_ann_time_"&rs("sortID"))=now()
Application.UnLock
End IF
%>
<table width="100%" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#BFBFBF" bgcolor="#FFFFFF" class="liu">
<tr>
<td colspan="5" class="blu">+ <%=rs("sortname")%></td>
</tr>

<% Call ShowBBSList%>

</table>
<%
Rs.movenext
Response.Flush()
Wend
Rs.close
set rs=nothing
end Sub
%>

<%Sub ShowBBSList
Dim rs
set rs=conn.execute ("select * from boards where sortid=m order by orderid asc")
while not rs.eof
If Isempty(Application("walkman_ann_num_"&rs("BoardID"))) Then
Application.Lock
Application("walkman_ann_num_"&rs("BoardID"))=0
Application("walkman_ann_time_"&rs("BoardID"))=now()
Application.UnLock
End If
If datediff("d",Application("walkman_ann_time_"&rs("BoardID")),now())<>0 Then
Application.Lock
Application("walkman_ann_num_"&rs("BoardID"))=0
Application("walkman_ann_time_"&rs("BoardID"))=now()
Application.UnLock
End IF
%>