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
%>
|