<%@ Import Namespace="System.IO" %>

<script language="VB" runat="server">

Sub Page_Load(Sender As Object, E As EventArgs)
  Dim Contents As String
  Dim TagFile As String = Server.MapPath("tagfile.txt")
  Dim SR As StreamReader
  If File.Exists(TagFile) Then
   SR = File.OpenText(TagFile)
   Contents = SR.ReadToEnd()
   TagLabel.Text = Contents
   SR.Close()
  Else
   Dim SW As StreamWriter
   SW = File.CreateText(TagFile)
   SW.Close()
   TagLabel.Text = "Tagboard is empty"
  End If
End Sub
Sub Tag_Click(Sender As Object, E As EventArgs)
  Dim Contents As String
  Dim TagFile As String = Server.MapPath("tagfile.txt")
  Dim SR As StreamReader
  SR = File.OpenText(TagFile)
  Contents = SR.ReadToEnd()
  SR.Close()
  Dim SW As StreamWriter
  SW = File.CreateText(TagFile)
  SW.Write(TagNameBox.Text & TagMessBox.Text & Contents)
  SW.Close()
  TagNameBox.Text = "Enter Name"
  TagMessBox.Text = "Enter Message"
<End Sub>