home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 March / PCWK0397.iso / novell / webserv3 / nws30.exe / DISK1 / NETBASIC / WEB / WEBIPOST.BAS < prev    next >
BASIC Source File  |  1996-06-20  |  617b  |  26 lines
  1. #include "html.h"
  2.  
  3. Sub Main
  4.  
  5.    DOC:Heading("NetBasic Input Post");
  6.    DOC:Body(DOC_WHITE,DOC_BLACK,"",IMG("nbibg.gif"))
  7.  
  8.    STDHEADING()
  9.  
  10.    data = doc:var()
  11.    DOC:Print("You entered the following values:"); NewLine
  12.    DOC:Tag:Begin(DOC_TAG_PREFMT)
  13.    DOC:Print("    Name: ", data.name); NewLine
  14.    DOC:Print("Address1: ", data.add1); NewLine
  15.    DOC:Print("Address2: ", data.add2); NewLine
  16.    DOC:Print("    City: ", data.city); NewLine
  17.    DOC:Print("   State: ", data.stat); NewLine
  18.    DOC:Print("     Zip: ", data.zipc); NewLine
  19.    DOC:Tag:End(DOC_TAG_PREFMT)
  20.    DOC:Form:End
  21.  
  22. End Sub
  23.  
  24.  
  25.  
  26.