Press Coverage:

<% strQuery = "SELECT IdClipping, Titulo, Descripcion, Fecha, Archivo FROM clipping ORDER BY Fecha DESC " Set objDatabase = New Database arrClipping = objDatabase.GetArray(strQuery) Set objDatabase = Nothing if Isarray(arrClipping) then for i = 0 to Ubound(arrClipping,2) id = arrClipping(0,i) titulo = arrClipping(1,i) descripcion = arrClipping(2,i) fecha = arrClipping(3,i) archivo = arrClipping(4,i) %> <%=titulo%>
<% if (descripcion <> "") then response.Write(descripcion & "
") %> <% if (fecha <> "") then if (month(fecha) < 10) then response.Write("0" & month(fecha) &"-"& right(Year(fecha),2) & ".
") %> >> read more

<% next end if %>