<%=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 Nav3 : Nav3 = "1" %> <% if request("Action") = "lost_password" then Dim UserID : UserID = "xyz" if (Request.Form("UserName") <> "") then UserID = Request.Form("UserName") set rsLogin = mlConn.Execute("SELECT * FROM ML_Users WHERE Username = '" + Replace(UserID, "'", "''") + "'") if rsLogin.EOF then set rsLogin = nothing response.Redirect "default.asp?msg=2" else Dim Mailer : Mailer = MailerProgram Dim MailerPort : MailerPort = PortNum Dim ToEmail : ToEmail = rsLogin("RealEmail") Dim ToName : ToName = rsLogin("RealName") Dim FromName : FromName = ListName Dim FromEmail : FromEmail = DefaultEmail Dim Format : Format = "text" Dim Subject : Subject = "Your lost password" Dim Message: Message = "Below is your login information for the Spd E-Letter Mailing List Administration Panel:" Message = Message & VbCrLf & VbCrLf Message = Message & "Username: " & rsLogin("Username") Message = Message & VbCrLf Message = Message & "Password: " & rsLogin("MyPassword") Message = Message & VbCrLf & VbCrLf & "You can login here: " & adminURL set rsLogin = nothing on error resume next doIt = sendEmail(Mailer, Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath, MailerPort, Format, BCCEmail, CCEmail, ReplyTo) if doIt then response.redirect "default.asp?msg=3" else response.redirect "default.asp?msg=5&err=" & server.urlencode(err.description) end if end if end if %> <%=ListName%> - Spd E-Letter Administration

Lost Password

To retrieve your lost password, simply enter in your username below and hit the button. Your password will be sent to the email address on file. If you do not receive your password within a few minutes, please contact the list administrator for details.