<%@ 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)
%>
<%=PortalTitle%>