<% dim x as integer=0 dim link as string="" dim summary as string="" dim rs as datarow for x=0 to ds.tables(0).rows.count-1 rs=ds.tables(0).rows(x) summary=getsummary(rs.item("article")) link=appsettings.applicationurl & "default.aspx?a=" & rs.item("articleid") link=" -
" %>
<%=server.htmlencode(rs.item("title"))%>
<%=server.htmlencode(rs.item("headlinedate"))%>
<%=summary%><%=link%>
<%next if x=0 then%>
No articles Found
<%end if%>
<%=server.htmlencode(rs.item("title"))%>