home *** CD-ROM | disk | FTP | other *** search
/ Image Master / L80.iso / Net / websuite / websuite.exe / USERS.AP_ / USERS.AP
Encoding:
Text File  |  1997-12-08  |  1.4 KB  |  51 lines
  1. <[
  2. // WINC - User
  3. // (c) 1997 SmartDesk, Inc., All Rights Reserved
  4.  
  5. websrvr = 0 + param( 1 )
  6. sessionId = 0 + param( 2 )
  7.  
  8. ]>
  9. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  10. <!-- SmartDesk Active Page, www.smartdesk.com -->
  11. <HTML>
  12. <HEAD>
  13. <TITLE>WINC Users</TITLE>
  14. </HEAD>
  15. <BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#00FFFF" VLINK="#00FFFF" ALINK="#00FFFF">
  16.  
  17. <CENTER>
  18. <FONT SIZE=5>World-wide I-Net Chit-Chat (WINC) - Users</FONT><BR>
  19. <A HREF="chattext.ap" TARGET="winc_bottom">Return to the chat</A>
  20. <P><BR></P>
  21.  
  22. <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=571 VSPACE=0>
  23.  <TR>
  24.   <TD WIDTH=300 VALIGN=top>
  25.  
  26. <[
  27.     session = sessionFindFirst( websrvr )
  28.     channel = sessionDataGet( websrvr, sessionId, "winc_channel" )
  29.  
  30.     while ( session )
  31.         id = sessionId( session )
  32.         if ( id != -1 )
  33.             if ( sessionDataGet( websrvr, id, "winc_channel" ) == channel )
  34.                 if ( ! sessionDataExpired( websrvr, id, "winc_channel", 0 ) )
  35.                     name = sessionDataGet( websrvr, id, "winc_name" )
  36.                     alias = sessionDataGet( websrvr, id, "winc_alias" )
  37.                     email_addr = sessionDataGet( websrvr, id, "winc_email_addr" )
  38.                     ! "<A HREF=\"mailto:" + email_addr + "\">" + name + "</A> is logged in as <FONT COLOR=yellow><B>" + alias + "</B></FONT><BR>"
  39.                 end
  40.             end
  41.         end
  42.         session = sessionFindNext( session )
  43.     end
  44. ]>
  45.   </TD>
  46.  </TR>
  47. </TABLE>
  48.  
  49. </BODY>
  50. </HTML>
  51.