Contact Information for <[ ! GetFullName( ) ]>

<[ // Virtual Name Server - Contact Information // (c) 1997-98artDesk, Inc., All Rights Reserved FUNCTION ProcessPhoneNumber( phone ) phone = rtrim( phone ) if ( strempty( phone ) ) return( "" ) end if ( at( ":", phone ) > 1 ) return( "

" + strextract( phone, ":", 1 ) + "
" + strextract( phone, ":", 2 ) + "

" ) end return( "

" + phone + "

" ) END FUNCTION GetFullName( ) return( rtrim( users->fname ) + " " + rtrim( users->mname ) + " " + rtrim( users->lname ) ) END 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 ) data = session.data( "QUERY_STRING" ) if ( strempty( data ) ) session.error( "No Record Provided!" ) return( 0 ) end rec = ( 0 + data ) - 16384 if ( rec < 1 ) session.error( "Invalid Record Specified!" ) return( 0 ) end if ( ! webUserDirOpen( session, webServerBaseDir( websrvr ) ) ) return( 0 ) end if ( ! users->dbGoto( rec ) ) session.error( "Invalid Record Specified!" ) return( 0 ) end ]> Contact Information for <[ ! GetFullName( ) ]>