<% Option Explicit
' Written by Daryl Maunder Midnight Oil Computing Pty Ltd
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fso
dim MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.Getfile(Application("ArchiveDir") & Request.Querystring("Filename"))
%>
Exchange IMF Archive Manager
<%
Response.Write ("| Contents of file " & MyFile.Name & " | ")
Response.Write (" Delete | ")
Response.Write ("Resubmit | ")
Response.Write ("Back | ")
Response.Write ("
")
Response.Write ("<![CDATA[")
' Open the file
Dim TextStream
Set TextStream = Myfile.OpenAsTextStream(ForReading,TristateUseDefault)
Dim Line
Do While Not TextStream.AtEndOfStream
Line = TextStream.readline
' Response.Write ("<XMP>" & Line & "</XMP>")
Response.Write (Line & chr(13) & chr(10))
Loop
Set TextStream = nothing
set myFile=nothing
set fso=nothing
%>
]]></plaintext></div></div>