<[ // SmartDesk's Personal Web Desktop - Company Directory // (c) 1997-98 SmartDesk, Inc., All Rights Reserved FUNCTION webUsersOpen( path ) local dbname, dbindex, db dbname = fileFixPath( path + '\userdir.db' ) if ( ! fileExists( dbname ) ) if ( ! webUserDirCreate( dbname ) ) return(0) end end db = dbuse( dbname, "users", 1 ) if ( ! db ) return( 0 ) end dbindex = fileFixPath( path + '\userdir.dx' ) if ( fileExists( dbindex ) ) users->dbOpenIndex( dbindex ) else users->dbCreateIndex( dbindex, "upper( rtrim( field->LNAME ) + ' ' + left( field->FNAME, 15 ) )", 0 ) users->dbOpenIndex( dbindex ) end users->dbOrder( 1 ) return( db ) END FUNCTION webUserDirCreate( dbname ) local db_struct = { { "STATUS", "N", 2, 0 }, { "FNAME", "C", 30 }, { "MNAME", "C", 30 }, { "LNAME", "C", 40 }, { "STREET", "C", 80 }, { "CITY", "C", 30 }, { "STATE", "C", 30 }, { "ZIP", "C", 20 }, { "COUNTRY", "C", 35 }, { "C_NAME", "C", 40 }, { "C_TITLE", "C", 40 }, { "PHONE1", "C", 40 }, { "PHONE2", "C", 40 }, { "PHONE3", "C", 40 }, { "PHONE4", "C", 40 }, { "EMAIL", "C", 80 }, { "GOTO_URL", "C", 30 }, { "MSG", "C", 128 }, { "UNUSED", "C", 10 } } return( dbCreate( dbname, db_struct ) ) END // Main Routine _apGenerate( ) websrvr = 0 + param( 1 ) sessionId = 0 + param( 2 ) app_path = webServerBaseDir( websrvr ) dir_name = vnsTitle( websrvr ) if ( ! webUsersOpen( app_path ) ) return( 0 ) end ]> Virtual Name Server - <[ ! dir_name ]> Directory
User Directory

Search | Administration
Who's Online | Home

©Copyright 1997-98
by SmartDesk, Inc.
All Rights Reserved

 .
Welcome to the User Directory for:
<[ ! dir_name ]>
<[ users->dbGoTop( ) while ( ! users->dbEOF( ) ) if ( ! users->dbIsDeleted( ) ) ! " " ! " " ! " " ! " " end users->dbSkip( ) end users->dbClose( ) ]>
. .
recno( ) + 16384 ) + "\">" + rtrim( users->lname ) + ", " + rtrim( users->fname ) + "recno( ) + 16384 ) + "\">" + rtrim( users->c_title ) + "


Search | Who's Online? | Administration | Home