<[ // Virtual Name Server - Online Users // (c) 1997-98 SmartDesk, Inc., All Rights Reserved FUNCTION webUserDirOpen( session, path ) local dbname, dbindex, db dbname = fileFixPath( path + '\userdir.db' ) if ( ! fileExists( dbname ) ) session.error( "Unable to open " + dbname + " data file.", "FFFFFF", "000000" ) return(0) end db = dbuse( dbname, "users", 1 ) if ( ! db ) session.error( "Unable to open " + dbname + " data file.", "FFFFFF", "000000" ) return(0) end dbindex = fileFixPath( path + '\userdir.dx' ) if ( ! fileExists( dbindex ) ) users->dbClose( ) session.error( "Unable to open " + dbindex + " index file.", "FFFFFF", "000000" ) return(0) end users->dbOpenIndex( dbindex ) users->dbOrder( 1 ) return( db ) END // Main code _apGenerate( ) websrvr = 0 + param( 1 ) sessionId = 0 + param( 2 ) session = new( "session", websrvr, sessionId ) if ( ! webUserDirOpen( session, webServerBaseDir( websrvr ) ) ) return( 0 ) end dir_name = vnsTitle( websrvr ) ]> <[ ! dir_name ]> Directory
Online Systems

©Copyright 1997-98
by SmartDesk, Inc.
All Rights Reserved
.
List of User Systems Currently Online at:
<[ ! dir_name ]>
<[ users->dbGoTop( ) while ( ! users->dbEOF( ) ) if ( ! strempty( users->goto_url ) && ! users->dbIsDeleted( ) ) ! " " ! " " ! " " ! " " end users->dbSkip( ) end users->dbClose( ) ]>
. .
recno( ) + 16384 ) + "\">" + rtrim( users->lname ) + ", " + rtrim( users->fname ) + "recno( ) + 16384 ) + "\">" + rtrim( users->c_title ) + "


Search | Directory | Administration | Home