home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Compu…g and running Windows 98 / win98pb.iso / netkit / smartdes / websuite.exe / USERADD2.AP_ / USERADD2.AP
Encoding:
Text File  |  1998-04-01  |  3.2 KB  |  135 lines
  1. <[
  2. // Virtual Name Server - User Input Routine
  3. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved
  4.  
  5. FUNCTION webUserDirOpen( session, path )
  6.  
  7.     local dbname, dbindex, db
  8.  
  9.     dbname = fileFixPath( path + '\userdir.db' )
  10.     if ( ! fileExists( dbname ) )
  11.         session.error(  "Unable to open " + dbname + " data file.", "FFFFFF", "000000" )
  12.         return(0)
  13.     end
  14.  
  15.     db = dbuse( dbname, "users", 1 )
  16.     if ( ! db )
  17.         session.error(  "Unable to open " + dbname + " data file.", "FFFFFF", "000000" )
  18.         return(0)
  19.     end
  20.         
  21.     dbindex = fileFixPath( path + '\userdir.dx' )
  22.        if ( ! fileExists( dbindex ) )
  23.            users->dbClose( )
  24.         session.error(  "Unable to open " + dbindex + " index file.", "FFFFFF", "000000" )
  25.         return(0)
  26.        end
  27.  
  28.        users->dbOpenIndex( dbindex )
  29.        users->dbOrder( 1 )
  30.  
  31.     return( db )
  32. END
  33.  
  34. // Main code
  35.  
  36.     _apGenerate( )
  37.  
  38.     websrvr = 0 + param( 1 )
  39.     sessionId = 0 + param( 2 )
  40.  
  41.     session = new( "session", websrvr, sessionId )
  42.     if ( ! session.secure( "UserDir.Admin" ) )
  43.         return( 0 )
  44.     end
  45.  
  46.     if ( ! webUserDirOpen( session, webServerBaseDir( websrvr ) ) )
  47.         return( 0 )
  48.     end
  49.  
  50. ]>
  51. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  52. <!-- SmartDesk Active Page, www.smartdesk.com -->
  53. <HTML>
  54. <HEAD>
  55. <TITLE>Virtual Name Server - User Add Results</TITLE>
  56. </HEAD>
  57. <BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#00FFFF" VLINK="#00FFFF" ALINK="#00FFFF">
  58.  
  59. <P>
  60. <[
  61.     msg = ""
  62.  
  63.     fname = session.var( "fname" )
  64.     if ( strempty( fname ) )
  65.         msg += "Must specifiy your first name.<BR>"
  66.     end        
  67.  
  68.     mname = session.var( "mname" )
  69.  
  70.     lname = session.var( "lname" )
  71.     if ( strempty( lname ) )
  72.         msg = "Must specifiy your last name.<BR>"
  73.     end        
  74.  
  75.     street = session.var( "street" )
  76.     city = session.var( "city" )
  77.     state = session.var( "state" )
  78.     zip = session.var( "zip" )
  79.     country = session.var( "country" )
  80.     
  81.     c_name = session.var( "c_name" )
  82.     if ( strempty( c_name ) )
  83.         msg += "Must specifiy a company name.<BR>"
  84.     end        
  85.  
  86.     c_title = session.var( "c_title" )
  87.     if ( strempty( c_title ) )
  88.         msg += "Must specifiy a descriptive title.<BR>"
  89.     end        
  90.  
  91.     phone1 = session.var( "phone1" )
  92.     phone2 = session.var( "phone2" )
  93.     phone3 = session.var( "phone3" )
  94.     phone4 = session.var( "phone4" )
  95.  
  96.     email = session.var( "email" )
  97.  
  98.     if ( ! strempty( msg ) )
  99.         ! "<P><FONT SIZE=4 COLOR=\"#00FFFF\"><B>Errors present, unable to process form.</B></FONT></P>"
  100.         ! "<P><B>" + msg + "</B>"
  101.     else 
  102.         // append the record
  103.         users->dbAppend( )
  104.         users->status = 1
  105.         users->fname = fname
  106.         users->mname = mname
  107.         users->lname = lname
  108.         users->street = street
  109.         users->city = city
  110.         users->state = state
  111.         users->zip = zip
  112.         users->country = country
  113.         users->c_name = c_name
  114.         users->c_title = c_title
  115.         users->phone1 = phone1
  116.         users->phone2 = phone2
  117.         users->phone3 = phone3
  118.         users->phone4 = phone4
  119.         users->email = email
  120.         users->goto_url = ""
  121.         users->msg = ""
  122.         users->unused = ""
  123.         users->dbUnlock( )
  124.  
  125.         ! "<H2>Record <FONT COLOR=\"#FFFF00\">#" + ( users->recno( ) + 16384 ) + "</FONT> for <FONT COLOR=\"#FFFF00\">" + rtrim( users->fname ) + " " + rtrim( users->lname ) + "</FONT><BR>has been successfully added to the directory!</H2>"
  126.         ! "<A HREF=\"useradmn.htm\"> Continue</A>..."
  127.     end
  128.     
  129.     users->dbClose( )
  130. ]>
  131.  
  132. </P>
  133. </BODY>
  134. </HTML>
  135.