<%class cls_fastpage
public iId,bHideDate,sLPExternalURL,sTitle,bLPExternalOINW,sValue,iFeedId,dPage,updatedTS,sUrlRRSImage
public function feed
set feed=new cls_feed
feed.pick(iFeedId)
end function
Public Property get sDateAndTitle
if isLeeg(dPage) then
sDateAndTitle=sTitle
else
if convertBool(bHideDate) then
sDateAndTitle=sTitle
else
sDateAndTitle=convertEuroDate(dPage)& ": " & sTitle
end if
end if
end property
end class%>