<%@ Language=VBScript %>
<%option explicit%>
<%
dim conclass,rst,strsql,strView,strTable
set conclass = new ClsDataBase
conclass.getconnectionstring = PortalConnectString
strsql = strsql & "SELECT id as 'ID', FORMAT(dia_noticia,'mm/dd/yyyy') as 'Date', titulo as 'News' "
strsql = strsql & " FROM detalles_noticias "
strsql = strsql & " WHERE activo='Y' "
strsql = strsql & " AND FORMAT(dia_expira,'mm/dd/yyyy') >= FORMAT(Date(),'mm/dd/yyyy')"
strsql = strsql &" ORDER BY id DESC"
strTable=TableMenuListWithLimit(strSQL,"","","","",0,PageSize,conclass)
%>
Caja Los Andes
