<[
// SmartDesk's Personal Web Desktop - Guest Book #3
// (c) 1997-98 SmartDesk, Inc., All Rights Reserved
_apGenerate( )
websrvr = 0 + param( 1 )
sessionId = 0 + param( 2 )
session = new( "session", websrvr, sessionId )
from = session.var( "FROM" )
if ( strempty( from ) )
session.response( "Who'd you say this was from again?
" )
return( 0 )
end
msg = session.var( "MSG" )
if ( strempty( msg ) )
session.response( "I'm sorry, did you mean to tell me something?
" )
return( 0 )
end
msg = strswap( msg, "\r", "
" )
basedir = webServerHome( websrvr )
filename = basedir + "\\system\\guestbk.dat"
if ( ! fileExists( filename ) )
hfile = fileCreate( filename )
else
hfile = fileOpen( filename, 2 )
end
if ( hfile < 1 )
session.response( "File Access Error.
" )
return( 0 )
end
len = flen( hfile )
if ( len > 0 )
fileSeek( hfile, len, 0 )
end
fwriteline( hfile, date( "MMMM DDDD, YYYY at " ) + timetostr( time( ), 0 ) + "m|" + msg + "|" + from )
fileClose( hfile )
! webHeader( )
! "Record Successfully Entered!
"
! "Continue..."
! webFooter( )
]>