Viewing source for recipe1713vb.aspx

<%@ Page %>
<%@ Import Namespace="System.IO" %>
<script language="vb" runat="server">
	Sub Page_Load(sender As Object, e As EventArgs)
		ReadReversed()
	End Sub 'Page_Load

	Private Sub ReadReversed()
		Dim sr As StreamReader
		Dim [text] As String
		Dim lines As String()

		Try
			sr = File.OpenText(Server.MapPath("starwarquotes.txt"))
									
			[text] = sr.ReadToEnd()
			lines = [text].Split(ControlChars.NewLine)
			sr.Close()
			
			Dim i As Integer
			For i = lines.Length - 1 To 0 Step -1
				HttpContext.Current.Response.Write(lines(i).ToString())
				HttpContext.Current.Response.Write("<br />")
			Next i

		Catch exc As Exception
			HttpContext.Current.Response.Write(exc.Message)
		Finally
			If Not sr Is Nothing Then
				sr.Close()
			End If
		End Try
	End Sub 'ReadReversed
</script>