home *** CD-ROM | disk | FTP | other *** search
- <[
- // Virtual Name Server - Search results
- // (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 )
-
- searchStr = session.var( "SEARCH_STR" )
- if ( strempty( searchStr ) )
- session.error( "No Search String Specified." )
- return( 0 )
- end
- searchStr = upper( searchStr )
-
- if ( ! webUserDirOpen( session, webServerBaseDir( websrvr ) ) )
- return( 0 )
- end
-
- dir_name = vnsTitle( websrvr )
-
- ]>
- <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
- <!-- SmartDesk Active Page, www.smartdesk.com -->
- <HTML>
- <HEAD>
- <TITLE>Search <[ ! dir_name ]> Directory</TITLE>
- </HEAD>
- <BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#00FFFF" VLINK="#00FFFF" ALINK="#00FFFF">
-
- <TABLE BORDER=0 WIDTH=600>
- <TR>
- <TD VALIGN="top" WIDTH=159>
- <CENTER>
- <FONT COLOR="#FFFF00"><B>Search Results</B></FONT><BR>
- <A HREF="userdir.htm"><IMG SRC="/image/ws.jpg" BORDER=0 WIDTH=159 HEIGHT=300></A><BR>
- <FONT SIZE=1>
- <P><A HREF="http://www.smartdesk.com">©SmartDesk, Inc. 1997-98<BR>All Rights Reserved</A></P>
- </FONT>
-
- </CENTER>
- </TD>
- <TD WIDTH=30>
- <FONT SIZE=5 COLOR="#000000">.</FONT>
- </TD>
- <TD WIDTH=410 VALIGN="top">
-
- <BR>
- <CENTER>List of Users Meeting Search Criteria at:<BR>
- <FONT SIZE=6 COLOR="#00FFFF"><[ ! dir_name ]></FONT><BR></CENTER>
-
- <CENTER>
- <TABLE BORDER=0 WIDTH=380>
- <TR>
- <TD WIDTH=160><FONT COLOR="#000000">.</FONT></A></TD>
- <TD WIDTH=220><FONT COLOR="#000000">.</FONT></A></TD>
- </TR>
- <[
- users->dbGoTop( )
- while ( ! users->dbEOF( ) )
- if ( users->dbIsDeleted( ) )
- users->dbSkip( )
- continue
- end
-
- flag = 0
- if ( strat( searchStr, upper( users->fname ) ) > 0 )
- flag++
- end
- if ( strat( searchStr, upper( users->lname ) ) > 0 )
- flag++
- end
- // if ( strat( searchStr, upper( users->email ) ) > 0 )
- // flag++
- // end
- // if ( strat( searchStr, upper( users->c_name ) ) > 0 )
- // flag++
- // end
- if ( strat( searchStr, upper( users->c_title ) ) > 0 )
- flag++
- end
- if ( strat( searchStr, upper( rtrim( users->city ) + " " + rtrim( users->state ) + " " + rtrim( users->country ) ) ) > 0 )
- flag++
- end
- if ( flag )
- ! " <TR>"
- ! " <TD><A HREF=\"contact.htm?" + ( users->recno( ) + 16384 ) + "\">" + rtrim( users->lname ) + ", " + rtrim( users->fname ) + "</A></TD>"
- ! " <TD><A HREF=\"contact.htm?" + ( users->recno( ) + 16384 ) + "\">" + rtrim( users->c_title ) + "</A></TD>"
- ! " </TR>"
- end
- users->dbSkip( )
- end
- users->dbClose( )
- ]>
- </TABLE>
-
- <P><BR></P>
-
- <CENTER>
- <FONT SIZE=2>
- <A HREF="usersrch.htm">Search</A> |
- <A HREF="userdir.htm">Directory</A> |
- <A HREF="useradmn.htm">Administration</A> |
- <A HREF="/index.htm">Home</A>
- </FONT><BR>
- <BR>
- </CENTER>
-
- </TD>
- </TR>
- </TABLE>
-
- </BODY>
- </HTML>
-
-