<%=ListName%> - Spd E-Letter Administration

<%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Access : Access = "Admin" Dim Nav3 : Nav3 = "3" %> <% UserID = request("UserID") if (UserID = "") then response.redirect "message.asp?msg=20" set getUser = mlConn.Execute("SELECT * FROM ML_Users WHERE UserID = " & UserID) if (getUser.EOF) then response.redirect "message.asp?msg=20" if (getUser("Master") = "Y") then response.redirect "message.asp?msg=20" userID = getUser("userID") varUsername = getUser("Username") varName = getUser("RealName") varEmail = getUser("RealEmail") varBroadcast = getUser("Broadcast") varAdmin = getUser("Admin") varPrefs = getUser("Prefs") lists = getUser("allowedLists") if request("action") = "edit_admin" Then varName = request("RealName") varEmail = request("RealEmail") varBroadcast = request("Broadcast") varAdmin = request("Admin") varPrefs = request("Prefs") if varName = "" or varEmail = "" then msg = 2 else if NOT verifyEmail(varEmail) then msg = 3 else strSQL = "UPDATE ML_Users SET " strSQL = strSQL & "RealName = '" & replace(varName, "'", "''") & "', " strSQL = strSQL & "RealEmail = '" & replace(varEmail, "'", "''") & "', " strSQL = strSQL & "Broadcast = '" & varBroadcast & "', " strSQL = strSQL & "Admin = '" & varAdmin & "', " strSQL = strSQL & "Prefs = '" & varPrefs & "', " strSQL = strSQL & "allowedLists = '|0|' " strSQL = strSQL & "WHERE USerID = " & userID mlConn.Execute(strSQL) response.redirect "message.asp?msg=4&user=" & server.urlencode(varUsername) end if end if end if %> <%=ListName%> - Spd E-Letter Administration

Edit User

<% if msg = 1 then %>You must choose at least one list for this user. <% elseif msg = 2 then %>Missing Information. Please complete all fields. <% elseif msg = 3 then %>Invalid Email Address. <% end if %>

*All Fields are Required*
Username:
Real Name:
Email Address:
Abilities:	> Broadcast: User has the ability to compose and broadcast message to the lists. > Admin: Has the ability to create/edit/delete user. > Prefs: Has the ability to change/modify site preferences.

<% set getUser = nothing %>