% set Info = server.createobject("ADODB.Connection") Info.open ="Dabbousprinting" News="select * from News where EndingDate > Date() and FrontPage = True" Set News_tab = server.CreateObject("ADODB.Recordset") News_tab.Open News,Info,1,3 %>