<%@LANGUAGE="VBSCRIPT"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="login.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<%
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 se encontraron Usuarios"
Else
TotalRows = rs.RecordCount
rs.PageSize = 25
PageSize = rs.PageSize
TotalPages=RS.PageCount
select case Request("move")
case "primera" pageNo = 1 ' First
case "anterior" pageNo = cint(Session("page_num")) - 1 ' Next
case "próxima" pageNo = cint(Session("page_num")) + 1 ' Previous
case "última" 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 "| Id | "
Response.Write "Nombre | "
Response.Write "Contraseña | "
Response.Write "Email | "
Response.Write "País | "
Response.Write "HomePage | "
Response.Write "ICQ | "
Response.Write "Firma | "
Response.Write "Nivel |
"
HowMany = 0
Do until rs.EOF or HowMany => PageSize
Response.Write ""
Response.Write "| " &rs("Member_ID") & "" & " | "
Response.Write "" & rs("M_Name") & " | "
Response.Write "" & rs("M_Password") & " | "
Response.Write "" & rs("M_Email") & " | "
Response.Write "" & rs("M_Country") & " | "
Response.Write "" & rs("M_HomePage") & " | "
Response.Write "" & rs("M_ICQ") & " | "
Response.Write "" & rs("M_Sig") & " | "
Response.Write "" & rs("M_Level") & " | "
Response.Write "
"
rs.MoveNext
howmany = howmany + 1
loop
Response.Write "
"
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
%>