home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 March / PCWK0397.iso / novell / webserv3 / nws30.exe / DISK1 / NETBASIC / WEB / WEBORA1.BAS < prev    next >
BASIC Source File  |  1996-09-06  |  921b  |  35 lines
  1. #include "HTML.H"
  2.  
  3.  
  4. Sub main
  5.  
  6. DOC:Heading("'NDS Login'")
  7. DOC:Body(DOC_BLACK,DOC_CYAN,DOC_LTBLUE,DOC_RED)
  8.  
  9. DOC:Form:Begin("/netbasic/Webora2.BAS")
  10. DOC:Image("/images/gif5.gif" ,"Logo", 110)
  11. DOC:Print:H3(' ORACLE DATABASE ')
  12. DOC:Print:H3('Please enter your name and password, then click the Log In button to enter the system.')
  13. DOC:Tag:Begin(DOC_TAG_PREFMT)
  14. DOC:Print("           ")
  15. DOC:Form:Input:Text("User"," ","USERNAME: ",35,35); NewLine
  16. DOC:Print("           ")
  17. DOC:Form:Input:Password("Password","TIGER","PASSWORD: ",35,25)
  18. DOC:Print("                                                             ")
  19. DOC:Form:Input:Submit("Log In")
  20. DOC:Print("                                                             ")
  21. DOC:Form:Input:Reset("Clear Form")
  22. DOC:Tag:End(DOC_TAG_PREFMT)
  23. DOC:Form:End
  24.  
  25. DOC:Hr(1,100)
  26. CENTERON()
  27. DOC:Print:("Please contact rnadafi@novell.com ")
  28. CENTEROFF()
  29.  
  30.  
  31. End Sub
  32.  
  33.  
  34.  
  35.