<%@ Language=VBScript %>
<% const forreading =1, forwriting =2
const tristateusedefault = -2, tristatetrue = -1, tristatefalse = 0
dim strphysicalpath
strphysicalpath = server.MapPath("bullotin.txt")
'Response.Write strphysicalpath
dim objfso,objfile
set objfso = CreateObject ("Scripting.FileSystemObject")
set objfile = objfso.GetFile(strphysicalpath)
%>
<%
dim objfiletextstream
set objfiletextstream = objfile.OpenAsTextStream(forreading,tristateusedefault)
dim strline
%>
<%
do while objfiletextstream.AtEndOfStream <> true
strline = server.HTMLEncode(objfiletextstream.readline)
%>
<%
Response.Write strline
Response.Write "
" + vbcrlf
%>
<%
loop
objfiletextstream.close
%>
