<%@ Page Language="VB" Debug="true" %>
Sub Page_Load (Sender As Object, E As EventArgs)
Dim MyFileName as String
Dim ObjectStreamReader as System.IO.StreamReader
Dim FileLines as New ArrayList()
MyFileName = Page.MapPath("Data.txt")
Try
ObjectStreamReader = new System.IO.StreamReader (MyFileName)
While ObjectStreamReader.Peek() > -1
FileLines.Add(ObjectStreamReader.ReadLine())
End While
FileLines.Sort()
Label1.Text = "Select a title:"
DropDownList1.DataSource = FileLines
DropDownList1.DataBind()
Catch ObjectError as Exception
Label1.Text = ObjectError.Message
DropDownList1.Visible = False
Finally
If Not ObjectStreamReader Is nothing Then
ObjectStreamReader.Close()
End If
End Try
End Sub