<TITLE>get-cgi() function</TITLE>
<META NAME="wsoptions" CONTENT="web-object">
<SCRIPT LANGUAGE="Speedscript">
define variable cVarList as character no-undo.
define variable cVarValue as character no-undo.
define variable i as integer no-undo.
{&OUT} "<center><h1>CGI Environment Variables </h1>"
"<h4>from get-cgi() function</h4></center><br>"
"<table border=1>"
"<tr><th>Variable</th><th>Value"
"</th></tr>".
ASSIGN cVarList = get-cgi(?).
do i = 1 to num-entries(cVarList):
cVarValue = get-cgi(entry(i,cVarList)).
{&OUT} "<tr><td>" entry(i,cVarList) "</td><td>" cVarValue "</td></tr>".
end.
{&OUT} "</table>".
</SCRIPT>