Sub DoOutputHTML()
Dim MyPage as new MyPageItem
MyPage.DoQuery()
End Sub
Class MyPageItem
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Public Shared Sub DoQuery()
Dim selectedYear as Integer
selectedYear = Session("MyThreadSelectedYear")
If selectedYear <> Now.Year() then
Session("MyThreadSelectedYear") = selectedYear
End If
End Sub
End Class