global.asax

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

<%@ Application Inherits="MyApplication" %>

<Script language="VB" runat=server>
  Public Sub Application_OnBeginRequest()

    Dim TimeStamp As String
    TimeStamp = CurrentTime()

    Response.Write("Request Begining TimeStamp: " + TimeStamp)
    Response.Write("<HR size=1>")
  End Sub

  Public Sub Application_OnEndRequest()
    Dim TimeStamp As String
    TimeStamp = CurrentTime()

    Response.Write("<HR size=1>")
    Response.Write("Request Ending TimeStamp: " + TimeStamp)
  End Sub
</Script>