<%
Dim fileObject2, textFile2
' Instantiate a FileSystemObject
Set fileObject2 = Server.CreateObject( _
"Scripting.FileSystemObject" )
' textfile path must be modified to reflect
' the file structure of the server.
textfile = "d:\aspex\" & "textfile.txt"
' Check if the file exists. If not, create it.
If fileObject2.FileExists( textfile ) = True Then
' textfile must be open for reading.
' Open the guestbook, "1" is for reading.
Set textFile2 = fileObject2.OpenTextFile( guestbook, 1 )
' Read the entries from the file and write them to
' the client.
Call Response.Write( "Textfile Entries:<BR>" )
Call Response.Write( textFile2.ReadAll() )
Call textFile2.Close()
End If
%>