Hmm, hope this is enough O_o
======================================
Private Sub doDataBind()
Dim xdi As New TwinsSideWebTools.ids
di = xdi.di
dTi = xdi.dTi
m = xdi.m
xdi = Nothing
Dim x As New DataTable
Dim foo As New TwinsSideWebTools.db.db
If Request.QueryString("year") = "2004" Then
x = foo.execDB("getDiaryMenu2004", 1, True, "CacheDiary")
Else
x = foo.execDB("getDiaryMenu2004", 1, True, "CacheDiary")
End If
If Not x Is Nothing Then
If x.Rows.Count > 0 Then
DL_1.DataSource = x
DL_1.DataBind()
x.Dispose()
End If
End If
foo.dispose()
DataBind()
End Sub