home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 March / PCWK0397.iso / novell / webserv3 / nws30.exe / DISK1 / NETBASIC / WEB / ABFORM.BAS next >
BASIC Source File  |  1996-09-13  |  2KB  |  81 lines
  1. #include "html.h"
  2.  
  3. Sub Main
  4.  
  5.    DOC:Heading("Address Book");
  6.    DOC:Print( "<BODY BACKGROUND=""/images/image1.gif"">")
  7.  
  8.    DOC:Tag:Begin(DOC_TAG_CENTER)
  9.    DOC:Image( "/images/direct.gif", "",400,100)
  10.  
  11.    DOC:Print:H3( "Corporate Employee Address Book")
  12.    DOC:Tag:End(DOC_TAG_CENTER)
  13.  
  14.    ' CGI script used to process the Address Book request
  15.    DOC:Form:Begin( URL("absearch.bas") )
  16.  
  17.    ' Creating Address Book HTML form for input
  18.    DOC:Paragraph;NewLine
  19.    DOC:Tag:Begin( "FONT", "size=+1" )
  20.    DOC:Print( "<DD></DD>" );DOC:Form:Input:Text("Name", "", "<IMAGE SRC=/images/eye95.gif ALIGN=MIDDLE HEIGHT=45 WIDTH=100>",50,25,DOC_ALIGN_MIDDLE);
  21.    DOC:Tag:End( "FONT" )
  22.  
  23.    DOC:Paragraph
  24.    DOC:Print( "<B><DD></DD>Select a search type:</B>" );NewLine
  25.    DOC:Paragraph
  26.    DOC:Print( "<DD></DD>" );DOC:Form:Input:Radio( "theType", "SN", "Last Name", TRUE );
  27.    DOC:Form:Input:Radio( "theType", "GN", "First Name", FALSE );
  28.    DOC:Form:Input:Radio( "theType", "OU", "Department", FALSE );
  29.    DOC:Form:Input:Radio( "theType", "TL", "Title", FALSE );
  30.    DOC:Form:Input:Radio( "theType", "EM", "EMail Address", FALSE );NewLine
  31.    DOC:Print( "<DD></DD>" );DOC:Form:Input:Radio( "theType", "LC", "Locality", FALSE );
  32.    DOC:Form:Input:Radio( "theType", "DN", "Distinguished Name", FALSE )
  33.  
  34.    DOC:Paragraph
  35.    DOC:Format(FALSE)
  36.    DOC:Print( "<DD></DD>" );DOC:Form:Input:Submit(" Submit")
  37.    DOC:Form:Input:Reset(" Clear form" )
  38.  
  39.    DOC:Form:End
  40. End Sub
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.