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