%
'Dim oDb, oRsNews, oRsEvents
'Set oDb = New AccessDBClass
'Set oRsNews = oDb.ExecuteQuery( "select top 3 n.nm_id, n.tx_title from tb_news as n where ( n.dt_expire >= now() ) and ( n.fg_homepage = true )" )
'Set oRsEvents = oDb.ExecuteQuery( "select top 3 e.nm_id, e.dt_start, e.dt_end, e.tx_title from tb_events as e where ( e.dt_end >= now() ) and ( e.fg_homepage = true )" )
%>