<%@ Language=VBScript %> <% ForReading=1 Textfile=Server.MapPath("webbord.txt") Set fs= CreateObject("Scripting.FileSystemObject") Set a=fs.OpenTextFile(Textfile,ForReading,True,0) Do while not a.AtEndOfStream Response.Write (a.readline() & "
") Loop a.Close %>
ข้อความที่จะประกาศ : 
ผู้ประกาศ :