Ok I figured it out myself.
// Read User/Password Code from text file
Dim strin As TextInputStream
Dim f As FolderItem
Dim userName, userPassword1, userPassword2 as String
f = GetFolderItem("PatientLog_UPC.ini")
If f.exists and f <> Nil then
strin = f.OpenAsTextFile
userName = strin.ReadLine
userPassword2 = strin.ReadLine
strin.Close
end if
userPassword1 = MD5(uPassword.text)
if uName.text = userName and userPassword1= userPassword2 then
self.Close
Logged.ShowModal
else
MsgBox("The User's Name and/or Password are NOT listed as users on this
system. Either re-try entering the User Name and Password or create a NEW
User." + EndOfLine+ EndOfLine + "Please press 'OK' to continue...")
end
And it works great.
Thanks Joe, and you are right as this is enough for this post topic.
Jonathon
--
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.5.1/328 - Release Date: 5/1/2006
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
