if not Rs.EOF Then
response.write "<table width='100%' style='font-style:normal;font-weight:normal; font-size:11px'> "
response.write "<tr><td>Pages "
i=rs.PageCount
for i=1 to rs.pagecount
if i = pageno then response.write "<font size=4><B>"
response.write "<a href ='???.asp?pageno=" & i &"'>" & i &"</a> "
if i = pageno then response.write "</font></B>"
next
response.write " ( Page size = "& pagesize & " lines )"
response.write "</td></tr></table> "
jj = 0
while not rs.eof and (jj <PageSize)
jj=jj+1
'== Show Data ==
rs.movenext
wend