Cookie1

subroutine Cookie1

***********************************************************************

* Demonstrate setting a cookie

***********************************************************************

*

* [00] 08Aug97 jr Initial Creation

* [01] 23Sep97 jr Add second call to w3HtmlCookie

* [02] 29Sep97 jr Remove w3HtmlComplete

* [03] 06Sep00 jr Replace references to picksys with references to rainingdata

include wbp w3Include

* set cookie1 for exactly one day, readable by anyone in this domain

name        = "FlashCONNECT=Best FlashBASIC development environment!!!"

expire.date = date() + 1

expire.time = time()

path        = ""

domain      = ".rainingdata.com"

secure      = ""

* set cookie2, default the rest of the values

name<-1>        = "More=Multiple cookies can be set at the same time"

call w3HTMLCookie(name, expire.date, expire.time, path, domain, secure)

name = "Additional=Or set through multiple calls"         ;* [01]

call w3HtmlCookie(name, "", "", "", "", "")               ;* [01]

subsitutions=""

subsitutions<1,1>="##HEADLINE##"

subsitutions<1,2>=""

subsitutions<2,1>="##TITLE##"

subsitutions<2,2>="Cookie Demonstration"

*  set up the HTML page

call w3HTMLInit("","")         ;* use system.headfoot.html, the default

call w3HTMLHeader("",subsitutions)

call w3HTMLInsert("cookie.results","")

call w3HTMLFooter("","")

return