ASP Source Code: 
<!--#include file="Misc.inc"-->
<!-- #INCLUDE FILE="secure.asp" -->

<html>
   <body>
      <%
        Dim strBlackBoard,strTemp,strCommand,strFile

	DIM ForReading,ForWriting, ForAppending
	ForReading   = 1 
	ForWriting   = 2
	ForAppending = 8

         Set fs=Server.CreateObject("Scripting.FileSystemObject")
 strFile = "//boswinfs04/home/users/web/b1943/ywh.garlennet/SampleASP/TTD/blackboard.txt"
         strTemp = Request.Form("txtBlackBoard")
         strCommand = Request.Form("cmdEnter")

         IF strCommand = "Submit" THEN
          	Set f=fs.OpenTextFile(strFile, ForWriting)
		strBlackBoard = TRIM(strTemp)
		f.write(strTemp)
	 ELSE
         	Set f=fs.OpenTextFile(strFile, ForReading)
         	strBlackBoard = TRIM(f.ReadAll)
   	 END IF
         f.Close
         set f=Nothing
         set fs=Nothing

	 CALL Heading("Sample Blackboard")
       %> 

       <FORM ACTION="blackboard.asp" METHOD="post">
          <TABLE BORDER=0>
	     <TR>
		<TD><TEXTAREA NAME = "txtBlackBoard" 
			ROWS="10" COLS="60"><%=strBlackBoard%>
                    </TEXTAREA>
		</TD>
	     </TR>
	     <TR>
		<TD ALIGN="right"></TD>
	        <TD><INPUT TYPE="submit" 
			   Name="cmdEnter" 
			   VALUE="Submit">
		    </INPUT>
		</TD>
	     </TR>
          </TABLE>
       </FORM>

   </body>
</html>