Practical Computer Solutions, Inc

<% 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 %>

Profits - Business Management Software

Fujitsu ISAM File Access (ODBC/OLE)

PCL2WinPtr

Custom Software Design

Software Support

Networking

Software / Hardware installation

Trouble Shooting

Internet Access (DSL, T1)

VPN Installation

Websites

Security