<% mode=Request("mode") txtEmail=Trim(Request("txtPwd")) if mode="send" then Dim db,Rid 'Create ADODB object set db = Server.CreateObject("ADODB.Connection") 'Open the connection db.open(dsn) qSelect = "select Email,Passwords from tblUsers where Email='"&txtEmail&"'" '# CHECK USERNAME set rs = db.execute(qSelect) if rs.EOF = False then Upwd= rs("Passwords") Eid=rs("Email") MyBody = MyBody &"Your PCSInfo.com Customer's area Password is: "&Upwd &vbcrlf MyBody = MyBody &" " &vbcrlf MyBody = MyBody &" "&vbcrlf MyBody = MyBody &" "&vbcrlf MyBody = MyBody &"Regards, " &vbcrlf MyBody = MyBody &"Practical Computer Solutions, Inc." &vbcrlf SendMail MailCOM,"webrequest@pcsinfo.com",Eid,MailSMTP,"Password Recovery",MyBody msg="Your passwords has been sent." Else msg="Your E-mail Address didn't Match." End if set rs=nothing End if %>



Home   |  Contact Us 
Site Search

About Us

Products & Services

Support

Knowledge Base

Customer Area

Contact Us

E-mail Us

Customer Area
Password Recovery

<%=msg%>
Enter E-mail Address:


About Us  |  Products & Services  |  Support  |  Knowledge Base  |  Customer Area  |  Contact Us  |  Email Us
2008 Practical Computer Solutions, Inc.         All rights reserved.   Home   |   Contact Us

Site By YMS Web Solutions