<% on error resume next 'Specify your captcha length here, this is the only configuration requirement captchaLength = 5 Function captcha(captchaLength) if captchaLength > 15 then captchaLength = 15 HighestValue = left(100000000000000,captchaLength) lowestValue = left(999999999999999,captchaLength) Randomize intHighestNumber = Int((HighestValue - LowestValue + 1) * Rnd) + LowestValue session("captcha") = Int(intHighestNumber) x = 1 'response.write vbcrlf & "" & vbcrlf & vbtab & "Security Code:" & vbcrlf while x <= captchaLength response.write vbtab & vbtab & "" & vbcrlf x = x + 1 wend 'response.write vbtab & "" & vbcrlf & "" & vbcrlf End Function %> <% 'response.Write(request("captcha")&"---111
") 'response.Write(session("captcha")&"++++111
") 'response.End() if request("action") = "captcha" then response.Write(".") 'response.Write(request("captcha")&"---111
") 'response.Write(session("captcha")&"++++111
") 'response.End() if cstr(request("captcha")) = cstr(session("captcha")) then 'response.Write(request("captcha")&"
") ' response.Write(session("captcha")&"
") ' response.End() ' response.write "
" 'response.Write "" 'response.Write "" 'response.Write "" 'response.Write "" 'response.Write "" 'response.Write "" 'response.Write "" 'response.Write "" 'response.Write "" 'response.Write "" 'response.Write "
" 'dispform 'session("captcha")="" %> <% else 'response.Write("TTT") 'response.End() ' displayform mess="Sorry, security code does not match." end if end if %> <% up "supplier" %>
<% dim db dim flag,email,cat,login,pwd flag=true cat = "" cat = request.querystring("cat") if len(cat) = 0 then cat=request.form("cat") end if utype=request.Form("utype") email=request.form("email") response.write "
" response.write "

Home >> " response.write "Forgot Your Password? " response.write "


" if request("id") <> "" then displayform flag = false response.write "
" end if if flag then validation1 'to ensure that the email have been entered if flag then validation2 %>



<% Bottom_Patch response.write "" %> <% Sub validation2 if request("action") = "captcha" then if cstr(request("captcha")) = cstr(session("captcha")) then '''if cat = "Inquirybasket" Or cat="PAlert" then connection if utype="member" then if cat="Inquirybasket" then s="select * from member where email like '"&email&"' " else s="select * from member where email like '"&email&"' "'and source like 'PAlert'" end if set r=server.createobject("adodb.recordset") r.open s, db, 3 if r.recordcount=0 then flag=false response.write "

" response.write "" response.write "This Email is not registered." displayform response.write "Else Click here for New Free Registration.

" response.write "" else login="" 'login = r("login") 'pwd = r("Password") 'login = trim(login) 'response.write login&"Hi himanshu" 'if len(login)= 0 then ' login = r("login") ' pwd = r("Password") ' else s="update member set login='"&email&"',password='"&r("member_id")&"' where email like '"&email&"' " db.execute(s) 'response.write s login = email pwd = r("member_id") 'end if response.write "
Your login and password has been sent to your email address. Thank you.

" response.write "" sendmail end if end if '''member end if ''' else connection if utype="supplier" then s="select supplier_id,Email,pin from supplier where EMail='"&email&"' " set r=server.createobject("adodb.recordset") r.open s, db, 3 if r.recordcount=0 then flag=false response.write "

" response.write "" response.write "This Email is not registered." displayform response.write "Else Click here for New Free Registration

" response.write "" else s="select * from login where supplier_id="&r("Supplier_Id")&" " set r1=server.createobject("adodb.recordset") r1.open s, db, 3 if r1.recordcount<>0 then if len(r1("login_name")) > 1 then login = r1("login_name") pwd = r1("Password") response.write "Your login and password has been sent to your email address. Thank you.

" response.write "" sendmail else login = r("supplier_id") pwd = r("pin") response.write "Your login and password has been sent to your email address. Thank you.

" response.write "" s="insert into login values ("&r("Supplier_Id")&",'"&login&"','"&pwd&"')" set r2=server.createobject("adodb.recordset") r2.open s, db, 3 sendmail1 end if end if response.write "" end if end if ''supplier if end if '''end if else displayform mess="Sorry, security code not match." end if else displayform mess="Sorry, security code not match." end if End Sub %> <% Sub validation1 response.write "" if len(email)=0 then flag=false else for i=1 to 15 if strcomp(len(email), space(i), 1)=0 then exit for next if i<=15 then flag=false end if if not flag then response.write "

You have not entered the email Address" displayform response.write "" end if End Sub %> <% sub displayform response.write "" response.write "

Please enter your email address which you had entered during registration.
" response.write "
" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "
Email :" response.write "
User Type :" response.write "  *
security code:" response.write ""&captcha(captchaLength)&""&mess&"
 " response.write "" response.write "  
" end sub %> <% Sub sendmail 'set mail=server.createobject("aspmail.aspmailctrl.1") 'cTypeString = "text/html; charset=iso-8859-1" 'result = Mail.XHeader("Content-Type", cTypeString) 'mailserver="localhost" 'recipient=email 'sender="editor@easy2source.com" 'subject="Your login name and password" dim mymail ' set mymail = Server.CreateOBject("jmail.SMTPMail") ' mymail.Logging = true '' mymail.silent = true ' mymail.ContentType = "text/html" ' mymail.sender = "editor@easy2source.com" ' mymail.AddRecipient email ' mymail.Subject = "Your login name and password" bodytext="
" bodytext=bodytext&"
easy2source
              .com
" bodytext=bodytext&"

" bodytext=bodytext&"Dear Member,

Please note that your login and password of "&Ucase(utype)&" registeration are as under :
" bodytext=bodytext&"
Login Name : "&login&"" bodytext=bodytext&"
Password : "&pwd&"" bodytext=bodytext&"

Thanking You.

" bodytext=bodytext&"Minesh Modi
" bodytext=bodytext&"Editor-easy2source.com

" 'result = mailer.SendMail(mailserver, recipient, sender, subject, bodytext) 'mymail.HtmlBODY=bodytext 'on error resume next 'mymail.send 'set mail=nothing ' mymail.Body = bodytext 'mymail.Send("mail.easy2source.com") ' mymail.serveraddress = "66.7.148.50" ' mymail.priority = 1 'on error resume next ' mymail.Execute ' set mymail=nothing Dim iMsg Dim iConf Dim Flds Dim strHTML Const cdoSendUsingPort = 2 set iMsg = CreateObject("CDO.Message") set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "96.127.179.226" .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 25 .Update End With With iMsg Set .Configuration = iConf .To = email '.Bcc = "admin@embroideryemotions.com" .Bcc = "editor@easy2source.com" .From = "editor@easy2source.com" .Subject = "Your login name and password" .HTMLBody = bodytext .Send End With Set iMsg = Nothing Set iConf = Nothing Set Flds = Nothing End Sub %> <% Sub Bottom_Patch %>

<% End Sub %>