<%@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" %> <% insrtUsername = trim(request("Username")) insrtPassword = trim(request("Password")) insrtPassword2 = trim(request("Password2")) insrtRealName = trim(request("Realname")) insrtRealEmail = trim(request("RealEmail")) insrtNavigation = Cint(request("Navigation")) insrtViewNum = CInt(request("ViewNum")) if (request("Broadcast") = "Y") then insrtBroadcast = "Y" else insrtBroadcast = "N" if (request("Prefs") = "Y") then insrtPrefs = "Y" else insrtPrefs = "N" if (request("Admin") = "Y") then insrtAdmin = "Y" else insrtAdmin = "N" if (request("EmailUserInfo") = "Y") then emailIt = true else emailIt = false limitList = 1 if request("action") = "add_admin" then lists = "|0|" if lists = "" and limitList = 2 then msg = 1 else if insrtUsername = "" or insrtPassword = "" or insrtRealName = "" or insrtRealEmail = "" then msg = 2 else if insrtPassword <> insrtPassword2 then msg = 3 else if NOT verifyEmail(insrtRealEmail) then msg = 4 else set rsCheckDuplicates = mlConn.Execute("SELECT * FROM ML_Users WHERE UserName = '" & Replace(insrtUsername,"'","''") & "'") if NOT rsCheckDuplicates.EOF then msg = 5 else addThem = addUser() end if end if end if end if end if function addUser() listStr = "|0|" strSQL = "INSERT INTO ML_Users (Username, MyPassword, RealName, RealEmail, Usr, Master, Broadcast, Prefs, Admin, CreatedDate, allowedLists, Navigation, ViewNum, showTips, LastLoginDate) VALUES ('" & replace(insrtUsername,"'","''") & "','" & replace(insrtPassword,"'","''") & "','" & replace(insrtRealname,"'","''") & "','" & replace(insrtRealEmail,"'","''") & "','Y','N','" & insrtBroadcast & "','" & insrtPrefs & "','" & insrtAdmin & "'," & cfgDate & ",'" & listStr & "','" & insrtNavigation & "','" & insrtViewNum & "',1,0)" mlConn.Execute(strSQL) if emailIt then set rsUser = mlConn.Execute("SELECT * FROM ML_Users WHERE UserName = '" & Request("Username") & "'") Mailer = MailerProgram MailerPath = MailerPath MailerPort = PortNum Format = "Text" ToEmail = rsUser("RealEmail") ToName = rsUser("RealEmail") FromName = ListName FromEmail = DefaultEmail ReplyTo = DefaultEmail Subject = "Your Admin Username for the Spd E-Letter" Message = "Your new Aministrator Username & Password have been created for the " & ListName & ". You can access the administration section using the information provided below." Message = Message & VbCrLf & VbCrLf & "Username: " & rsUser("Username") Message = Message & VbCrLf & "Password: " & rsUser("MyPassword") Message = Message & VbCrLf & VbCrLf & "You can login here: " & adminURL doIt = sendEmail(Mailer, Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath, MailerPort, Format, BCCEmail, CCEmail, ReplyTo) set rsUser = nothing end if response.redirect "message.asp?msg=1&user=" & Server.URLEncode(insrtUserName) end function end if %> <%=ListName%> - Spd E-Letter Administration

Create 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 %>The passwords did not match, please try again. <% elseif msg = 4 then %>Invalid Email Address. <% elseif msg = 5 then %>Username already exists, please use another. <% end if %>

 

All Fields are Required

Username: (4-10 alphanumeric characters only)
Password: (4-8 alphanumeric characters only)
Confirm Password: (4-8 alphanumeric characters only)
Real Name:
Email Address:
Default Navigation Bar:
View # Subscribers Per Page:
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.

 

Email this user their new login information.