<%If request("blockid")<>"" Then blocking request("blockid") If request("adminid")<>"" Then adminperm request("adminid") pageName = "members.asp" If Request("page")="" then iPage = 1 Else iPage = int(Request("page")) End if Numb = (iPage * pageSize) + 1 %> <%=sitename%> <%=meta%> <%searchbox%> <%loginform%>

<%=sitename%> Members. <%If session("userisadmin") then response.write "{email all}"%>

<% set dbConn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") dbConn.Open ConStr sql = "SELECT * FROM users ORDER BY lastpost desc;" rs.Open sql, dbConn ,1,3 if not rs.EOF then rs.PageSize = pageSize intPageCount = rs.PageCount rs.AbsolutePage = iPage totalm = rs.recordcount For intRecord = 1 To rs.PageSize If rs.EOF Then Exit For %> <% rs.MoveNext Next rs.Close dbconn.Close set dbConn = Nothing set rs1 = Nothing %>
Name Contact Posts Last post Join date Country
<%logincheck rs("id"),rs("blocked"),rs("admin")%> <%=rs("name")%> * <%=rs("totalpost")%> <%=rs("lastpost")%>  <%=rs("date")%> <%=rs("country")%>

Total Members: <%=totalm%> <% response.write "

" If ipage > 1 then response.write "" & "[ LAST ]" & "" if ipage < intPageCount then response.write "" & "[ MORE ]" & "" response.write "

" Set dbConn = Nothing Set rs = Nothing Else response.write "

" response.write "No records found.
" response.write "


" End if %>

<% Sub blocking(blockid) If not session("userisadmin") Then response.redirect "error.asp?message=You dont have the authority to change this Configuration!" Set dbConn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") dbConn.Open ConStr SQL = "Select * from users where id=" & int(blockid) rs.Open SQL, dbConn ,1,3 If rs("blocked") Then rs("blocked") = False Else rs("blocked") = True End if rs.update rs.Close dbconn.Close Set dbConn = Nothing Set rs = Nothing End Sub Sub adminperm(adminid) If not session("userisadmin") Then response.redirect "error.asp?message=You dont have the authority to change this Configuration!" Set dbConn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") dbConn.Open ConStr SQL = "Select * from users where id=" & int(adminid) rs.Open SQL, dbConn ,1,3 If rs("admin") Then rs("admin") = False Else rs("admin") = True End if rs.update rs.Close dbconn.Close Set dbConn = Nothing Set rs = Nothing End Sub Sub logincheck(id,blocked,admin) If session("userisadmin") then response.write "x#" If blocked then response.write "L" else response.write "J" End if If admin Then response.write "K" else response.write "" End If response.write "" End if End Sub %>