<< Transact Proglet Example >> system demo; define(item) http X(10), init=" "; define(item) pathinfo X(20), init=" "; define(item) querystring X(80), init=" "; define(item) name X(30), init=" "; define(item) age X(10), init=" "; list http: pathinfo: querystring: name: age; set(option) nohead; set(option) width=132; set(option) depth=0; main-loop: data http; if (http) = "GET" then go to handle-get; if (http) = "POST" then go to handle-post; if (http) = "EXIT" then go to main-exit; display "", line: "

Unsupported method", line: (http): "

", join=0: "", line; go to main-loop; handle-get: data pathinfo: querystring; display "", line: "MPE Proglet Demo", line: "

Welcome to my Transact Proglet

", line: "

PathInfo is", line: (pathinfo): "

", join=0: "

QueryString is", line: (querystring): "

", join=0: "", line: "

Lars Appel, March 2000!

", line: "", line; go to main-loop; handle-post: data pathinfo: querystring: name: age; display "", line: "MPE Proglet Demo", line: "

Thanks for your response

", line: "

PathInfo is", line: (pathinfo): "

", join=0: "

QueryString is", line: (querystring): "

", join=0: "

Name is", line: (name): "

", join=0: "

Age is", line: (age): "

", join=0: "

Lars Appel, March 2000

", line: "", line; go to main-loop; main-exit: exit; end demo;