<% 'Here's where the guest book display begins. %>

<% set fileobject = createobject("Scripting.FileSystemObject") guestfile = server.mappath ("/guest") & "\guests.txt" set instream= fileobject.opentextfile (guestfile, 1, false, false) while not instream.atendofstream %> <% email = instream.readline %> <% Wend Instream.Close Set Instream=Nothing %>
Date: <%= instream.readline%>
Name: <%= instream.readline%>
Email: <%= email %>
Comment: <%= instream.readline%>

Back to Top

Home - The .WAV Collection - The Links Page - About Me

Sign Guest Book - My Software - What's New

Search this Site

Page last updated on November 28, 1997 4:10 PM
Previous session logged in at: <%= session("LastVisitorTime")%>.

<% session("GbookFlag")= session("GbookFlag") + 1 If session("GbookFlag") = 1 Then Rem Get the current number of hits for this page Set FileObject = Server.CreateObject("Scripting.FileSystemObject") OtherCounterFile = Server.MapPath ("/guest") & "\Gbook.txt" Set InStream= FileObject.OpenTextFile (OtherCounterFile, 1, False, False) Number = Instream.Readline Instream.close application.lock application("GbookCount") = Number Set OutStream= FileObject.CreateTextFile (OtherCounterFile, True, False) application("GbookCount") = application("GbookCount") + 1 OutStream.WriteLine application("GbookCount") OutStream.close application.unlock End If %>