fragment.ascx

This is a book about vb.you could learn this from this book

<%@ Language="VB" %>
<%@ OutputCache Duration="10" VaryByControl="Category"%>

<Script runat=server>
  Public Sub Page_Load()
  
    ' Get the Date and Time, once again this should not change after the first run       
    Dim NowTime As DateTime = DateTime.Now
    Dim Expires As DateTime = NowTime.AddSeconds(10)

    CreatedStamp.InnerHtml = NowTime.ToString("r")
    ExpiresStamp.InnerHtml = Expires.ToString("r")
  
  End Sub
  
</Script>

<Font size=6>
Fragment Cache created: <Font color=red><B id=CreatedStamp runat=server></B></Font>
<BR>
Fragment Cache expires: <Font color=red><B id=ExpiresStamp runat=server></B></Font>
</Font>