<%@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" %> <% AdminToDelete = Request("UserID") if (AdminToDelete = "") then response.redirect"message.asp?msg=20" set rsUser = mlConn.Execute("SELECT * FROM ML_Users WHERE UserID = " & AdminToDelete) if (rsUser.EOF) then response.redirect "message.asp?msg=20" if (rsUser("Master") = "Y") then response.redirect "message.asp?msg=20" User = rsUser("Username") if request("action") = "delete_user" then if (strDBType = "access") then delHeader = " *" else delHeader = "" del = delCommand("DELETE" & delHeader & " FROM ML_Users WHERE UserID = " & adminToDelete, ELetter_String) response.redirect "message.asp?msg=3&user=" & User end if %> <%=ListName%> - Spd E-Letter Administration

Delete User

Are you sure you want to delete the following administrator? Remember, this action is undoable.

Username: <%=rsUser("Username")%>
Real Name: <%=rsUser("RealName")%>
Email Address:   <%=rsUser("RealEmail")%>
Abilities: <%=rsUser("Broadcast")%>- Broadcast
<%=rsUser("Admin")%>- Admin
<%=rsUser("Prefs")%>- Prefs
<%=rsUser("Master")%>- Master
">

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