10 rem 12 if argc$ <> "0" then 500 15 print `Content-type: text/html` : print 20 print `<HTML><HEAD><TITLE>Form for Submarine Order</TITLE></HEAD>` 25 print "<BODY>" 30 print `<H1>Submarine Sandwich Order Form</H1>` 40 print `This form can be faxed to the local sub shop.` 45 print `The proper password is requred for the order to be submitted.<P>` 50 print `(This is just a demo, so it won't fax anywhere!)` 70 print `<HR>` 80 print `<FORM ACTION="/scripts/subs.bas">` 90 print `Password: <INPUT TYPE="password" NAME="pwd" MAXLENGTH="20"><P>` 110 print `<H3>Sub Type</H3>` 120 print `Choose one of the following:<P>` 130 print `<INPUT TYPE="radio" NAME="sub" VALUE="0">Little sub:` 140 print `Ham and cheese with lettuce, tomato, and mayo.<P>` 150 print `<INPUT TYPE="radio" NAME="sub" VALUE="1">Medium sub:` 160 print `Roast beef topped with mayo, lettuce, and tomato.<P>` 170 print `<INPUT TYPE="radio" NAME="sub" VALUE="2">Big sub:` 180 print `Tuna with celery and onions, topped with lettuce, tomato.<P>` 200 print `<H3>Slim Subs</H3>` 210 print `Subs without veggies or sauce.<P>` 220 print `<INPUT TYPE="radio" NAME="slj" VALUE="0">Little sub` 230 print `<INPUT TYPE="radio" NAME="slj" VALUE="1">Medium sub` 240 print `<INPUT TYPE="radio" NAME="slj" VALUE="2">Big sub` 300 print `<H3>Drinks</H3>` 310 print `<INPUT TYPE="radio" NAME="pop" VALUE="0">Coke` 320 print `<INPUT TYPE="radio" NAME="pop" VALUE="1">Mug Root Beer` 330 print `<INPUT TYPE="radio" NAME="pop" VALUE="2">Sprite` 410 print `<H3>Your Address, Phone Number, and Name</H3>` 420 print `Name <INPUT TYPE="text" NAME="name" MAXLENGTH="32"><P>` 430 print `Address <INPUT TYPE="text" NAME="adr" MAXLENGTH="64"><P>` 440 print `Phone <INPUT TYPE="text" NAME="phone" MAXLENGTH="10"><P>` 450 print `<INPUT type="submit" value="Submit Order">` 460 print `</FORM>` 470 goto 900 500 rem 505 print `Content-type: text/html` : print 510 print `<HTML><HEAD><TITLE>Sub Order results</TITLE></HEAD>` 515 print "<BODY>" 516 print "<TABLE BORDER=ALL>" 517 print " <CAPTION>Your order</CAPTION>" 520 print `<TR><TH ALIGN=LEFT>sub<TD>`; form$(query_string$, "sub") 530 print `<TR><TH ALIGN=LEFT>slj<TD>`; form$(query_string$, "slj") 535 print `<TR><TH ALIGN=LEFT>password<TD>`; form$(query_string$, "pwd") 540 print `<TR><TH ALIGN=LEFT>name<TD>`; form$(query_string$, "name") 550 print `<TR><TH ALIGN=LEFT>address<TD>`; form$(query_string$, "adr") 560 print `<TR><TH ALIGN=LEFT>phone<TD>`; form$(query_string$, "phone") 570 print `</TABLE>` 590 print "<HR>" 600 print "gulp!" 900 rem Standard trailer. Note variable used to insert script name in hyperlink below. 5110 rem Hyperlink points to a BASIC script that displays raw HTML rather than translated HTML. 5130 print "<HR><a href="; chr$(34); "/scripts/convert.bas?"; mid$(script_name$,2); chr$(34);" ><it>"; 5140 print "See how this script is written.</it></a>" 5150 print "<p>" 5160 print "Copyright © 1995 Novell, Inc. All Rights Reserved." 5170 print "</body></HTML>" 5200 end