|
|
Subscriber Login
<%mmm = request("mode")
if mmm = "forgot" then
%>
<%end if%>
<%if mmm = "send" then
DIM email
DIM rs
DIM name
DIM password
DIM subject
DIM Bodytext
DIM Footertext
DIM message
email = Request.Form("email")
set rs = my_conn.Execute ("select memberid,email,username,password from member where email='" & email & "'")
if rs.eof then
Response.Write "Invalid Email address"
%>
<%
else
memberid = rs("memberid")
'password = rs("password")
'email = trim(rs("email"))
set rspassword = my_conn.Execute ("select email,username,password from member where memberid=" & memberid & "")
password = rspassword("password")
username=rspassword("username")
email = trim(rspassword("email"))
subject = "Password reminder form ListsPlus.net"
Bodytext = "Here is the UserName and Password Information You Requested." & vbCrLf
Bodytext = Bodytext & "Username :" & username & vbCrLf
Bodytext = Bodytext & "Password :" & password & vbCrLf & vbCrlf
Footertext = "Thank you." & vbCrlf
'Footertext = Footertext & "http://www.ezebox.com"
message = Bodytext & Footertext
' mail component has set to send email to user.
'Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
'Mailer.FromName = "ezebox.com"
Dim Mail
Dim HTML
Set Mail = CreateObject("CDONTS.NewMail")
'Mail.Host="63.99.224.51"
Mail.From = "webmaster@listsplus.net"
Mail.To=email
Mail.Subject = "Listsplus.net Login Information"
Mail.Body = message
Mail.send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
respose.write("We are sorry, but your form could not be processed. Please call us at (949) 400-5841. Thank you.")
Response.end
End If
set Mail=nothing
'Mailer.FromAddress = "info@ezebox.com"
'Mailer.RemoteHost = "mail.thaihandwork.com; mail.ezebox.com"
'Mailer.Subject = subject
'Mailer.BodyText = message
'Mailer.AddRecipient name , email
'Mailer.SendMail
'set Mailer = nothing
' Change 9 lines above to match your mail component.
Response.Write "Your Password has been sent to your email address : " & email
end if
rs.close
my_conn.close
set my_conn = nothing
end if
%>
|
|
