<%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}"%>
| Name |
Contact |
Posts |
Last post |
Join date |
Country |
<%
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
%>
| <%logincheck rs("id"),rs("blocked"),rs("admin")%> <%=rs("name")%> |
* |
<%=rs("totalpost")%> |
<%=rs("lastpost")%> |
<%=rs("date")%> |
<%=rs("country")%> |
<%
rs.MoveNext
Next
rs.Close
dbconn.Close
set dbConn = Nothing
set rs1 = Nothing
%>
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
%>