<%
Option Explicit
Const ForReading = 1, ForWriting = 2, ForAppending = 8
'declare variable
Dim objFS, objFile, objFile2, entries, textstream
'read guestbook entries into textstream
Set objFS = Server.CreateObject ("Scripting.FileSystemObject")
set objFile = objFS.GetFile(server.mappath("entries.dat"))
set textstream = objFile.OpenAsTextStream(ForReading, -2)
entries = textstream.ReadAll
textstream.close
%>
Guestbook
.: TDSA Guestbook :.
Page 1 .
Page 2 .
Page 3 .
Page 4 .
Page 5
We'd love to get your feedback on TDSA classes you've attended, as well as any
other TDSA experience you'd like to relate. Even if you'd just like to
say hello, please click on the link below, fill out the form, and your comment
will be added to our guestbook page.
[Add your comment]
<% response.write(entries) %>