Resize this window so you can view the main text.

Close this window to return to the main text.

11 print `Content-type: text/html` : print
12 if argc$ <> "0" then 510
 
15 print `Content-type: text/html` : print
20 print `<TITLE>Form for Making a Greeting Card</TITLE>`
30 print `<H1>Greeting Card Form</H1>`
70 print `<HR>`
80 print `<FORM ACTION="/scripts/card.bas">`
110 print `<H3>Card Type</H3>`
115 print `<Font `
120 print `Select which type of card you would like:<P>`
130 print `<INPUT TYPE="radio" NAME="type" VALUE="1">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
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/art.gif" width=120 height=200 border=1>`
1200 print `<Font `
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 `
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 end