帮我看看asp页出错提示

出错信息内容如下：

ADODB.Recordset 错误 '800a0cb3'

当前记录集不支持书签。这可能是提供程序或选定的游标类型的限制。

/zuoye/group.asp，行55

asp文件内容：
<%

%>
<html>
<head>
<title>fillingroup</title>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#9900CC" vlink="#9900CC" alink="#FF0000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="back.jpg">
<form name="group" method="post" action="">
<table>
<tr>
<td bgcolor="#FFFFFF"><img src="smalllogo.jpg" width="270" height="90"></td>
</tr>
</table>
<table align="center" cellspacing="0" cellpadding="0">
<tr height="50">
<td></td><td align="center"><font size="+2" color="red"><b>填写组别</b></font></td>
</tr>
<br><br><br>
<tr height="50">
<td>组别：</td>  <td><input type="text" name="group" style="WIDTH:150px;HEIGHT:20px"></td>
</tr>
<tr height="50">
<td></td>
<td>
<div align="center">
<input type="submit" name="submit" value="提交" >  
<input type="reset" name="submit1" value"重设">
</div>
</td>
</tr>
</table>
<div align="center">
<%
dim rst,ssql,currentpage,rowcount,i,cnn
currentpage=request.querystring("currentpage")
if currentpage="" then
currentpage=1
end if
set cnn=server.createobject("adodb.connection")
set rst=server.CreateObject("ADODB.RECORDSET")
cnn.connectionstring="dsn=zuoye;uid=yangwentao;pwd=34101040"
cnn.open
sql="select * from activedata"
rst.open sql,cnn, 1,3
if rst.eof then
response.write "<p><b>当前没有组别！</b></p>"
response.end
end if
rst.close
rst.cursortype=adopendynamic
rst.pagesize=5
ssql="select 接收方 from activedata order by 时间"
rst.open ssql,cnn
rst.absolutepage=cint(currentpage)
rowcount=0
%>
<table border='0' cellpadding="0" cellspacing="0" width=100%>
<tr>
<th>组别</th>
</tr>
<tr>
<%while not rst.eof and rowcount<rst.pagesize%>
<td><%=rst("接收方")%></td>
</tr>
<%
rowcount=rowcount+1
rst.movenext
wend
%>
</table>
<p>当前组别数<%rst.recordcount%> 
每页<%=rst.pagesize%>个组别 
当前页次：<%=currentpage%>/<%rst.pagecount%>页 
<%
for i=1 to rst.pagecount
if i=cint(currentpage) then
%>
[<font color="red"><%=i%></font>]  
<%
else
%>
[<a href="group.asp?currentpage=<%=i%>"><%=i%></a>]  
<%
end if
next
%>
</p>
</div>
</form>
</body>
</html>