home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Compu…g and running Windows 98 / win98pb.iso / netkit / smartdes / websuite.exe / USERDIR.AP_ / USERDIR.AP
Encoding:
Text File  |  1998-04-01  |  3.6 KB  |  151 lines
  1. <[
  2. // SmartDesk's Personal Web Desktop - Company Directory
  3. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved
  4.  
  5. FUNCTION webUsersOpen( path )
  6.  
  7.     local dbname, dbindex, db
  8.  
  9.     dbname = fileFixPath( path + '\userdir.db' )
  10.     if ( ! fileExists( dbname ) )
  11.         if ( ! webUserDirCreate( dbname ) )
  12.             return(0)
  13.         end
  14.     end
  15.  
  16.     db = dbuse( dbname, "users", 1 )
  17.     if ( ! db )
  18.         return( 0 )
  19.     end
  20.         
  21.     dbindex = fileFixPath( path + '\userdir.dx' )
  22.        if ( fileExists( dbindex ) )
  23.            users->dbOpenIndex( dbindex )
  24.        else
  25.            users->dbCreateIndex( dbindex, "upper( rtrim( field->LNAME ) + '     ' + left( field->FNAME, 15 ) )", 0 )
  26.            users->dbOpenIndex( dbindex )
  27.        end
  28.  
  29.        users->dbOrder( 1 )
  30.  
  31.     return( db )
  32. END
  33.  
  34.  
  35. FUNCTION webUserDirCreate( dbname )
  36.  
  37.     local db_struct = {    
  38.         { "STATUS",            "N", 2, 0 },
  39.         { "FNAME",             "C", 30 },
  40.         { "MNAME",            "C", 30 },
  41.         { "LNAME",            "C", 40 },
  42.         { "STREET",         "C", 80 },
  43.         { "CITY",             "C", 30 },
  44.         { "STATE",             "C", 30 },
  45.         { "ZIP",             "C", 20 },
  46.         { "COUNTRY",         "C", 35 },
  47.         { "C_NAME",            "C", 40 },
  48.         { "C_TITLE",        "C", 40 },
  49.         { "PHONE1",            "C", 40 },
  50.         { "PHONE2",            "C", 40 },
  51.         { "PHONE3",            "C", 40 },
  52.         { "PHONE4",            "C", 40 },
  53.         { "EMAIL",            "C", 80 },
  54.         { "GOTO_URL",        "C", 30 },
  55.         { "MSG",            "C", 128 },
  56.         { "UNUSED",            "C", 10 }
  57.     }
  58.  
  59.     return( dbCreate( dbname, db_struct ) )
  60.     
  61. END
  62.  
  63. // Main Routine
  64.  
  65.     _apGenerate( )
  66.  
  67.     websrvr = 0 + param( 1 )
  68.     sessionId = 0 + param( 2 )
  69.  
  70.     app_path = webServerBaseDir( websrvr )
  71.     dir_name = vnsTitle( websrvr )
  72.     
  73.     if ( ! webUsersOpen( app_path ) )
  74.         return( 0 )
  75.     end
  76.  
  77. ]>
  78. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  79. <!-- SmartDesk Active Page, www.smartdesk.com -->
  80. <HTML>
  81. <HEAD>
  82. <TITLE>Virtual Name Server - <[ ! dir_name ]> Directory</TITLE>
  83. </HEAD>
  84. <BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#00FFFF" VLINK="#00FFFF" ALINK="#00FFFF">
  85.  
  86. <TABLE BORDER=0 WIDTH=600>
  87.  <TR>
  88.   <TD VALIGN="top" WIDTH=159>
  89.    <CENTER>
  90.    <FONT COLOR="#FFFF00"><B>User Directory</B></FONT><BR>
  91.    <A HREF="/index.htm"><IMG SRC="/image/ws.jpg" BORDER=0 WIDTH=159 HEIGHT=300></A><BR>
  92.    <FONT SIZE=2><A HREF="usersrch.htm">Search</A> | <A HREF="useradmn.htm">Administration</A><BR><A HREF="useronln.htm">Who's Online</A> | <A HREF="/index.htm">Home</A></FONT><BR>
  93.  
  94.    <P><FONT COLOR="#FFFFFF" SIZE=1><A HREF="http://www.smartdesk.com">©Copyright 1997-98</A><BR>by SmartDesk, Inc.<BR>All Rights Reserved<BR></FONT></P>
  95.  
  96.  
  97.    </CENTER>
  98.   </TD>
  99.   <TD WIDTH=30>
  100.    <FONT SIZE=5 COLOR="#000000">.</FONT>
  101.   </TD>
  102.   <TD WIDTH=410 VALIGN="top">
  103.  
  104.    <BR>
  105.    <CENTER>Welcome to the User Directory for:<BR>
  106.    <FONT SIZE=6 COLOR="#00FFFF"><[ ! dir_name ]></FONT><BR></CENTER>
  107.  
  108.    <CENTER>
  109.     <TABLE BORDER=0 WIDTH=380>
  110.      <TR>
  111.       <TD WIDTH=160><FONT COLOR="#000000">.</FONT></A></TD>
  112.       <TD WIDTH=220><FONT COLOR="#000000">.</FONT></A></TD>
  113.      </TR>
  114. <[
  115.     users->dbGoTop( )
  116.     while ( ! users->dbEOF( ) )
  117.  
  118.         if ( ! users->dbIsDeleted( ) )
  119.     
  120.             ! "     <TR>"
  121.             ! "   <TD><A HREF=\"contact.htm?" + ( users->recno( ) + 16384 ) + "\">" + rtrim( users->lname ) + ", " + rtrim( users->fname ) + "</A></TD>"
  122.             ! "   <TD><A HREF=\"contact.htm?" + ( users->recno( ) + 16384 ) + "\">" + rtrim( users->c_title ) + "</A></TD>"
  123.             ! "  </TR>"
  124.         end
  125.  
  126.         users->dbSkip( )
  127.     end
  128.     users->dbClose( )
  129. ]>
  130.     </TABLE>
  131.  
  132.    <P><BR></P>
  133.  
  134.    <CENTER>
  135.    <FONT SIZE=2>
  136.    <A HREF="usersrch.htm">Search</A> | 
  137.    <A HREF="useronln.htm">Who's Online?</A> |
  138.    <A HREF="useradmn.htm">Administration</A> |
  139.    <A HREF="/index.htm">Home</A>
  140.    </FONT><BR>
  141.    <BR>
  142.    </CENTER>
  143.  
  144.   </TD>
  145.  </TR>
  146. </TABLE>
  147.  
  148. </BODY>
  149. </HTML>
  150.  
  151.