<% If Not session("admin_loggedin" & strSUnique) = Session.SessionID then Response.Redirect "default.asp" %>
User Manager

<% Dim totalPage, totalRecords, displayRecords, packArray() setLocale server_locale strPack = "SELECT packID,pname FROM " & tablPfx & "Pack;" Set rspack = objConn.Execute(strPack) P = 0 If Not rspack.EOF then Do While Not rspack.EOF Redim Preserve packArray(P) packArray(P) = rspack(0) & "*" & rspack(1) P = P + 1 rspack.MoveNext Loop End If Select Case Session("Sort_User_Table" & strSUnique) Case "sortads": orderBy = "ads" Case "sortnick": orderBy = "nick" Case "sortcity": orderBy = "city" Case Else: orderBy = "cdate" End Select If Not Session("Sort_Asc" & strSUnique) then order = " DESC" If Request.Form("searchFlag") = "1" then Session("User_List_Filter" & strSUnique) = "6" Session("User_Search_Keyword" & strSUnique) = lcase(sq(Request.Form("S1"))) Session("User_Search_Filter" & strSUnique) = Request.Form("S2") Session("User_List_Page" & strSUnique) = Empty End If Select Case Session("User_List_Filter" & strSUnique) Case "1": selectAccounts = "WHERE status = 0" Case "2": selectAccounts = "WHERE status = 2" Case "3": selectAccounts = "WHERE status = 1" Case "4": selectAccounts = "WHERE moder = 1" Case "5": selectAccounts = "WHERE elist = 1" Case "6" If Session("User_Search_Filter" & strSUnique) = "1" then euEmail = CryptText(Session("User_Search_Keyword" & strSUnique), key, False) selectAccounts = "WHERE email LIKE '%" & euEmail & "%'" ElseIf Session("User_Search_Filter" & strSUnique) = "2" then selectAccounts = "WHERE nick LIKE '%" & Session("User_Search_Keyword" & strSUnique) & "%'" ElseIf Session("User_Search_Filter" & strSUnique) = "4" then selectAccounts = "WHERE IP LIKE '%" & Session("User_Search_Keyword" & strSUnique) & "%'" Else: selectAccounts = "WHERE city LIKE '%" & Session("User_Search_Keyword" & strSUnique) & "%'" End If End select If request.querystring.count = 2 then QueryID = request.querystring.item(1) QueryNick = request.querystring.item(2) If Len(CStr(QueryID)) = 6 And isNumeric(QueryID) then selectAccounts = "WHERE userID = " & QueryID Response.Write "

Account Properties for user " & QueryNick & "

" End If End If strUser = "SELECT " & tablUPfx & "User.* FROM " & tablUPfx & "User " & selectAccounts & " ORDER BY " & orderBy & order & ";" rs.PageSize = pp rs.CacheSize = pp rs.CursorLocation = 3 rs.Open strUser, strConn, 0, 1 If rs.EOF then Response.Write "

" Response.Write "The User List is Empty or there is no match for your Search Criteria Reset

" Else nPage = Session("User_List_Page" & strSUnique) URLlink = "admin_user.asp?" & Server.URLEncode(Request.Querystring) pageType = 9 strPaging = buildPages(nPage, URLlink, pageType) '## paging built in libraries.asp Response.Write strPaging Response.Write "
Total Pages: " & totalPage & "
" Response.Write "Filtered Accounts: " & totalRecords & "
" %>
Global Management

<% For J = 1 to displayRecords If Not rs.EOF Then If J mod 2 = 0 then cellColor = "class='evencell'": Else: cellColor = "class='oddcell'": End If userID = rs(1) fID = "f" & userID fdID = "fd" & userID email = CryptText(rs(2), key, True) aCode = CryptText(rs(9), key, True) showemail = "" & email & "" nick = Replace(rs(3), "'", "") 'pass = CryptText(rs(4), key, True) city = rs(5) ismod = rs(6) IP = rs(24) If ismod then stat_ismod = "yes": else: stat_ismod = "no" str_ismod = "" & stat_ismod & "" setLocale resetLocale crdate = FormatDateTime(rs(7), 0) Select Case CLng(rs(8)) Case 0: status = "Active" Case 1: status = "Not Verif." Case 2: status = "Suspend" End Select totalPosted = rs(10) adLink = "" & totalPosted & "" udate = rs(11) If not udate = Empty then udate = FormatDateTime(udate, 0) ldate = rs(12) If not ldate = Empty then ldate = FormatDateTime(ldate, 0) setLocale server_locale isEList = rs(13) If isEList then stat_isEList = "yes": else: stat_isEList = "no" str_isEList = "" & stat_isEList & "" cred = FormatNumber(CCur(rs(14)), 2) upackID = CLng(rs("paypack")) If upackID > 0 then For P = 0 to Ubound(packArray) If Instr(packArray(P), CStr(upackID)) <> 0 then packName = Split(packArray(P), "*")(1) Next Else: packName = "None" End If With Response .Write "" For opt = 1 to 8 tval = rs("opt" & opt) If not isNull(tval) then tval = Replace(tval, "'", "") Else tval = "" End If .Write "" Next .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" If status = "Active" then .Write "" Else: .Write "" End If .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" .Write "" & vbCrLf End With rs.MoveNext End If Next Response.Write "
Details Email Nick City Editor Created Status Ads Credits/Package E-List Action
" & showemail & "
" & pass & "		 ?\n\nNote: This logon will not update user last logon date.')){window.location='admin_logonas.asp?id=" & userID & "'} return false;"">" & nick & "" & nick & "" & city & "" & str_ismod & "" & crdate & "" & status & "" & adLink & " " & cred & " / " & packName & " Details" & str_isEList & "" .Write "" .Write "" .Write "
" .Write "
" %>

Show:

Keyword: "> Search in:

Note: Use a single keyword for search criteria. Match will occur if keyword is found anywhere within "Serch in" result for User Nick and City. For Email, match occurs only at the beginning of the address or when keyword matches entire address.

Refresh | Admin Tasks | Home | Logout

<% End If rs.close %>