<%@LANGUAGE="VBSCRIPT"%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="Administrator" MM_authFailedURL="../../client_login.asp?l=loginerror" MM_grantAccess=false If Session("MM_Username") <> "" Then If (false 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 %> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim del Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Delete Record: construct a sql delete statement and execute it If (CStr(Request.QueryString("MM_delete")) <> "" And CStr(Request.QueryString("del")) <> "") Then ' *** Delete Record: declare variables MM_editConnection = MM_db_STRING del = "'" + Request.QueryString("del") + "'" MM_editRedirectUrl = "files.asp?u=" & Request.QueryString("del") & "&f=all" ' create the sql delete statement MM_editQuery = "delete from profiles where username = " & del If (Not MM_abortEdit) Then ' execute the delete Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim rsUsers Dim rsUsers_numRows Set rsUsers = Server.CreateObject("ADODB.Recordset") rsUsers.ActiveConnection = MM_db_STRING rsUsers.Source = "SELECT * FROM profiles ORDER BY username ASC" rsUsers.CursorType = 0 rsUsers.CursorLocation = 2 rsUsers.LockType = 1 rsUsers.Open() rsUsers_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsUsers_numRows = rsUsers_numRows + Repeat1__numRows %>

<%= company %> Admin Area

New User

<% While ((Repeat1__numRows <> 0) AND (NOT rsUsers.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsUsers.MoveNext() Wend %>

Admin	Username	Name	Email	Rank	Files
">Edit \| " onClick="return ask()">Del	<%=(rsUsers.Fields.Item("username").Value)%>	<%=(rsUsers.Fields.Item("company_name").Value)%>	<%=(rsUsers.Fields.Item("email").Value)%>	<%=(rsUsers.Fields.Item("rank").Value)%>	" class="style1">Manage

<% rsUsers.Close() Set rsUsers = Nothing %>