home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 March / PCWK0397.iso / novell / webserv3 / nws30.exe / DISK1 / NETBASIC / WEB / MAKECARD.BAS < prev    next >
BASIC Source File  |  1996-06-26  |  1KB  |  46 lines
  1. '  FileName : Makecard.bas
  2.  
  3. #include "html.h"
  4.  
  5. Sub Main
  6.     DOC:Heading("Sample Greeting Card")
  7.     DOC:Body(DOC_LTBLUE, DOC_BLACK)
  8.  
  9.     CardType=DOC:Var("rad")
  10.     RecName=DOC:Var("recipient")
  11.     SendName=DOC:Var("sender")
  12.     CENTERON()
  13.     If (CardType="Radio1")
  14.        DOC:Tag:Begin("font","size=+3")
  15.        DOC:Print("Happy Birthday ", RecName, " !!!");NewLine
  16.        DOC:Tag:End("font")
  17.        DOC:Paragraph
  18.        DOC:Image("/images/birthday.gif","card1");NewLine
  19.        DOC:Paragraph
  20.        DOC:Print("Best wishes on this wonderful day ");NewLine
  21.        DOC:Print("from ", SendName)
  22.     EndIf
  23.  
  24.     If (CardType="Radio2")
  25.        DOC:Tag:Begin("font","size=+3")
  26.        DOC:Print("Happy Anniversary ", RecName, " !");NewLine
  27.        DOC:Tag:End("font")
  28.        DOC:Paragraph
  29.        DOC:Image("/images/vase.gif","card1");NewLine
  30.        DOC:Paragraph
  31.        DOC:Print("You mean so much to me ");NewLine
  32.        DOC:Print("love ", SendName)
  33.     EndIf
  34.  
  35.     If (CardType="Radio3")
  36.        DOC:Tag:Begin("font", "size=+3")
  37.        DOC:Print("Thank you so much ", RecName, " !");NewLine
  38.        DOC:Tag:End("font")
  39.        DOC:Paragraph
  40.        DOC:Image("/images/pen.gif","card1");NewLine
  41.        DOC:Paragraph
  42.        DOC:Print("Your good friend,  ", SendName)
  43.     EndIf
  44.  
  45. End Sub
  46.