<%@ Page Language="vb" %>
Cacheing Output in ASP.NET
Sub Page_Load()
Dim myCachePol As HttpCachePolicy
myCachePol = Response.Cache
myCachePol.SetExpires(DateTime.Now.AddSeconds(120))
myCachePol.SetCacheability(HttpCacheability.Public)
Message.Text = Now.ToString()
End Sub