<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>