Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
lcServer = 'Ppaid'
lcDatabase = "Activity"
lcUser = 'user'
lcPassWord = 'uwt'
GetConnHandle = SQLCONNECT(lcServer,lcUser,lcPassWord)
IF GetConnHandle > 0
= SQLPREPARE(GetConnHandle, 'Select * from cards where nActive= "1"')
GetQuery = SQLEXEC(GetConnHandle)
IF GetQuery> 0
SELECT SqlResult
COUNT TO lnActiveCards
ENDIF
= SQLPREPARE(GetConnHandle, 'Select * from cards where nActive= "0"')
GetQuery = SQLEXEC(GetConnHandle)
IF GetQuery> 0
SELECT SqlResult
COUNT TO lnExpiredCards
ENDIF
SQLDISCONNECT(GetConnHandle) && Close the ODBC connection
ENDIF