<% Option Explicit If not Session("isLoggedIn") Then response.redirect("/ecommerce/default.asp?returnUrl=" & Server.URLEncode(Request.ServerVariables("SCRIPT_NAME"))) End If %> <% Dim strSortCat, strSortOrder, strOldSortOrder Dim rsUser, arrDBData, strSQL Dim iRecFirst, iRecLast, iFieldFirst, iFieldLast Dim I, J strSortCat = "" strSortOrder = "" strOldSortOrder = "" If Request("sortCat") <> "" Then strSortCat = CStr(Request("sortCat")) If Request("sortOrder") <> "" Then strSortOrder = CStr(Request("sortOrder")) If strSortCat = "" Then strSortCat = "UserID" If strSortOrder = "" Then strSortOrder = "ASC" strSQL = "EXEC stpUserSelectAll" Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.CursorLocation = 3 rsUser.Open strSQL, dbconn, 3, 3 rsUser.Sort = strSortCat & " " & strSortOrder strOldSortOrder = strSortOrder If strSortOrder = "ASC" Then strSortOrder = "DESC" Else strSortOrder = "ASC" End If arrDBData = null If rsUser.EOF Then strErrMsg = "no users" isErr = true Else arrDBData = rsUser.GetRows() iRecFirst = LBound(arrDBData, 2) iRecLast = UBound(arrDBData, 2) iFieldFirst = LBound(arrDBData, 1) iFieldLast = UBound(arrDBData, 1) End If ' not EOF rsUser.Close Set rsUser = Nothing %> Galuku Cocopeat

User List

<% If Session("intUserTypeID") = 1 Then %> <% End If %> <% If not isNull(arrDBData) Then For I = iRecFirst To iRecLast %> <% Else %><%= "listAltItem" %><% End If %>"> <% If Session("intUserTypeID") = 1 Then %> <% End If %> <% Next End If %>
Username Name Email Usertype
<%= arrDBData(1,I) %> <%= arrDBData(3,I) & ", " & arrDBData(2,I) %> <%= arrDBData(4,I) %> <%= arrDBData(6,I) %>edit | <% If arrDBData(5,I) = true Then %>de<% End If %>activate

 

^ back to top