<% language = "vbscript" DIM currentPage, rowCount, i dim a,b,c,d,str,j str="select email from master where email='" & Request.Form("login") & "'" Set Con = Server.CreateObject( "ADODB.Connection" ) ConnectionString = "DRIVER=SQL SERVER;SERVER=server1;CATALOG=match;UID=mangal;PWD=mangalpasswd"Con.Open ConnectionString Set RS = Server.CreateObject( "ADODB.Recordset" ) RS.Open str, Con 'on error resume next do while not RS.eof for i = 0 to RS.fields.count - 1 if IsNull(RS.fields(i)) then response.write ("no data found") c = RS.fields(i) else c = trim(RS.fields(i)) end if RS.movenext next loop if trim(request.form("login"))<>trim(c) then %>
Note :

1) Please enter your email address and press submit, we will send an email notifying your password  shortly. 

2) Please type the email address as given by you while registering.

Forget Password : Type Your Email ID Here
E-Mail
 

<% end if if trim(request.form("login"))=trim(c) then str1="select password from master where email='" & Request.Form("login") & "'" Set RS1 = Server.CreateObject( "ADODB.Recordset" ) RS1.Open str1, Con 'on error resume next do while not RS1.eof for i = 0 to RS1.fields.count - 1 if IsNull(RS1.fields(i)) then response.write ("no data found") d = RS1.fields(i) else d = trim(RS1.fields(i)) end if RS1.movenext next loop ' f = "Dear sir/madam,response.write "
" " ' response.write f ' sending mail Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "127.0.0.1:25" JMail.Sender = Request.Form("email") JMail.Subject = Request.Form("subject") JMail.AddRecipient Request.Form("login") JMail.Body = " Dear Sir/Madam, your password for the site is '" & d & "'. Please sign in using this password at mangalyam.com . regards, Webmaster(mangalyam.com) " JMail.Execute 'end of mail %> <% end if %>