<%@ Import Namespace="System.IO" %>
<script language="vb" runat="server">
  sub Page_Load(sender as Object, e as EventArgs)
    'This will create the file if it doesn't exist, and will also
    'continue to add text to the file. To overwrite the file,
    'just remove the true attribute.
    Dim objStreamWriter As New StreamWriter(FileName, true)

    objStreamWriter.WriteLine(Request.Form("email") & ";" & vbCrLf)
    objStreamWriter.Close()
    
''Now to read the text file and display contents:

    'Get a StreamReader class that can be used to read the file
    Dim objStreamReader as StreamReader
    objStreamReader = File.OpenText(FileName)

    'Now, read the entire file into a string
    Dim contents as String = objStreamReader.ReadToEnd()

    'We may wish to replace carraige returns with <br>s
    lblNicerOutput.Text = contents.Replace(vbCrLf, "<br>")
    
    objStreamReader.Close()
  end sub
</script>