Also you are setting record to gDataBase rather than to an item within it.
on findMeOnLogIn
htext = ""
getFirstName = member( "Entry - FirstName" ).text
getPassword = member( "Entry - password" ).text
if listP( gDatabase ) then
repeat with i = 1 to gDatabase.count
record = gDatabase[i]
if NOT ( getFirstName = record.Firstname ) then
next repeat
end if
if NOT ( getPassword = record.password ) then
next repeat
end if
gCurrentRecord = i
member( "Record Number" ).text = "Record" && gCurrentRecord
put record.FirstName after htext
member( "Read FirstName from list" ).text = htext
go to "welcome"
exit
end repeat
end if
go to "Register"
createRecord()
end findMeOnLogIn
|