//-- Button/Link with "no" server action, browser onclick event
// Checks whether the cookies are accepted by the browser 

// Write a cookie in a browser code
sCookieVal is string
sCookieName is string
sCookieVal = DateSys() + TimeSys()
sCookieName = DateSys() + TimeSys()

CookieWrite(sCookieName, sCookieVal, 1)

// Re-read the cookie and check the value read
IF NOT sCookieVal = CookieRead(sCookieName) THEN
	// Cookies not accepted
	Error("The browser does not accept the cookies", ...
			"modify the parameters of your browser " + ...
			"to accept the cookies.")
ELSE
	// Cookies accepted
	Info("Cookies accepted")
END

// -- Click on a button/link (server code) 
// Write a cookie in server code
CookieWrite("LastUse", DateSys() + TimeSys())

// Read a cookie in server code
// CookieRead can only be used to 
// read the cookies loaded in memory at the beginning of the session. 
// Therefore, the cookies written in the current session cannot be read. 

// The cookie must have been written during a previous session
sCookieVal is string
sCookieVal = CookieRead("LastUse")
IF NOT sCookieVal ~= "" THEN
	Info("Last used on: ", sValCookie)
END