Sub searchPass(str1 As String)
Dim del As Map
del.Initialize
del = DBUtils.ExecuteMap(SQL, "SELECT password FROM account WHERE password = '" & str1 & "'",Null)
If del.IsInitialized Then
If Not (del.Get("password") == Null) Then
'Log("Pass Okay: "& del.Get("password"))
wrongPass = 0
End If
Else
Log("Not found")
wrongPass = wrongPass+1
'NOTE: variable wrongPass should be declared at Sub Globals
'Dim wrongPass as int
if(wrongPass>3) then
'-DELETE something-
wrongPass = 0
End if
End If
End Sub