ASP Application Example-pagination _ Code Section

<%
Dim conn,rs,sqlstr,pagesize,rowcount,totalpages,pageno,position,pagebegin,pageend
Set conn= Server.CreateObject ("ADODB.") Connection ")
Set RS = Server.CreateObject ("ADODB.") RecordSet ")
Conn.Open "Provider=sqloledb;data source=127.0.0.1;user id=sa;password=;initial catalog=zjydata"
Sqlstr= "SELECT * from Items ORDER by IID"
Rs.Open sqlstr,conn,1,1
pagesize=10
If RS. Recordcount=0 Then
%>
<table width=100% border=0 cellpadding=1 cellspacing=1 style= ' font-size:9pt ' >
<tr bgcolor= #003366 height=20px>
&LT;TD align=center><font color= #FFFFFF > Product Code </font></TD>
&LT;TD align=center><font color= #FFFFFF > Product name </font></TD>
&LT;TD Align=center><font color= #FFFFFF > Model Specification </font></TD>
&LT;TD align=center><font color= #FFFFFF > Measurement Unit </font></TD>
&LT;TD align=center><font color= #FFFFFF > Reference Price </font></TD>
&LT;TD align=center><font color= #FFFFFF > Reference Price </font></TD>
&LT;TD Align=center><font color= #FFFFFF > Notes </font>
</TR>
<tr height=20px>
&LT;TD Align=center> does not have any merchandise information!</td>
<TR>
</TABLE>
<%
Else
Rs. PageSize = Cint (PageSize)
Totalpages=rs. PageCount
Pageno=request.querystring ("PageNo")
If pageno= "" or pageno<1 Then
PageNo = 1