<% if Request.QueryString("order") = "" then StrOrder = "Member_ID" Else StrOrder = Request.QueryString("order") End if Const adOpenKeyset = 1 Const adLockReadOnly = 1 set my_conn= Server.CreateObject("ADODB.Connection") set rs = server.CreateObject("ADODB.RecordSet") my_Conn.Open ConnString strSql ="SELECT * from members order by " & StrOrder 'Response.Write StrSql rs.Open strSql, my_conn, adOpenKeyset, adLockReadOnly if rs.EOF or rs.BOF then Response.Write "No Members Found" Else TotalRows = rs.RecordCount rs.PageSize = 25 PageSize = rs.PageSize TotalPages=RS.PageCount select case Request("move") case "first" pageNo = 1 ' First case "prev" pageNo = cint(Session("page_num")) - 1 ' Next case "next" pageNo = cint(Session("page_num")) + 1 ' Previous case "last" pageNo = TotalPages ' Last case Else PageNo = 1 End Select if cint(PageNo) < 1 then PageNo = 1 if cint(PageNo) > TotalPages then pageNo = TotalPages RS.AbsolutePage = PageNo PageNumber=PageNo Session("page_num") = PageNo Response.Write "

<< " Response.Write "< " Response.Write "> " Response.Write ">>

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" HowMany = 0 Do until rs.EOF or HowMany => PageSize Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" rs.MoveNext howmany = howmany + 1 loop Response.Write "
IdNomePasswordEmailPaísHomePageICQSigNível
" &rs("Member_ID") & "" & "" & rs("M_Name") & "" & rs("M_Password") & "" & rs("M_Email") & "" & rs("M_Country") & "" & rs("M_HomePage") & "" & rs("M_ICQ") & "" & rs("M_Sig") & "" & rs("M_Level") & "
" End if Response.Write "

<< " Response.Write "< " Response.Write "> " Response.Write ">>

" %>

<%= PageNumber %> de <%= TotalPages %>

<% rs.Close set rs=nothing my_conn.Close set my_conn = nothing %>