<%@ Page Language="VB" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.IO.IsolatedStorage" %>
sub Page_Load(Sender as Object, e as EventArgs)
dim stream as new IsolatedStorageFileStream("Default.aspx", FileMode.OpenOrCreate)
dim objReader as new StreamReader(stream)
while objReader.Peek() > -1
Response.Write(Server.HTMLEncode(objReader.ReadLine) & "
")
end while
objReader.Close
end sub