<%
dim connect, rs, sql, ctr,recaddr, pagenum, totrs, gotopg, pg
pg = request.form("pg")
ctr = request.form("ctr")
pagenum = request.form("pagenum")
if pg = "" then pg = 1
if request.form("ctr") = "" then ctr = "first"
if request.form("pagenum") = "" then pagenum = 1
set connect = server.createobject("ADODB.Connection")
connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_
Server.MapPath("\perlphpasp\db\casereg.mdb"))
sql = "select * from student order by idstd"
set rs = server.createobject("ADODB.recordset")
rs.open sql,connect,1,3
totrs = rs.recordcount
if totrs > 0 then
  select case ctr
  case "first"
    pagenum = 1
  case "previous"
    if pagenum = 1 then 
      pagenum = totrs
    else
      pagenum = pagenum - 1
    end if
  case "next" 
    tnext = totrs
    if int(pagenum) >= int(tnext) then             
      pagenum = 1
    else
      pagenum = pagenum + 1
    end if
  case "last"
    pagenum = totrs \ pg
    rest = totrs mod pg
    if rest > 0 then
      pagenum = pagenum + 1
    end if
  end select
  calgoto = int(pg) * (int(pagenum) - 1)
  if pagenum = 1 or calgoto > totrs then
    gotopg = 0
  else
    gotopg = calgoto
  end if
  rs.move gotopg
  n = gotopg + 1
  response.write(" Current: "& pagenum &" / "& totrs &_
  " Start record: "& n &"<br>")   
  for i = 1 to pg 
    if not rs.eof then  
      response.write(n&". "&rs("idstd")&" - "&rs("stname")&" - "&_
	  rs("stsurn")&" - "&rs("advid")&" - "&rs("major")&"<br>")  
      rs.movenext
    end if   
    n = n + 1
  next
else
  response.write("Record not found")
end if  
connect.close
set rs = nothing
set connect = nothing
response.write("<hr><form action=listpage.asp method=post>" &_
"Rec/Page: <input name=pg value="& pg & ">" &_
"Page no: "& pagenum & "<input type=hidden name=pagenum value="& pagenum &"><br>" &_
"<input type=submit name=ctr value=first>" &_
"<input type=submit name=ctr value=previous>" &_
"<input type=submit name=ctr value=next>" &_
"<input type=submit name=ctr value=last></form>")
%>