Private Sub ionbutton3_Click (e As BANanoEvent)
e.PreventDefault
ioninput7.ClearValidation
ioninput8.ClearValidation
app.ResetValidation
app.Validate(ioninput7.IsBlank)
app.Validate(ioninput8.IsBlank)
If app.IsValid = False Then Return
Dim rec As Map = CreateMap()
rec.put("email", ioninput7.value)
rec.put("password", ioninput8.value)
'
'initialize the user instance
user.Initialize(Me, "gun", pgIndex.gun)
'store the user details in session store, so that when tabs are changed, user will still be logged in
user.SaveToSession
'authorize using email & password
user.Auth(ioninput7.Value, ioninput8.Value)
End Sub