%@ LANGUAGE = VBScript %><% Option Explicit %><% Response.Buffer = True %> <% ' Note: the call to turn buffering on must happen before any content of the page %>
(The scenario here is that this page lists information relevant for the current year only, so we want to have it expire right at the beginning of the next year.)
<% Dim Obj Set Obj = Server.CreateObject("IISSample.ExpirePage") Obj.expireAtYearEnd %>