奥康加盟费:有关ASP分页问题？？？

<%@ Language=VBScript%>
<%
Response.Buffer=true
Response.Expires=0
%>
<!-- #include file="dsn_root.asp" -->

<%
menu = "case"
baseclass = "100"

set cn = Server.CreateObject("adodb.Connection")
set rs = Server.CreateObject("adodb.Recordset")
cn.Open mycnstr

if classcode="" then
sql="select top 1 classcode,classname from shfw_class where baseclass='"+baseclass+"' and flag='0' order by sortnum"
else
sql="select classcode,classname from shfw_class where classcode='"+classcode+"' and flag='0'"
end if

rs.Open sql,cn,0,1,1
if not rs.EOF then
classcode=rs(0)
classname=trim(rs(1))
else
Response.Redirect "default.asp"
end if
rs.Close
%>
<title>xxx</title>

<table width="800" height="169" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%
dim i,intPage,page,pre,last,filepath
sql="select keyno,classcode,title,title3,title8,creadate from shfw where classcode='" & classcode & "' and state='1' order by sortnum asc"