#!/usr/bin/rexx
/* -------------------------------------------------------------------------- */
/* -  REXX script SAMPLE for entries in a visitors' book on the WEB         - */
/* -------------------------------------------------------------------------- */
say "Content-type: text/html"
say
say "<html>",
    '<body bgcolor="#ffffff">'
--trace r
/* My standard header ------------------------------------------------------- */
say "<table width='70%'><tr>",
    "<td><img src=/orexx.gif align=top>",
    '<td><p align="center"><font size=+2 color=#008000><b>CGI powered by Object REXX</b></font>',
    "<br><font size=+1 color=#808080><b>The Scripting Language</b></font>",
    "</table>"
say "<head> <title> Visitors of Object REXX </title> </head>"
say "<h1> Visitors' book of our WEB page</h1>",
    "<br><p align="right"> <b>Date:</b> "date()"; <b>Time:</b> "time()
say '<br><p align="center"> <b>Please enter your name and ',
    "your comment of what you like or dislike about Object REXX.</b>",
    "<hr>"
say '<form action="/orxwww/guesteval" method=get>'

/* Build a table to display input fields ------------------------------------ */
say "<table border=0>",
    '<tr><td></td><td>Mr.:<input type=radio name="title" value="Mr.">',
    'Mrs.:<input type=radio name="title" value="Mrs.">',
    'Ms.:<input type=radio name="title" value="Ms.">',
    "</td></tr>",
    '<tr><td>First Name:</td><td><input type=text name="fname" size=60 maxlength=60>',
    "</td></tr>",
    '<tr><td>Surname:</td><td><input type=text name="sname" size=60 maxlength=60>',
    "</td></tr>",
    '<tr><td>Your E-Mail Address:</td><td><input type=text name="emaddr" size=60 maxlength=60>',
    "</td></tr>",
    "<tr><td></td><td>If you like to get an answer,",
    "you need to add your e-mail address.</td></tr>",
    '<p><tr><td colspan=2><font color="#0000ff">Your Comment about Object REXX:</font></td></tr>',
    '<tr><td colspan=2><textarea input type=text name="text" rows=6 cols=80>',
    "</textarea></td></tr>",
    "</table>"

/* Question about experience ------------------------------------------------ */
say '<ol><li>I am not using REXX <input type=radio name="userx" value="1"></li>',
    '<li>I am using REXX <input type=radio name="userx" value="2">',
    '<ul><font color="#0000ff">',
        '<li>REXX/Compiler on S/390 <input type=checkbox name="urx1" value="1"></li>',
        '<li>REXX on OS/2 <input type=checkbox name="urx2" value="2"></li>',
        '<li>Object REXX on OS/2 <input type=checkbox name="urx3" value="3"></li>',
        '<li>Object REXX on Windows <input type=checkbox name="urx4" value="4"></li>',
        '<li>Object REXX on AIX <input type=checkbox name="urx5" value="5"></li>',
        '<li>Object REXX on LINUX for INTEL <input type=checkbox name="urx6" value="6"></li>',
        '<li>Object REXX on LINUX for S/390 <input type=checkbox name="urx7" value="7"></li>',
    '</font></ul>',
    '<li>I am using REXX for quite a while <input type=radio name="userx" value="3">',
    '</li>',
    '</ol>'

/* Send data for evaluation or cancel input --------------------------------- */
say '<center><input type=submit value="Send Data">',
    '<input type=reset value="Reset Data"></center>'

say "</form>"

/* Footing of WEB page ------------------------------------------------------ */
say "<p>",
    "<hr>"

say "</body> </html>"

exit
