%@ Language=VBScript %> <%option explicit%> <% dim conclass,rst,strsql,strView,strTable set conclass =new ClsDataBase conclass.getconnectionstring = PortalConnectString strsql = strsql & "SELECT id as 'ID', FORMAT(newsdate,'dd/mm/yyyy') as 'Date', title as 'News' " strsql = strsql & " FROM news_t_newsdetails " strsql = strsql & " WHERE active='Y' " strsql = strsql & " AND FORMAT(expirydate,'dd/mm/yyyy') >= FORMAT(Date(),'dd/mm/yyyy')" strsql = strsql &" ORDER BY id DESC" strTable=TableMenuListWithLimit(strSQL,"","","","",0,PageSize,conclass) %>