<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
USS SANCTUARY (AH-17) COMMS BOARD
-
Messages
are displayed ten per page to minimize required loading time: most RECENT
post is shown when this page loads.
- To post your message,
click POST.
- To scroll back in time,
click BACK.
-
To
read all messages from the initial 8/27/97 message which started this
board, click the OLDEST button.
- To scroll ahead in time,
click FORWARD.
- To respond privately
by email to whomever posted a specific message, click the EMAIL icon which
appears immediately below the poster's name.
- To post a public comment
regarding a specific message, click on either Be
First to Post a Reply or Post a Reply
below the message.
To SEARCH
all other Sanctuary WEB pages for
a name, term or word, use USS SANCTUARY SEARCH:
<%
dim strFileName
dim file
dim fso
strFileName = server.mappath("/comms/sanctuary_comms.txt")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
set fso = server.CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile(strFileName,ForReading)
Response.Write replace(file.readall, vbCrlf, "
")
file.close
set file = nothing
set fso = nothing
%>
