Development ASP.Net Tutorial

<%@ Page Language="VB" %>
<%@ OutputCache Duration="60" VaryByParam="none" %>

   sub Page_Load(Sender as Object, e as EventArgs)
      Response.Cache.VaryByParams.Item("first") = true
      Response.Cache.VaryByParams.Item("last") = false
      lblMessage.Text = "Welcome " & Request.Params("first") & _
         "! The time is now " & DateTime.Now.ToString("T")
      lblMessage.Text += "
" & Response.Cache. _
         VaryByParams.Item("first").ToString
      lblMessage.Text += "
" & Response.Cache. _
         VaryByParams.Item("last").ToString
   end sub