<%
Const ForReading = 1
Dim objFS, objFile, edit, textstream
Set objFS = Server.CreateObject ("Scripting.FileSystemObject")
set objFile = objFS.GetFile(server.mappath("edit.dat"))
set textstream = objFile.OpenAsTextStream(ForReading, -2)
edit = textstream.ReadAll
textstream.close
%>
SUZANNE'S EVENTS
.
