home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / serwery_www / websuite / websuite.exe / EVENTS.AP_ / EVENTS.AP
Encoding:
Text File  |  1999-01-12  |  3.2 KB  |  112 lines
  1. <[
  2. // WINC - Events
  3. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved
  4.  
  5. websrvr = 0 + param( 1 )
  6. sessionId = 0 + param( 2 )
  7.  
  8. session = new( "session", websrvr, sessionId )
  9.  
  10. ini = new( "iniFile", fileFixPath( webServerHome( websrvr ) + "\\chat\\events.dat" ) )
  11. if ( type( ini ) != "O" )
  12.     session.error( "Unable to locate EVENTS data file.", "FFFFFF", "000000" )
  13.     return( 0 )
  14. end
  15.  
  16. ]>
  17. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  18. <!5thGEN Active Pages, by www.smartdesk.com>
  19. <HTML>
  20. <HEAD>
  21. <TITLE>WINC Events</TITLE>
  22. </HEAD>
  23. <BODY BGCOLOR="#000000" LINK="#00FFFF" VLINK="#00FFFF" TEXT="#FFFFFF">
  24.  
  25. <CENTER>
  26. <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=571 VSPACE=0>
  27.  <TR>
  28.   <TD WIDTH=571 VALIGN=top>
  29.    <IMG SRC="/chat/dirtop.jpg" WIDTH=571 HEIGHT=161 BORDER=0 ALT="Loading chat directory..."><BR>
  30.  
  31.    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=571 VSPACE=0>
  32.     <TR>
  33.       <TD><IMG SRC="/chat/dirleft.jpg" WIDTH=99 HEIGHT=260 BORDER=0 ALT="<[ ! date( 'MMM DD, YYYY' ) ]>"></TD>
  34.       <TD WIDTH=377 VALIGN=top>
  35.  
  36.        <CENTER>
  37.        <P>
  38.        <FONT SIZE=5><b>E V E N T S</b></FONT><BR>
  39.        <FONT SIZE=2>
  40.        <A HREF="/chat/dir.htm">Lobby</A> |
  41.        <A HREF="sdchat.htm">User Logon</A> |
  42.        <A HREF="http://www.smartdesk.com/websuite.html">WebSuite</A> |
  43.        <A HREF="/index.htm">Home</A><BR>
  44.        </FONT></P>
  45.        
  46.        <P>
  47.           <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=340 VSPACE=0>
  48.         <TR>
  49.          <TD>
  50.           <P>
  51.           <FONT SIZE=5 COLOR=yellow><B><[ ! cdow( jdate( ) ) + date( ", MMMM DDDD " ) ]></B></FONT>
  52.           <FONT SIZE=2><B><[ ! timetostr( time( ), 0 ) +"m" ]></B></FONT><BR>
  53.           No events scheduled, all chat areas open.<BR>
  54.           </P>
  55.  
  56. <[
  57.         data = ini.getitems( "events" )
  58.         cnt = chrcount( ";", data ) + 1
  59.         for ( i=1; i<=cnt; i++ )
  60.             item = strextract( data, ";", i )
  61.             if ( strempty( item ) )
  62.                 continue
  63.             end
  64.             line = ini.getstring( "events", item, "" )
  65.             if ( strempty( line ) )
  66.                 continue
  67.             end
  68.  
  69.             ! "<P><FONT SIZE=5 COLOR=yellow><B>" + strextract( line, "|", 1 ) + "</B></FONT> <FONT SIZE=2><B>" + strextract( line, "|", 2 ) + "</B></FONT><BR>"
  70.               ! strextract( line, "|", 3 ) + "<BR>"
  71.  
  72.             a = "<CENTER><A HREF=\"\">Pre-register</A> | <A HREF=\"\">Remind Me</A></CENTER></P>"
  73.         end
  74.  
  75.           ! "<P><BR></P><CENTER><FONT COLOR=\"#00FFFF\"><B>The current time is " + timetostr( time( ), 0 ) + "m,<BR>" + cdow( jdate( ) ) + date( ", MMMM DDDD, YYYY" ) + "</B></FONT></CENTER>"
  76. ]>
  77.          </TD>
  78.         </TR>
  79.        </TABLE>
  80.        </P>
  81.        
  82.        </CENTER>
  83.       
  84.       </TD>
  85.       <TD><IMG SRC="/chat/dirright.jpg" WIDTH=97 HEIGHT=260 BORDER=0 ALT="<[ ! timetostr( time( ), 0 ) + 'm' ]>"></TD>
  86.     </TR>
  87.    </TABLE>
  88.    <IMG SRC="/chat/dirbott.jpg" WIDTH=571 HEIGHT=67 BORDER=0><BR>
  89.  
  90.    <CENTER>
  91.    <FONT SIZE=4>
  92.    <A HREF="/chat/dir.htm">Lobby</A> |
  93.    <A HREF="sdchat.htm">User Logon</A> |
  94.    <A HREF="http://www.smartdesk.com/websuite.html">WebSuite</A> |
  95.    <A HREF="/index.htm">Home</A><BR>
  96.    </FONT>
  97.    <FONT SIZE=2 COLOR="#FFFFFF">©1997-98 SmartDesk, Inc., All Rights Reserved.<BR></FONT>
  98.    </CENTER>
  99.  
  100.   </TD>
  101.  </TR>
  102. </TABLE>
  103.  
  104. </CENTER>
  105.  
  106. <p><br></p>
  107. <p><br></p>
  108. <p><br></p>
  109. <p><br></p>
  110.  
  111. <[! webFooter( )]>
  112.