home *** CD-ROM | disk | FTP | other *** search
/ WinFiles.com 1998 June / WF0698_3.ISO / servers-websrv / websuite.exe / GUESTBK3.AP_ / GUESTBK3.AP
Text File  |  1998-04-01  |  1KB  |  51 lines
  1. <[
  2. // SmartDesk's Personal Web Desktop - Guest Book #3
  3. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved
  4.  
  5. _apGenerate( )
  6.  
  7. websrvr = 0 + param( 1 )
  8. sessionId = 0 + param( 2 )
  9.  
  10. session = new( "session", websrvr, sessionId )
  11.  
  12. from = session.var( "FROM" )
  13. if ( strempty( from ) )
  14.     session.response( "<H2>Who'd you say this was from again?</H2>" )
  15.     return( 0 )
  16. end
  17. msg = session.var( "MSG" )
  18. if ( strempty( msg ) )
  19.     session.response( "<H2>I'm sorry, did you mean to tell me something?</H2>" )
  20.     return( 0 )
  21. end
  22. msg = strswap( msg, "\r", "<BR>" )
  23.  
  24. basedir =     webServerHome( websrvr )
  25.  
  26. filename = basedir + "\\system\\guestbk.dat"
  27. if ( ! fileExists( filename ) )
  28.     hfile = fileCreate( filename )
  29. else
  30.     hfile = fileOpen( filename, 2 )
  31. end
  32. if ( hfile < 1 )
  33.     session.response( "<H2>File Access Error.</H2>" )
  34.     return( 0 )
  35. end
  36.  
  37. len = flen( hfile )
  38. if ( len > 0 )
  39.     fileSeek( hfile, len, 0 )
  40. end
  41.  
  42. fwriteline( hfile, date( "MMMM DDDD, YYYY at " ) + timetostr( time( ), 0 ) + "m|" + msg + "|" + from )
  43. fileClose( hfile )
  44.  
  45. ! webHeader( )
  46. ! "<H2>Record Successfully Entered!</H2>"
  47. ! "<A HREF=\"guestbk.htm\">Continue...</A>"
  48. ! webFooter( )
  49.  
  50. ]>
  51.