<%
' Open News file (archivenews.txt)
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Dim objTextStream
Dim qu
Dim moretext
const strFileName = "e:\inetpub\virtual\saveoceana\archivenews.txt"
const fsoForReading = 1
Set objTextStream = objFSO.OpenTextFile(strFileName, fsoForReading)
ReadArchiveNews = objTextStream.ReadAll()
'Clean up
objTextStream.Close
Set objFSO = Nothing
Set objTextStream = Nothing
%>
