home *** CD-ROM | disk | FTP | other *** search
/ Image Master / L80.iso / Net / websuite / websuite.exe / GUESTBK.AP_ / GUESTBK.AP
Encoding:
Text File  |  1997-12-08  |  2.1 KB  |  96 lines
  1. <[
  2. // SmartDesk's Personal Web Server - Guest Book
  3. // (c) 1997 SmartDesk, Inc., All Rights Reserved
  4.  
  5. _apGenerate( )
  6.  
  7. websrvr = 0 + param( 1 )
  8. sessionId = 0 + param( 2 )
  9.  
  10. basedir = webServerHome( websrvr )
  11.  
  12. file = webServerConfigFile( websrvr )
  13. ini = new( "inifile", file )
  14. if ( type( ini ) == "O" )
  15.        email_addr = ini.GetString( "Chat", "Email_addr", "" )
  16. else
  17.     email_addr = ""
  18. end
  19.  
  20. ]>
  21. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  22. <!-- SmartDesk Active Page, www.smartdesk.com -->
  23. <HTML>
  24. <HEAD>
  25. <TITLE>Guest Book</TITLE>
  26. </HEAD>
  27. <BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#00FFFF" VLINK="#00FFFF" ALINK="#00FFFF">
  28.  
  29. <TABLE BORDER=0 WIDTH=600>
  30.  <TR>
  31.   <TD VALIGN="top" WIDTH=159>
  32.    <CENTER>
  33.    <FONT COLOR="#FFFF00"><B>Guest Book</B></FONT><BR>
  34.    <A HREF="/index.ap"><IMG SRC="/image/ws.jpg" BORDER=0 WIDTH=159 HEIGHT=300></A>
  35.    <FONT SIZE=1>
  36.    <P><A HREF="http://www.smartdesk.com">©SmartDesk, Inc. 1997<BR>All Rights Reserved</A></P>
  37.    </FONT>
  38.  
  39.    </CENTER>
  40.   </TD>
  41.   <TD WIDTH=15>
  42.    <FONT SIZE=5 COLOR="#000000">.</FONT>
  43.   </TD>
  44.   <TD WIDTH=400 VALIGN="top">
  45.  
  46.    <CENTER>
  47.    <A HREF="guestbk2.ap">Add your own entry to the guest book</A><BR>
  48. <[
  49.     if ( ! strempty( email_addr ) )
  50.         ! "Or send a <A HREF=\"mailto:" + email_addr + "\">private</A> message<BR>"
  51.     end
  52. ]>
  53.    </CENTER>
  54.  
  55.    <P>
  56.    
  57. <[
  58.     filename = basedir + "\\system\\guestbk.dat"
  59.     if ( ! fileExists( filename ) )
  60.         ! "No Data!"
  61.     else
  62.         data = fileReadASCII( filename )
  63.         if ( ( ! data ) || strempty( data ) )
  64.             ! "No Data!"
  65.         else
  66.             cnt = chrcount( "\r", data ) + 1
  67.             z = 0
  68.             data = strswap( data, "\n", "" )
  69.             for ( i=cnt; i>0; i-- )
  70.                 line = strextract( data, "\r", i )
  71.                 if ( strempty( line ) || ( line[1] == chr(26) ) )
  72.                     continue
  73.                 end
  74.                 z++
  75.                 
  76.                 date = strextract( line, "|", 1 )
  77.                 msg  = strextract( line, "|", 2 )
  78.                 from = strextract( line, "|", 3 )
  79.  
  80.                 ! "<P><B>" + date + "</B><BR>"
  81.                 ! "<FONT COLOR=\"#AAAAAA\">" + msg + "</FONT> --- <B>" + from + "</B></P>"
  82.                 
  83.             end
  84.         end
  85.     end
  86. ]>   
  87.  
  88.    <P><BR></P>
  89.  
  90.   </TD>
  91.  </TR>
  92. </TABLE>
  93.  
  94. </BODY>
  95. </HTML>
  96.