<%@ Import Namespace="System.IO" %>
sub Page_Load(Sender as Object, e as EventArgs)
dim fs as new FileStream(Server.MapPath("Default.aspx"), FileMode.Open, FileAccess.Read)
dim objReader as new StreamReader(fs)
while objReader.Peek() > -1
Response.Write(Server.HTMLEncode _
(objReader.ReadLine) & "
")
end while
objReader.Close
fs.close
end sub