ASP分页显示

我写的分页显示的程序：检查不出那里错了，rs.pageCount总是-1，这样就无法显示出分页的页码：1 2 3...怎样使rs.pageCount等于实际的页码呢?我写的程序是这样的:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../includ/connect.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>课程信息</title>
</head>

<body>
<%dim rs,sql
Dim I,page_total,page_no,j
set rs=server.CreateObject("ADODB.recordset")
rs.pagesize=3
sql="select * from cous_info"
rs.open sql,cnn,adOpenStatic
'是否有课程信息
if rs.eof then
response.write("<table border='1' align='center' id='bord-line' width='100%'>")
response.write("<tr style='background-color:#FFFF99;'>")
response.write("<td align='center'>")
response.write("<div>")
response.Write("<h1>还没有任何课程！</h1>")
response.write("</div>")
response.write("</td>")
response.write("</tr>")
response.write("</table >")
else
response.Write("<h2 align='center' style='font-size:24px;'>课程信息</h2>")
response.write("<table border='0' align='center' id='bord-line' width='100%'>")
response.Write("<tr style='background-color:#CCCCCC;'>")
response.write("<td align='center'>")
response.Write("课程编号")
response.write("</td>")
response.write("<td align='center'>")
response.Write("课程名")
response.write("</td>")
response.write("<td align='center'>")
response.Write("任课教师")
response.write("</td>")
response.write("<td align='center'>")
response.Write("操作")
response.write("</td>")
response.write("</tr>")

page_total=rs.PageCount
If Request.QueryString("page_no")="" Then
page_no=1
Else
page_no=Cint(Request.QueryString ("page_no")) '用Cint将字符串变为整数
End If
rs.AbsolutePage=cint(page_no)
for j=1 to rs.pagesize
if rs.eof then
exit for
end if
response.Write("<tr bgcolor='#99CCFF'>")
response.write("<td>")
response.Write(rs("cous_id"))
response.write("</td>")
response.write("<td >")
response.Write(rs("cous_name"))
response.write("</td>")
response.write("<td >")
response.Write(rs("tch_No"))
response.write("</td>")
response.write("<td align='center'>")
response.Write("操作")
response.write("</td>")
response.write("</tr>")
rs.moveNext
next
response.write("<tr style='background-color:#CCCCCC;'>")
response.write("<td colspan='4'>")
response.write"每页有<b>"&rs.pagesize&"</b>门课程 "
response.Write "当前页次:"&page_no&"/"&rs.pageCount&"页 "
for i=1 to rs.pageCount
if i=cint(page_no) then
response.Write("[<font color='red'>"&i&"</font>]  ")
else
response.Write("<a href='couslist.asp?page_no="&i&"'>"&i&"</a>  ")
end if
next
response.write("</td>")
response.write("</tr>")

response.write("</table >")
end if
rs.close
set rs=nothing
cnn.close
%>

</body>
</html>

得到的结果是:

课程信息

课程编号 课程名 任课教师 操作
En02234 大学英语第一册 操作
tp2912 数据库理论基础 操作
TP312C-4517744 C++程序设计 操作

每页有3门课程 当前页次:1/-1页


请各位多指教,先谢了