home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / serwery_www / websuite / websuite.exe / USERSRC2.AP_ / USERSRC2.AP
Text File  |  1999-01-12  |  4KB  |  150 lines
  1. <[
  2. // Virtual Name Server - Search results
  3. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved
  4.  
  5. FUNCTION webUserDirOpen( session, path )
  6.  
  7.     local dbname, dbindex, db
  8.  
  9.     dbname = fileFixPath( path + '\userdir.db' )
  10.     if ( ! fileExists( dbname ) )
  11.         session.error(  "Unable to open " + dbname + " data file.", "FFFFFF", "000000" )
  12.         return(0)
  13.     end
  14.  
  15.     db = dbuse( dbname, "users", 1 )
  16.     if ( ! db )
  17.         session.error(  "Unable to open " + dbname + " data file.", "FFFFFF", "000000" )
  18.         return(0)
  19.     end
  20.         
  21.     dbindex = fileFixPath( path + '\userdir.dx' )
  22.        if ( ! fileExists( dbindex ) )
  23.            users->dbClose( )
  24.         session.error(  "Unable to open " + dbindex + " index file.", "FFFFFF", "000000" )
  25.         return(0)
  26.        end
  27.  
  28.        users->dbOpenIndex( dbindex )
  29.        users->dbOrder( 1 )
  30.  
  31.     return( db )
  32. END
  33.  
  34. // Main code
  35.  
  36.     _apGenerate( )
  37.  
  38.     websrvr = 0 + param( 1 )
  39.     sessionId = 0 + param( 2 )
  40.  
  41.     session = new( "session", websrvr, sessionId )
  42.  
  43.     searchStr = session.var( "SEARCH_STR" )
  44.     if ( strempty( searchStr ) )
  45.         session.error( "No Search String Specified." )
  46.         return( 0 )
  47.     end
  48.     searchStr = upper( searchStr )
  49.  
  50.     if ( ! webUserDirOpen( session, webServerBaseDir( websrvr ) ) )
  51.         return( 0 )
  52.     end
  53.  
  54.     dir_name = vnsTitle( websrvr )
  55.  
  56. ]>
  57. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  58. <!-- SmartDesk Active Page, www.smartdesk.com -->
  59. <HTML>
  60. <HEAD>
  61. <TITLE>Search <[ ! dir_name ]> Directory</TITLE>
  62. </HEAD>
  63. <BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#00FFFF" VLINK="#00FFFF" ALINK="#00FFFF">
  64.  
  65. <TABLE BORDER=0 WIDTH=600>
  66.  <TR>
  67.   <TD VALIGN="top" WIDTH=159>
  68.    <CENTER>
  69.    <FONT COLOR="#FFFF00"><B>Search Results</B></FONT><BR>
  70.    <A HREF="userdir.htm"><IMG SRC="/image/ws.jpg" BORDER=0 WIDTH=159 HEIGHT=300></A><BR>
  71.    <FONT SIZE=1>
  72.    <P><A HREF="http://www.smartdesk.com">©SmartDesk, Inc. 1997-98<BR>All Rights Reserved</A></P>
  73.    </FONT>
  74.  
  75.    </CENTER>
  76.   </TD>
  77.   <TD WIDTH=30>
  78.    <FONT SIZE=5 COLOR="#000000">.</FONT>
  79.   </TD>
  80.   <TD WIDTH=410 VALIGN="top">
  81.  
  82.    <BR>
  83.    <CENTER>List of Users Meeting Search Criteria at:<BR>
  84.    <FONT SIZE=6 COLOR="#00FFFF"><[ ! dir_name ]></FONT><BR></CENTER>
  85.  
  86.    <CENTER>
  87.     <TABLE BORDER=0 WIDTH=380>
  88.      <TR>
  89.       <TD WIDTH=160><FONT COLOR="#000000">.</FONT></A></TD>
  90.       <TD WIDTH=220><FONT COLOR="#000000">.</FONT></A></TD>
  91.      </TR>
  92. <[
  93.     users->dbGoTop( )
  94.     while ( ! users->dbEOF( ) )
  95.         if ( users->dbIsDeleted( ) )
  96.             users->dbSkip( )
  97.             continue
  98.         end
  99.  
  100.         flag = 0
  101.         if ( strat( searchStr, upper( users->fname ) ) > 0 )
  102.             flag++
  103.         end
  104.         if ( strat( searchStr, upper( users->lname ) ) > 0 )
  105.             flag++
  106.         end
  107. //        if ( strat( searchStr, upper( users->email ) ) > 0 )
  108. //            flag++
  109. //        end
  110. //        if ( strat( searchStr, upper( users->c_name ) ) > 0 )
  111. //            flag++
  112. //        end
  113.         if ( strat( searchStr, upper( users->c_title ) ) > 0 )
  114.             flag++
  115.         end
  116.         if ( strat( searchStr, upper( rtrim( users->city ) + " " + rtrim( users->state ) + " " + rtrim( users->country ) ) ) > 0 )
  117.             flag++
  118.         end
  119.         if ( flag )
  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.         users->dbSkip( )
  126.     end
  127.     users->dbClose( )
  128. ]>
  129.     </TABLE>
  130.  
  131.    <P><BR></P>
  132.  
  133.    <CENTER>
  134.    <FONT SIZE=2>
  135.    <A HREF="usersrch.htm">Search</A> | 
  136.    <A HREF="userdir.htm">Directory</A> |
  137.    <A HREF="useradmn.htm">Administration</A> |
  138.    <A HREF="/index.htm">Home</A>
  139.    </FONT><BR>
  140.    <BR>
  141.    </CENTER>
  142.  
  143.   </TD>
  144.  </TR>
  145. </TABLE>
  146.  
  147. </BODY>
  148. </HTML>
  149.  
  150.