<%
if Request.QueryString("mode") = "doit" then
email = request.form("email")
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
Mailer.RemoteHost = "" & mailsrv & ""
Mailer.AddRecipient "","" & email & ""
Mailer.FromName = "Forum" & nomesrv & ""
Mailer.FromAddress = "" & emailsrv & ""
Subject = "" & nomesrv & " Forum Password"
mssg = "You have received this mail because you have asked to be reminded of you password"
mssg = mssg & "For the Forum at http://www." & domain & "" & vbCrLf & vbCrLf
strSql = "Select M_name, M_Password, M_Email from members where M_Name = '"
strSql = strSql & Request.Form("Name") & "' and M_Email ='"
strSql = strSql & Request.Form("email") & "'"
set rs = my_conn.Execute (StrSql)
if rs.EOF or rs.BOF then
mssg = mssg & "Sorry The details you passed were unknown." & vbCrLf & vbCrLf
mssg = mssg & "Please register again at http://www." & domain & "/forum/register.asp" & vbCrLf
Else
mssg = mssg & " Your Password id :- " & rs("M_Password") & vbCrLf
End if
mssg = mssg & "Thank you for using the " & nomesrv & " Forum"
Mailer.BodyText = mssg
if Mailer.SendMail then
Response.Write " "
else Response.Write "There was an error, contact " & emailsrv & ". Error was "& Mailer.Response
end if
rs.close
set rs=nothing
my_conn.Close
set my_conn = nothing
%>
Password Reminder
You should receive an email any moment now!
<%
Else
%>
Password Reminder