10 rem Copyright (c) 1995 Novell, Inc. All Rights Reserved. 12 if argc$ <> "0" then 500 15 print `Content-type: text/html` : print 20 print `<HTML><HEAD><TITLE>Form for Making a Greeting Card</TITLE></HEAD>` 25 print "<BODY>" 30 print `<H1>Greeting Card Form</H1>` 70 print `<HR>` 80 print `<FORM ACTION="/scripts/cardsamp.bas">` 110 print `<H3>Card Type</H3>` 115 print `<font size=-1>` 120 print `Select which type of card you would like:<P>` 130 print `<INPUT TYPE="radio" NAME="type" VALUE="1" CHECKED>Birthday card:` 140 print `A basic birthday card.<P>` 150 print `<INPUT TYPE="radio" NAME="type" VALUE="2">Anniversary card:` 160 print `A basic anniversary card.<P>` 170 print `<INPUT TYPE="radio" NAME="type" VALUE="3">Thank you card:` 180 print `A basic thank you card.<P>` 300 print `<H3>Particulars:</H3>` 310 print `Recipient's name <INPUT TYPE="text" NAME="who" MAXLENGTH="32" value="Mary"><P>` 420 print `Your name <INPUT TYPE="text" NAME="name" MAXLENGTH="32" value="John"><P>` 450 print `<INPUT type="submit" VALUE="Create Card">` 455 print `</font>` 460 print `</FORM>` 490 goto 4000 500 rem 505 print `Content-type: text/html` : print 510 on val(form$(query_string$, "type")) goto 1000,2000,3000 1000 print `<CENTER><H1>` 1005 print `Happy Birthday `; form$(query_string$, "who");`!` 1010 print `</H1>` 1105 print `<IMG SRC="/images/birthday.gif" border=1>` 1200 print `<font size=+1>` 1205 print `<P>Best wishes on this wonderful day.<BR>` 1210 print `</font>` 1800 print `<P>from `; form$(query_string$, "name"); `<br>` 1810 print `</CENTER>` 1810 print `<hr>` 1900 goto 4000 2000 print `<IMG SRC="/images/vase.gif" align="right" hspace=20>` 2005 print `<CENTER><H1>` 2010 print `Happy Anniversary `; form$(query_string$, "who"); `!` 2015 print `</H1>` 2200 print `<font size=+1>` 2210 print `<P>You mean so much to me.<BR>` 2215 print `</font>` 2800 print `<P>Love `; form$(query_string$, "name"); `<br>` 2810 print `</CENTER>` 2820 print `<P><P><hr>` 2900 goto 4000 3000 print `<center>` 3005 print `<H1>Thank you `; form$(query_string$, "who"); `!` 3010 print `</H1>` 3105 print `<IMG SRC="/images/pen.gif" width=200 height=200>` 3110 print `<P>your good friend, `; form$(query_string$, "name"); `<br>` 3200 print `</center>` 3900 goto 4000 4000 rem Standard trailer. Note variable used to insert script name in hyperlink below. 4110 rem Hyperlink points to a BASIC script that displays raw HTML rather than translated HTML. 4120 print "<hr>" 4130 print "<a href="; chr$(34); "/scripts/convert.bas?"; mid$(script_name$,2); chr$(34);" ><it>"; 4140 print "See how this script is written.</it></a>" 4150 print "<p>" 4160 print "Copyright © 1995 Novell, Inc. All Rights Reserved." 4170 print "</body></html>" 4200 end