' Filename : smpcard.bas
' NetBasic Script sample to make greeting card

#include "HTML.H"

Sub Main

DOC:HEADING("Form for making greeting card")
DOC:Body(DOC_LTBLUE,DOC_BLACK)

CENTERON()
DOC:Tag:Begin("font", "size=+5")
DOC:Print("Greeting Card Form")
DOC:Tag:End("font")
DOC:Paragraph
DOC:HR(3,100)
DOC:Paragraph
CENTEROFF()

DOC:Tag:Begin("font", "size=+3")
DOC:Print("Card Type")
DOC:Tag:End("font")
DOC:Paragraph
DOC:Print("Select which type of card you would like:")
DOC:Paragraph

DOC:Form:Begin(URL("makecard.bas"))
DOC:Form:Input:Radio("rad", "Radio1", "Birthday card: A basic birthday card",TRUE)
DOC:Paragraph
DOC:Form:Input:Radio("rad", "Radio2", "Anniversary card: A basic Anniversary card",FALSE)
DOC:Paragraph
DOC:Form:Input:Radio("rad", "Radio3", "Thank you card: A basic thank you card",FALSE)
DOC:Paragraph
DOC:Break

DOC:Tag:Begin("font", "size=+3")
DOC:Print("Particulars:")
DOC:Tag:End("font")
DOC:Paragraph

DOC:Form:Input:Text("recipient"," ", "Recipient's Name:")
DOC:Paragraph
DOC:Form:Input:Text("sender"," ", "Sender's Name:")
DOC:Paragraph

DOC:Form:Input:Submit("Create Card")
DOC:Paragraph
DOC:HR(2,100)
DOC:Link:Text("showcode.bas","See how this script is written")


DOC:Form:End

End Sub