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