home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 March / PCWK0397.iso / novell / webserv3 / nws30.exe / DISK1 / NETBASIC / WEB / SMPCARD.BAS < prev    next >
BASIC Source File  |  1996-06-21  |  2KB  |  55 lines
  1. '  Filename : smpcard.bas
  2. '  NetBasic Script sample to make greeting card
  3.  
  4. #include "HTML.H"
  5.  
  6. Sub Main
  7.  
  8.         DOC:HEADING("Form for making greeting card")
  9.     DOC:Body(DOC_LTBLUE,DOC_BLACK)
  10.  
  11.     CENTERON()
  12.         DOC:Tag:Begin("font", "size=+5")
  13.         DOC:Print("Greeting Card Form")
  14.     DOC:Tag:End("font")
  15.     DOC:Paragraph
  16.         DOC:HR(3,100)
  17.     DOC:Paragraph
  18.         CENTEROFF()
  19.         
  20.         DOC:Tag:Begin("font", "size=+3")
  21.         DOC:Print("Card Type")
  22.     DOC:Tag:End("font")
  23.     DOC:Paragraph
  24.         DOC:Print("Select which type of card you would like:")
  25.         DOC:Paragraph
  26.  
  27.         DOC:Form:Begin(URL("makecard.bas"))
  28.         DOC:Form:Input:Radio("rad", "Radio1", "Birthday card: A basic birthday card",TRUE)
  29.         DOC:Paragraph
  30.         DOC:Form:Input:Radio("rad", "Radio2", "Anniversary card: A basic Anniversary card",FALSE)
  31.         DOC:Paragraph
  32.         DOC:Form:Input:Radio("rad", "Radio3", "Thank you card: A basic thank you card",FALSE)
  33.         DOC:Paragraph
  34.         DOC:Break
  35.  
  36.         DOC:Tag:Begin("font", "size=+3")
  37.         DOC:Print("Particulars:")
  38.     DOC:Tag:End("font")
  39.         DOC:Paragraph
  40.         
  41.         DOC:Form:Input:Text("recipient"," ", "Recipient's Name:")
  42.         DOC:Paragraph
  43.         DOC:Form:Input:Text("sender"," ", "Sender's Name:")
  44.         DOC:Paragraph
  45.  
  46.         DOC:Form:Input:Submit("Create Card")
  47.         DOC:Paragraph
  48.         DOC:HR(2,100)
  49.         DOC:Link:Text("showcode.bas","See how this script is written")
  50.  
  51.  
  52.         DOC:Form:End
  53.  
  54. End Sub
  55.