home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 March / PCWK0397.iso / novell / webserv3 / nws30.exe / DISK1 / NETBASIC / WEB / WEBINPUT.BAS < prev    next >
BASIC Source File  |  1996-06-20  |  772b  |  32 lines
  1. #include "html.h"
  2.  
  3. Sub Main
  4.  
  5.    DOC:Heading("NetBasic Sample Input Form");
  6.    DOC:Body(DOC_WHITE,DOC_BLACK,"",IMG("nbibg.gif"))
  7.  
  8.    STDHEADING()
  9.    CENTERON()
  10.  
  11.    DOC:Form:Begin( URL("webipost.bas") )
  12.    DOC:Tag:Begin(DOC_TAG_PREFMT)
  13.    DOC:Form:Input:Text("Name", "",   "Full Name: ")
  14.    DOC:Form:Input:Text("Add1", "",   "  Address: ")
  15.    DOC:Form:Input:Text("Add2", "",   "           ")
  16.    DOC:Form:Input:Text("City", "",   "     City: ")
  17.    DOC:Form:Input:Text("Stat", "AZ", "    State: ")
  18.    DOC:Form:Input:Text("Zipc", "",   "      Zip: ")
  19.    DOC:Paragraph
  20.    DOC:Format(FALSE)
  21.    DOC:Form:Input:Submit("Submit form")
  22.    DOC:Form:Input:Reset("Default Values")
  23.    DOC:Tag:End(DOC_TAG_PREFMT)
  24.    DOC:Form:End
  25.  
  26.  
  27.    CENTEROFF()
  28.  
  29. End Sub
  30.  
  31.  
  32.