(21) Handle successful login
•  ELSE
•    cGroup=UCASE(RTRIM(oRS("Group_")))
•    Save "View.Application_ID",CSTR(oRS("_ID"))
•    cStatus=RTRIM(oRS("Status__lookup_"))
•    Save "Status",cStatus
•    GetUserData=TRUE
•  END IF
•  Close
•END FUNCTION